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