var f,g:text;
     betu:char;
      j,i,dbsz,dbbe,osz,obe:longint;

begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g);
 dbbe:=0;
 dbsz:=0;
   while not eof(f) do           begin
     while not eoln(f) do begin
     read(f,betu);
     if (dbbe=0) then if (betu=' ') or (betu='-') then dbsz:=0;
      if (betu>='A')and (betu<='z') then   inc(dbbe) ;
       if (betu=' ') or (betu='-') then inc(dbsz);
                        end;
         osz:=osz+(dbsz+1);
         dbsz:=0;
         obe:=obe+dbbe;
         dbbe:=0;
         readln(f);
                                  end;

        write(g,(obe div osz));

      close(f);
      close(g);
      end.