Testing out the Haskell StateT transformer monad.