var f1,f2:text; c,c1:char; lit,cuv,a,a1,x:longint;
begin
assign(f1,'text.in');
reset(f1);
assign(f2,'text.out');
rewrite(f2);
read(f1,c);
c1:=c;
a:=ord(c);
if (a>64)and(a<123) then inc(lit);
while not(eof(f1)) do begin
c1:=c;
read(f1,c);
a1:=ord(c1);
a:=ord(c);
if ((a<64)or(a>123))and((a1<123)and(a1>65)) then inc(cuv);
if (a>64)and(a<123) then inc(lit);
end;
x:=lit div cuv;
write(f2,x);
close(f1);
close(f2);
end.