var f,g:text;
nr,nr2,t:longint;
x:char;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
nr:=0;
nr2:=0;
while not eoln(f) do begin
        read(f,x);
        if upcase(x) in ['A'..'Z'] then begin
                inc(nr);
                t:=1;
        end
        else
        if t=1 then begin
                inc(nr2);
                t:=0;
        end;
end;
writeln(g,nr div nr2);
close(g);
end.