make state monad strict