$|=1;$e="\e[";for$f(0..80){for(0..23){
$a=abs($f+$_-50)-11;($b,$c,$d)=(4+($_%
3)+1*($a>0?$a:0),40+(int($_/6)*2+(($_%
6)>2?1:0)-4)*($a>0?int($a/2)+1:1),31&(
34324480,653283109,522247848,134400022
)[$_/6]>>5*($_%6));print$_?"":$e."2J",
$b<23?$e."$b;$c\H".chr($d?$d+96:0):''}
select'','','',(38-$f)?.1:1}