let
file_exists f =
try
let
_ =
Unix
.stat f
in
true
with
_
->
false