program textcuv;
 const
      alfabet=['a'..'z','A'..'Z'];
 var
    f:text;
    ch:char;
    c,l:longint;
     r:real;
begin
 assign(f,'text.in');
 reset(f);
  read(f,ch);
   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);
         read(f,ch);
        end;
    end;
     close(f);
 assign(f,'text.out');
 rewrite(f);
  write(f,int(l/c));
 close(f);
end.