alias reverse { var %x,%i = $len($1-) while (%i) { %x = %x $+ $replace($mid($1-,%i,1),$chr(32),_) dec %i } return $strip($replace(%x,_,$chr(32))) }