program doi;
type vec=array[1..1000] of integer;
var n,nr,z,s,i:longint;
    f,t:text;
    x:char;
    a:vec;

function verif(x:char): boolean;
begin
  verif:=false;
  read(f,x);
  if upcase(x) in ['A'..'Z','0'..'9'] then
      verif:=true;
end;

function da(x:char):boolean;
begin
  da:=false;
  read(f,x);
  if x=' ' then da:=true;
end;

begin
  {--------------}
  assign(f,'text.in');
  reset(f);
  nr:=0;n:=0;
  repeat
  if verif(x) then
    begin
      nr:=nr+1;
    end;
  if da(x) then
   begin
     n:=n+1;
     a[n]:=nr;
     nr:=0;
   end;
  if seekeof(f) then
    if not da(x) then
     begin
       n:=n+1;
       a[n]:=nr;
       nr:=0;
     end;
  until seekeof(f);
  close(f);
  {---------------}
  s:=0;
  for i:=1 to n do
    s:=s+a[n];
  z:=s div n;
  assign(t,'text.out');
  rewrite(t);
  write(t,z);
  close(t);
end.