let create_file f =
  try let oc = open_out f in close_out oc
  with Sys_error s -> prerr_endline s