runState package:bluefin

>>> runPureEff $ runState 10 $ \st -> do
n <- get st
pure (2 * n)
(20,10)