on 1:input:*:{ 
  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }
  var %a 0, %b, %c, %d, %e, %f
  while (%a < $numtok($1-,32)) { 
    inc %a 
    %c = $gettok($1-,%a,32) 
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) } 
    else { 
      if (%a == $numtok($1-,32)) { 
        %d = $+($right(%c,1),..)
        %f = $right(%d,2)
      }
      %e = $regsubex(%c,/(?=^| )(.)/g,$+(,$upper(\1),))
      %b = %b $+(%e,%f)
    } 
  } 
  if (!%b) { %b = $1- } 
  elseif ($regex($remove($chan($active).mode,+),/(c))) { say $strip(%b) }
  else { say %b }
  halt 
  :end
}