ll@n,a=0,b=-1,c,d;
string@s;
rep(i,n)s[i]&1?d=i-b>>1,c=~b?c<d?a=b+d,d:c:i,b=i:0;
wt(c<n-b-1?n:a+1);