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