on *:input:*:{
  if (/* iswm $1) { return }
  var %a 0, %b, %c
  while (%a < $numtok($1-,32)) {
    inc %a
    %c = $gettok($1-,%a,32)
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+($chr(176),/~,$chr(3),$rand(1,15),%c,$chr(3),~\,$chr(176)) }
    else { %b = %b %c }
  }
  if (!%b) { %b = $1- }
  say %b
  halt
}