Traversable.Fold_Map_Any
M: BsBastet.Interface.MONOID_ANY
let fold_map: ('a => M.t('b)) => t('a) => M.t('b);