alias reverse {
  var %c = $len($1)
  while ( %c ) {
    if ( $asc($mid($1,%c,1)) != 32 ) {
      var %r = %r $+ $mid($1,%c,1)
    }
    else {
      dec %c
      var %r = %r $mid($1,%c,1)
    }
    dec %c
  }
  return %r
}

alias reverse {
 
  var %1- = $replace($$1-, $chr(32), $chr(127))  | ; Input string (spaces excepted)
  var %string                                    | ; Output string
  var %i = 1                                     | ; Loop index to go character by character through the string
 
  while $mid(%1-, %i, 1) {                       | ; While there are more letters in the input string
    %string = $ifmatch $+ %string                | ; Add the current letter to the beginning of the string
    inc %i                                       | ; Go to the next letter
  }
 
  return $replace(%string, $chr(127), $chr(32))  | ; Replace the spaces in the output string and pass it back
 
}