map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;$c=X;map{($d,$e)=(2*$d*$e+$a,$
e**2-$d**2+$b);$c=$"if$d**2+$e**2>4}1..50;print$c}0..59;print$/}0..20

##</code><code>##

map {
   $a = 1-$_/10;
   map{
      $d = $a;
      $e = $b = $_/20-2;
      $c = X;
      map {
         ($d, $e) = (2*$d*$e+$a, $e**2-$d**2+$b);
         $c = $" if $d**2+$e**2 > 4
      } 1..50;
      print $c
   } 0..59;
   print $/
} 0..20