let is_dir_sep s i = s.[i] = '/'