[Haskell-beginners] Transforming (State s a) to (StateT s m a)