Program p1;
  var s:char;
  i,k,k1,n:longint;
  f,g:text;
 begin
 assign(f,'text.in');reset(f);
 assign(g,'text.out');rewrite(g);
 while not eof(f) do begin
       read(f,s);
        if s in ['a'..'z','A'..'Z'] then inc(k);
           if s=' '  then inc(k1);
           end;
           n:=k div (k1+1);
           write(g,n);
 close(g);
 end.