ll n,k,j,t,z;char s[51];{rd(n,k,s);t+=s[(1..k),t?--t:++z,j*=j<n,j++]-48;wt(z);}