#!/usr/bin/perl
use Term::Cap;
$t= Tgetent Term::Cap;
$t=$t->Tgoto('cm', 0, 0);
for$i(1..shift){
  print $t;
  map{
    $a=1-$_/10;
    map{
      $d=$a;
      $e=$b=$_/20-2;
      map{
        ($d,$e)=(2*$d*$e+$a,$e**2-$d**2+$b);
        $c=$d**2+$e**2>4?_:0
      }1..$i;
      print$c
    }0..59;
    print$/
  }0..20;
}

##</code><code>##

map{
  $a=1-$_/10;
  map{
    $d=$a;
    $e=$b=$_/20-2;
    for(1..99){
      ($d,$e)=(2*$d*$e+$a,$e**2-$d**2+$b);
      $c=$d**2+$e**2>4?_:0;
      last if $c eq _
    }
    print$c
  }0..59;
  print$/
}0..20;