Pacman ai in Haskell