program textcuv;
 const
      alfabet=['a'..'z','A'..'Z'];
 var
    f:text;
    ch:char;
    c,l:longint;
begin
 assign(f,'text.in');
 reset(f);
  l:=0;
  c:=0;
  read(f,ch);
 while not eof(f) do
  begin
   while not eoln(f) do
    begin
     while not (ch in alfabet) do
      read(f,ch);
       if not eoln(f) then
        inc(c);
       while ch in alfabet do
        begin
         read(f,ch);
         inc(l);
        end;
    end;
    readln(f);
  end;
     close(f);
 assign(f,'text.out');
 rewrite(f);
  write(f,l div c);
 close(f);
end.