var s:string;
    f,g:text;
    n,i,sc,nr:longint;
function lit(c:char):boolean;
begin
if (upcase(c)<='Z')and(upcase(c)>='A') then lit:=true
                                       else lit:=false;
end;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(G);
n:=0;
read(f,s);
nr:=length(s);s:=s+'*';
for i:=1 to nr do
        begin
        if lit(s[i])=true then sc:=sc+1;
        if (lit(s[i])=true)and(lit(s[i+1])=false)then inc(n);
        end;
write(g,sc div n);
close(f);close(g);
end.