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