let
with_file_out_bin fn func =
with_file open_out_bin
"with_file_out_bin"
close_out func fn