hi

alias reverse {
  var %string $replace($1-,$chr(32),$chr(96))
  var %count 1
  var %length $len(%string)
  while (%count <= %length) {
    var %backwards %backwards $right(%string,1)
    var %string $left(%string,-1)
    inc %count
  }
  return $replace(%backwards,$chr(32),$null,$chr(96),$chr(32))
}