let is_dir_sep s i = let c = s.[i] in c = '/' || c = '\\' || c = ':'