{$A+,B-,D+,E+,F-,G-,I-,L+,N-,O-,P-,Q-,R-,S-,T-,V+,X+}
{$M 16384,0,655360}

program text1;
const betu : set of char = ['a'..'z','A'..'Z'];
var c:char;
    n,h:longint;
    f:text;
    volt:boolean;

begin
     assign(f,'text.in');
     reset(f);

     n:=0;h:=0;

     while(not eof(f)) do
     begin
          volt:=false;
          read(f,c);
          while(not (c in betu)) and (not eof(f)) do read(f,c);
          while(c in betu) and (not eof(f)) do
          begin
               volt:=true;
               inc(h);
               read(f,c);
          end;
          if(volt) then inc(n);
     end;
     close(f);
     assign(f,'text.out');
     rewrite(f);
     write(f,h div n);
     close(f);
end.