s''map{$j
                            ^=1;map{$g{$j}{
                           $_}=1}split//}spl
                          it"/",$G||="23/3";s
                          ub#g{$z=pop;$r=\$C[
                          64*$x+$y];$Q=$x<0||
                          $x>63||$y<0||$y>63?
                           0:$$r;if($z>=0&&$
                            Q!=$z){$$r=$z;$
                               M=512*$x+

                                                        8*$y;$I=$
                                                     I[$M]and$c->del
                                                    ete($I);$I[$M]=cr
                                                   eateOval$c(3+8*$x,3
                                                   +8*$y,9+8*$x,9+8*$y
                                                   ,-f=>$z?"blue":$N,o
                                                   utline=>$N)}$Q}use#
                                                    Tk;$m=new#MainWin
                                                     dow(title=>$G);
                                                        $c=$m->Ca

      nvas(w,51                4,he,514)                ->pack;af
   ter$m(1,sub{$N=          cget$c(bg);@S=0          ..63;map{$a=2+8
  *$_;@D=(2,$a,515,        $a);map{createLin        e$c(@D);@D=($a,@D
 );pop@D}7..8}@S,64;      $F?do{open(_,$F);ma      p{$x=0;map{g(/@/);$
 x++}split//;++$y;}<      _>}:map{$x=$_;map{$      y=$_;g(1>rand#4)}@S
 }@S;{for$p(@S){map{      $q=$_;$t=0;for$v(-1      ..1){map{$x=$p+$_;$
 y=$v+$q;$g=g(-1);$_      ||$v#or$G=$g;$t+=$g      ;}(-1..1)}$N[64*$p+
  $q]=$g{$G||0}{$t-        $G}}@S}for$x(@S){        map{$y=$_;g+$N[64
   *$x+$_]}@S}upda          te$m;redo}});Ma          inLoop';s#\s##g
      ;s&#& &g;                ($F,$G)=@                ARGV;eval