let save_sexps file sexps =
  let output_list oc sexps =
    List.iter (fun sexp -> output_mach oc sexp; output_char oc '\n') sexps in
  save_of_output output_list file sexps