on *:input:#:{
  if (/* iswm $1) || (!* 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) $+(,%c,) }
    else { %b = %b %c }
  }
  if (!%b) { %b = $1- }
  say %b
  halt
}

on *:input:*:{
if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
var %wn $numtok($1-,32)
while (%wn > 0) {
if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
}
}
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,’,^,%,&,/,_,~,`,”])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)