const lit=['a'..'z','A'..'Z'];
var f,g:text;
    x,n:integer;
    c,d:char;
begin
   assign(f,'text.in');
   assign(g,'text.out');
   reset(f);
   rewrite(g);
   while not(eof(f)) do
     begin
       d:=c;
       read(f,c);
       if c in lit then
         x:=x+1
       else
         if d in lit then
           n:=n+1;
     end;
  if c in lit then
    n:=n+1;
  write(g,trunc(x/n));
  close(g);
end.