var s:char; n,t,i,m,j:integer;f,g:text;
begin
assign (f,'text.in');reset(f);
assign (g,'text.out');rewrite(g);
repeat
read (f,s); t:=ord(upcase(s));
if (t>=65) and (t<=90) then begin  n:=n+1;
if i=0 then m:=m+1; i:=1;end else i:=0;
until eof(f);
write (g,n div m);
close(f);close(g);
end.