$a=1;{
  $b=-2;
  {
    $c='X';
    $d=$b;
    $e=$a;
    map{
      $g=$d;
      $d=$d**2-$e**2+$b;
      $e=2*$g*$e+$a;
      $c=$"if$d**2+$e**2>4
    }1..50;
    print$c;
    $b+=.05;
    $b<1&&redo
  }
  print$/;
  $a-=0.1;
  $a>-1&&redo
}