let to_string (sl : string list) : string = 
 let ll = List.map to_line sl in
 big (^) ll