let
to_string_mach sexp =
let
buf = buffer ()
in
to_buffer_mach sexp ~buf;
Buffer
.contents buf