runState -package:random package:mtl-prelude

Unwrap a state monad computation as a function. (The inverse of state.)