hmm looks very similar to the snippet a friend of mine made
alias reverse {
var %o = $len($1-),%i
while (%o) {
%i = $+(%i,$replace($mid($1-,%o,1),$chr(32),$chr(160)))
dec %o
}
if ($isid) return %i
else say %i
}
therefore i think it works ;)