Reverse

On *:TEXT:*:#:{
  if ($1 = !reverse) {
    set %x $calc($len($1-) + 1)
    unset %resultat
    tokenize 32 $replace($2-, $chr(32), $chr(160))
    while %x > 1 {
      dec %x
      var %resultat = %resultat $+ $mid($1-, %x, 1)
    }
    msg $chan %resultat
    halt
  }
}