Writer.T1
module T : Monoid.S
module M : Monad
type state = T.t
type 'a m = 'a M.t
type 'a t = ('a, state) writer m
type 'a e = ('a * state) m