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