var s:string;
    f,g:text;
    n,i,sc: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;
while not eoln(f) do
      begin
      read(f,s);
      for i:=1 to length(s) 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;
      end;
write(g,sc div n);
close(f);close(g);
end.