haskell implementation of game solver 'rushhour'