let safe_remove_file file =
  try Sys.remove file
  with Sys_error _ -> ()