Game of life in Haskell