let save_hum ?perm file sexp =
  save_of_output ?perm (output_sexp_nl output_hum) file sexp