[Haskell-beginners] State Monad vs. fold