open General
external print : string -> unit = "print"
external read_line : int -> string = "read_line"
let print_all (contents : string list) : unit =
print (String.concat contents)