let
output_hum oc sexp =
with_new_buffer oc (
fun
buf
->
to_buffer_hum sexp ~buf)