[Haskell-beginners] bad state monad instances