S=gets;t=0;$<.each{|a|i=-1;t+=1while i=S.index(a,i+1)};p t