Module Semigroup.FM

val fold_map : ('a -> 'b Endo.Monoid.t) -> 'a F.t -> 'b Endo.Monoid.t