let
with_new_buffer oc f =
let
buf = buffer ()
in
f buf;
Buffer
.output_buffer oc buf