var l,cuv,s:longint;
    c:char;
    v:0..1;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
l:=0;
cuv:=0;
s:=0;
while not  eoln(input) do begin
read(c);
if upcase(c) in ['A'..'Z'] then begin v:=1; inc(l);end
else
if (l<>0)and(v=1) then begin inc(cuv);v:=0;end;
end;
s:=l div cuv;
write(s);
close(output);
end.