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