let may_remove f =
  if Sys.file_exists f then Sys.remove f