let
output_mach oc sexp =
with_new_buffer oc (
fun
buf
->
to_buffer_mach sexp ~buf)