let
to_string ?(d=
" "
) m =
to_line (big (merge
"\n"
) (
List
.map (big (merge d)) m))