On 1:input:*:{ 
  if !$regex($1,/(\.|!|\/|[0-9])/i) || ($ctrlenter) {
    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,$iif(%c isnum,\1,$+(12,$upper(\1),14)))
        %b = %b $+(%e,%f)
      }
    }
    if (!%b) { %b = $1- }
    else { say %b }
    halt
  }
}