var
a,q,k,l,n,w,w1:longint;
s:ansistring;
ans:string;
begin
assign(input,'pisoar.in');
reset(input);
assign(output,'pisoar.out');
rewrite(output);
readln(k,l,n);
readln(s);
ans:='NO';
s:=s+'.';
w:=0;
repeat
while s[w+1]='0' do inc(w);
w1:=w;
a:=0;
while s[w+1]='1' do
begin
inc(a);
inc(w);
end;
if (q<>0)and(a<>0) then
if q+l<=w1 then
begin
writeln(q+l);
q:=0;
ans:='';
end
else
q:=w;
if a>=k then q:=w;
until s[w+1]='.';
if q<>0 then
begin
writeln(q+l);
ans:='';
end;
writeln(ans);
close(input);close(output);
end.