program test;
var be,ki:text;
    nrcuvinte,lungcuvinte:longint;
    c:char;
    H,sep:set of char;

procedure kihagyasok;
begin
 while (c in sep)and(not(eoln(be))) do read(be,c);
end;

begin
 h:=['A'..'Z','a'..'z'];
 sep:=['.',' ',',','?','!','-','_'];
 assign(be,'text.in');
 assign(ki,'text.out');
 reset(be);
 rewrite(ki);
 nrcuvinte:=1;
 lungcuvinte:=0;
 c:=' ';
 kihagyasok;
 if eoln(be) then begin writeln(ki,0);close(ki);halt;end;
 repeat
  if c in sep then inc(nrcuvinte);
  kihagyasok;

  while c in h do
   begin
    inc(lungcuvinte);
    if eoln(be) then break
     else read(be,c);
   end

 until eoln(be);
 {writeln(lungcuvinte);
 writeln(nrcuvinte);
 writeln(lungcuvinte / nrcuvinte:6:6);
 writeln(lungcuvinte div nrcuvinte);
 readln;}
 writeln(ki,lungcuvinte div nrcuvinte);
 close(ki);
end.