let apply_if_dir_exist name f = try let d = Unix.opendir name in Unix.closedir d; f name with Unix.Unix_error (Unix.ENOENT, "opendir",_) -> ()