Спасибо.. а то сам два часа думал.. не мог переменные нормально сделать.. сделал.. но чуть по другому.

nreg 16.12.2008 12:00

$s[строка]

$iLen(^s.length[])
^for[i](0;$iLen){^s.mid($iLen-$i;1)}