A haskell life game