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