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