var s:array[1..1024] of char;
    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;         nr:=0;
while not eoln(f) do
      begin
      inc(nr);
      read(f,s[nr]);
      end;
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.