[Haskell-beginners] Enforcing Monad Laws