#!/usr/local/bin/perl
$e="\e[";for$r(0..62){for(0..11){($z,$y,$x,$s,$c)=(31&(620
,5586,14053,496)[$_/3]>>5*($_%3),(7-($r/5))*($_%3-1),(11-
($r/3))*(int($_/3)-2),sin(3-$r/10),cos(3-$r/10));print$_?
"":$e."2J",$e,10-int($s*$x-$c*$y),";",40-int($c*$x+$s*$y)
,H=>chr$z+($z?96:10)}select'','','',(30-$r)?.1:1}
