   "Given a State instance, execute the
   wrapped computation and return the resultant
   state.
-  Shortly, return the second value of pair instance
+  Equivalent to taking the second value of the pair instance
   returned by `run-state` function."
   [state seed]
   (second (run-state state seed)))

  "Given a State instance, execute the
  wrapped computation and return the resultant
  value, ignoring the state.
  Shortly, return the first value of pair instance
  returned by `run-state` function."
  [state seed]
  (first (run-state state seed)))

  default/effect free context.

  This is multiarity function that with arity pure/1
  it uses the dynamic scope to resolve the current
  context. With pure/2, you can force a specific context
  value."
  ([v]
     (p/pure *m-context* v))
