Coffee Machine in Haskell