Cont.T1
module T : Core_kernel.T
module M : Monad
type r = T.t
type 'a m = 'a M.t
type 'a t = ('a, r m) cont
type 'a e = ('a -> r m) -> r m