loop{a=gets*i=1;i+=1until$_[a.tr!"a-z",$_];p i}