#!/usr/bin/perl
$"=q/#j%u*sXtQ Oa^n+o-t.hPe;rK 'p]eErFl,DhGa/;sub b{my($w,$x,$v)=@_;while(($y=
$w*$w)+($z=$x*$x)<4&&(++$v<9)){$x=2*$w*$x+$_[1];$w=$y-$z+$_[0];}return$v;}$".=
q/.cWk,e(r)/;@@=split/[^a-z ]/,$";@,=split/[a-z ]+/,$";foreach(0..3119){print
$,[b(($_%78-40)/20,(int($_/78)-19)/10)].(($_%78^77)?"":" $@[int($_/78)]\n");}

#!/usr/bin/perl
sub b{my($w,$x,$v)=@_;while(($y=$w*$w)+($z=$x*$x)<4&&(++$v<9)){$x=2*$w*$x+$_[1
];$w=$y-$z+$_[0];}return$v+0;}foreach(0..3119){print"\033[4".b(($_%78-40)/20,(
int($_/78)-19)/10)."m ".(($_%78^77)?"":" \033[0m\n");}