Maze roguelike in haskell