A basic Sokoban solver in Haskell