$,=shift;$/
               =shift;$ %[
               $_]=1 for @
               ARGV;while(
               1){$o='';@"
               =@%;for(1..

                            $,*$/){$o.=
                            $%[$_]?'[]'
                            :'  ';$o .=
                            "\n"if$_%$/
                            ==0;} print
                            "\033[0;0".

  "H$o";for (  $/+1..($,-1  )*$/){$:=$"
  [$_-$/ -1]+  $"[$_ -$/]+  $"[$_-$/+1]
  +$"[$_ -1]+  $"[$_+1]+$"  [$_+$/ -1]+
  $"[$_ +$/]+  $"[$_+$/+1]  ;$%[$_]=1if
  $"[$_]==0&&  $:==3;$%[$_  ]=0if$"[$_]
  &&($:<2||$:  >3)}}$"=q);  $"[$_+1]+$"

    G A M E        O F        L I F E

  Thomas Schoch www.retas.de (Nov 2006)