$<.map{|l,n=1|l[l.to_i.to_s n+=1]||redo;p n}