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