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 
  }
  $iif($isid,return,msg #) %string
}