#!/usr/bin/perl
print"\33[2J";$|=1;($H=sprintf("%x",3741074192))=~y/74239
/porn!/;while($i+=.2){%q=();select('','','',.01);for(-1,1
){($c,$s)=(cos($i)*$_,-sin($i)*$_);@x=(-20*$s,3*$c-7,6+2*
$c);@y=(20*$s,7-6*$c,6-2*$c);$d=1/sqrt(($y[1]-$x[1])**2+(
$y[0]-$x[0])**2);for($j=0;$j<=1;$j+=$d){for(0..2){$p[$_]=
int($x[$_]+($y[$_]-$x[$_])*$j)}for$a(-$p[2]..$p[2]){for(-
$p[2]/2..$p[2]/2){$q{(40+$p[0]+$a)+(11+$p[1]+$_)*79}++if(
($a**2+($_*2)**2)<$p[2])}}}}for(sort(keys%q)){$f=$_%79;$u
=int($_/79);print$_-$g!=1?"\33[$u;${f}H":"",substr($H,$_%
8,1);++$l{$_};$g=$_}for(keys%l){if($l{$_}){--$l{$_}}else{
$f=$_%79;$u=int($_/79);print$_-$g!=1?"\33[$u;".$f.'H':'',
"\40";delete($l{$g=$_})}}print"\33[H"}
