let merge_map ?(sep=" ") f l = big (merge sep) (List.map f l)