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

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

     n:=0;h:=0;

     while(not eof(f)) do
     begin
          read(f,c);
          while(not (c in betu)) do read(f,c);
          while(c in betu) do
          begin
               inc(h);
               read(f,c);
          end;
          inc(n);
     end;
     close(f);
     assign(f,'text.out');
     rewrite(f);
     write(f,h div n);
     close(f);
end.