[Haskell-beginners] Grappling with State Monad get