var f,g:text;
nr,nr1:integer;
x:char;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,x);
nr:=0;
nr1:=0;
while not eof(f) do
  while not eoln(f) do begin
      if upcase(x) in ['A'..'Z'] then begin
        while upcase(x) in ['A'..'Z'] do begin
          inc(nr);
          read(f,x);
        end;
      inc(nr1);
      end
      else
      read(f,x);
  end;
writeln(g,trunc(nr/nr1));
close(f);
close(g);
end.