Miscellany

on *:input:?:{
  if ($left($1,1) != $chr(47) && $regex($chan,/help/Si) == 0) {
    tokenize 32 $replace($1-,= $+ $chr(41),14=02 $+ $chr(41) $+ )
    tokenize 32 $replace($1-,= $+ $chr(40),14=02 $+ $chr(40) $+ )
    tokenize 32 $replace($1-,=/,14=02/)
    tokenize 32 $replace($1-,>: $+ $chr(41),02>14:02 $+ $chr(41) $+ )
    tokenize 32 $replace($1-,>: $+ $chr(40),02>14:02 $+ $chr(40) $+ )
    tokenize 32 $replace($1-,>:|,02>14:02|)
    tokenize 32 $replace($1-,: $+ $chr(41),14:02 $+ $chr(41) $+ )
    tokenize 32 $replace($1-,: $+ $chr(40),14:02 $+ $chr(40) $+ )
    tokenize 32 $replace($1-,:/,14:02/)
    tokenize 32 $replace($1-,:P,14:02P )
    tokenize 32 $replace($1-,:D,14:02D)
    tokenize 32 $replace($1-,=D,14=02D)
    tokenize 32 $replace($1-,; $+ $chr(41),14;02 $+ $chr(41) $+ )
    tokenize 32 $replace($1-,;- $+ $chr(41),14;02 $+ $chr(41) $+ )
    say $1-
    halt
  }
}