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