program Text;
var s:string;t:text;i,lit:integer;cuv:byte;
begin
 assign(t,'text.in');
 reset(t);
 readln(t,s);
 close(t);
 i := 1; lit := 0; cuv := 0;
 while i <= length(s) do
 begin
 if (upcase(s[i]) >= 'A') and (upcase(s[i]) <= 'Z') then
 begin
   while (upcase(s[i]) >= 'A') and (upcase(s[i]) <= 'Z') do
   begin
    lit := lit + 1;
    i := i + 1;
   end;
 cuv := cuv + 1;
 end
 else i := i + 1;
 end;
assign(t,'text.out');
rewrite(t);
write(t,int(lit/cuv));
close(t);
end.