{for(split($0,A,i=j=_);i++>9!~c=A[i];)c~/[A-Z]/&&$++j=i}1