Conway in Haskell