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