var a:string;
i,nr,nr1,t:integer;
f,g:text;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
readln(f,a);
i:=1;
nr:=0;
nr1:=0;
while i<length(a) do begin
  t:=0;
  if upcase(a[i]) in ['A'..'Z'] then
    while upcase(a[i]) in ['A'..'Z'] do begin
      inc(nr);
      delete(a,i,1);
      inc(t);
    end
  else
  inc(i);
  delete(a,i,1);
  if t>0 then
    inc(nr1);
end;
writeln(g,trunc(nr/nr1));
close(f);
close(g);
end.