gets;t=0;$<.map{|s|i=-1;t+=1while i=$_.index(s.chop,i+1)};p t