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

begin
 h:=['A'..'Z','a'..'z'];
 assign(be,'text.in');
 assign(ki,'text.out');
 reset(be);
 rewrite(ki);
 nrcuvinte:=0;
 lungcuvinte:=0;
 repeat
  read(be,c)
 until c<>' ';
 if eoln(be) then begin writeln(ki,0);close(ki);halt;end;
 repeat
  if c=' ' then inc(nrcuvinte);
  while c=' ' do
   begin
    if eoln(be) then break
     else read(be,c);
   end;

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

 until eoln(be);
 writeln(ki,round(lungcuvinte / nrcuvinte));
 close(ki);
end.