Puzzle Game in Haskell