var      f,g:text;
         uc,c:char;
         nr,num:int64;
begin
assign (f,'text.in');reset (f);
assign (g,'text.out');rewrite (g);
uc:='1';
num:=0;
nr:=0;
while not eof(f) do begin
 read(f,c);
 if upcase(c) in['A'..'Z'] then begin
  inc(num);
  if upcase(uc) in['A'..'Z'] then nr:=nr
                             else inc(nr);
 end;
 uc:=c;
end;
writeln (g,num div nr);
close(f);close(g);
end.