Cont.T2
module M : Monad
type 'a m = 'a M.t
type ('a, 'e) t = ('a, 'e m) cont
type ('a, 'e) e = ('a -> 'e m) -> 'e m