var f,g:text;
    a,s:char;
    len,nr,x:integer;
const d=['a'..'z','A'..'Z'];
procedure citire(var l,nr:integer;var s:char);
var k:integer;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,a);
len:=0;
nr:=0;
s:='0';
repeat
read(f,a);
  if (a in d)and(s in d) then len:=len+1
                         else if(a in d)and not(s in d) then begin nr:=nr+1;
                                                      len:=len+1;
                                                      end;
if a in d then s:=a
          else s:='!';
until eof(f);
end;

begin
citire(len,nr,s);
write(g,len div nr);
close(g);
end.