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