rush hour in haskell lol lol lol