State.T1
module T : Core_kernel.T
module M : Monad
type env = T.t
type 'a m = 'a M.t
type 'a t = (('a, env) storage m, env) state
type 'a e = env -> ('a * env) m