Fun.T2
module M : Monad2
type ('a, 'e) m = ('a, 'e) M.t
type ('a, 'e) t = ('a, 'e) m thunk
type ('a, 'e) e = ('a, 'e) m