let is_exists d = Sys.file_exists d