The Fridge Game in Haskell