Maze generation implemented in Haskell