>     while (*r)
>       {
>         if (*r == '/')
>     {
>            r++;
>            n = r;
>         }
>       }