on 1:input:*:{

 if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }

 if ($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,$+(12,$upper(\1),4))

 %b = %b $+(%e,%f)

 }

 }

 if (!%b) { %b = $1- }

 else { say %b }

 halt

 :end

 } 

%e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4))