on *:input:*:{
  if (/* !iswm $1) || ($ctrlenter) {
    var %^ = 1, %'
    while %^ <= $0 {
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(02 ,$gettok($1-,%^,32), 01),$gettok($1-,%^,32))
      inc %^
    }
    say 01 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
    halt
  }
}