let create_file f =
  close_out (open_out f)