let save_hum file sexp = save_of_output (fun oc sexp -> output_hum oc sexp; output_string oc "\n") file sexp