$<.map{|l,n=1|l[l.to_i.to_s n+=1]?p(n):redo}