#!/usr/bin/perl

print"\33[2J";$|=1;($H=sprintf("%x",3741074192))=~y/74239

/porn!/;while($i+=.2){%q=();select('','','',.09);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"}