read -dx l n w
w=($w)
for((;i<n?++c[w[i++]]:c[j]--?a+=j,d+=a<=l:j++<l;)){ :;}
echo $d