s=17{for(FS=OFS=i=_;$i=s?$i:toupper($i);)s-=0<$++i}1