colors {
  var %length = $len($1-)
  var %letter = 1
  while (%letter <= %length) {
    if ($mid($1-,%letter,1) == $chr(32)) {
      var %output = %output $+ &
      goto xxx
    } 
    var %output = %output $+  $+ $rand(03,013) $+ $mid($1-,%letter,1)
    :xxx
    inc %letter
  }
  var %output = $replace(%output,$chr(38),$chr(32))
  msg $active %output
}

rev {
  var %len = $len($1-)
  var %return = $null
  while (%len > 0) {
    var %return = %return $+ $mid($1-,%len,1) $+ $chr(32)
    dec %len
  }
  return %return
}
reverse //say $rev( $1- )