alias reverse {
var %old = $strip($1-), %temp = $len(%old), %char, %string
while (%temp > 0) {
%char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
else { %string = %string $+ %char } | dec %temp
}
if ($isid) return %string | else return %string
}