let fold_enum_by_base f m acc =
    fold_i (fun k v acc -> f (inject k v) acc) m acc