Miscellany

alias unline { 
  var %x = 1
  var %y 
  while (%x <= $numtok($1-,32)) { 
    set %y $+(%y,$replace($gettok($1-,%x,32),$gettok($1-,%x,32),$+($chr(32),$chr(31),$left($gettok($1-,%x,32),1),$chr(31),$right($gettok($1-,%x,32),-1),$chr(32))))
  inc %x } 
  return %y 
}
on *:INPUT:#: {
  if ($left($1,1) == /) { return }
  haltdef
  msg $chan $unline($1-)
}