withState f m = modify f >> m
>>> runPureEff $ withState 10 $ \st -> do n <- get st pure (s -> (2 * n, s)) (20,10)