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