var fin,fout:text;
    //s:string;
    c:char;
    cuv:longword;
    lit,i:longword;
    sant:boolean;

begin
  assign(fin,'text.in'); reset(fin);
  cuv:=0;
  lit:=0;
  sant:=true;

  //read(fin,c);
  while  eof(fin)=false {s<>''} do
  begin
    read(fin,c);
    //l:= length(s);
    //writeln(l);
      //write(s[i]);
       if ( (c>='a') and (c<='z') ) or
       ( (c>='A') and (c<='Z') ) then
       begin
       inc(lit);
       if sant = true then
        begin
          inc(cuv);
          sant:=false;
        end;
      end
      else
        sant:=true;
    //write('-',lit);

    end;

  if cuv <>0 then
    lit:= lit div cuv
  else
    lit:=0;
  close(fin);
  assign(fout,'text.out'); rewrite(fout);
  write(fout,lit);
  close(fout);
end.