let with_file_in_bin fn func =
  with_file open_in_bin "with_file_in_bin" close_in func fn