haskell program for finding a goal inside a maze