let
output_sexps_nl do_output oc sexps =
List
.iter (output_sexp_nl do_output oc) sexps