#!/usr/bin/perl
$_='
      $q=                              "\4 7"
    ;wh            ile($;=$z+=.5          ){ %c
  =$r          =0;$/="";while(  21+$        z> (
 $;         +=.05))           {$c{i nt        $ _+
26         +2*(                   $r+=.        0 1
9         )*s                       in $;       }{1
-        $_         +10+int$r*c       os$;      }=1
        f         or(0..1)}$t=re       v e       r s
       e;        $/.         =`cl       s`        ."
      #!        /u       sr   /bi       n/        pe
      rl       \n\      $_=$q\n"        ;f        or
      $y       (1.       .20){         $c        {$
      _ }       { $y                  }?         $
       /.=       chop$              t:(         $/
.      ="\4       0")for(       0..53          );
$       /.="        \n"}system("cls           ")
;p       ri nt          "$/$q;s            ;".
c h        r(92)                         ."s;
 ; g;       eva l\n"                  }

';s;\s;;g;eval