var s:string;
    f,g:text;
    k,l,c,i:longint;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,s);
k:=0;
l:=0;
for i:=1 to length(s) do begin
                         if (ord(s[i])>64) and (ord(s[i])<123) then k:=k+1
                                                              else begin
                                                                   l:=l+1;
                                                                   if (ord(s[i-1])<64) and (ord(s[i-1])>123) then l:=l-2;
                                                                   end;
                         end;
c:=k div l;
write(g,c);
close(f);
close(g);
end.