init();

$mw->bind("KeyPress>",sub {exit});

while(1)
{
    life();
    DoOneEvent();
}

sub life
{
  updatecells();
  showcells();
}