Поскольку раздел
Серверные языки и технологии, предложу такой вариант...
n
s url="example.com/example/page_N"
w !,$$short(url)
s url="example.com/example/example/index.php"
w !,$$short(url)
q
/// Укоротить URL
short(Url)
n words,wrd1,wrd2
s words=$l(url,"/")
s wrd1=$p(url,"/",1,words-2)
s wrd2=$p(url,"/",words)
q wrd1_"/"_wrd2
Вот что выводит
d ^tmp
example.com/page_N
example.com/example/index.php