Haskell clone of a certain game