program text_infoarena;
 type sir = array[1..1048576] of char;
 var a: sir;
     i,n: longint;
     nrc,lung_cuv: integer;
     f: text;
 begin
  assign(f,'text.in'); reset(f);
   i:=1;
   while not eof(f) do begin
     read(f,a[i]);
     inc(i);
   end;
  Close(f);

  n:=i-1;
  a[n+1]:=' ';

  for i:=1 to n do
    if a[i] in ['.',',','?',';',':','''','<','>','!','-','_'] then
      a[i]:=' ';

  nrc:=0;
  lung_cuv:=0;
  for i:=1 to n+1 do begin
    if Upcase(a[i]) in ['A'..'Z'] then inc(lung_cuv);
    if (Upcase(a[i]) in ['A'..'Z']) and (a[i+1]=' ') then inc(nrc);
  end;
  assign(f,'text.out'); rewrite(f);
    write(f,lung_cuv div nrc);
  Close(f)
 end.