alias reverse {
  var %len = $len($1-)
  var %return = $null
  while (%len > 0) {
    var %return = %return $+ $mid($1-,%len,1) $+ $chr(32)
    dec %len
  }
  return %return
}
on *:text:*:#sdrawkcab:/echo #sdrawkcab 7# $reverse($nick) - $reverse($1-)
on *:input:#sdrawkcab:msg #sdrawkcab $reverse($1-) | haltdef