A very simple game of life in haskell