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