type vector=array[1..52] of byte;
const v:vector=(65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,97,98,99,100,101,102,
103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122);
var c:char;
nr,nrs:longint;
f,g:text;
i:byte;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
while eof do
begin
read(f,c);
if c=' ' then inc(nrs)
else
begin
for i:=1 to 52 do
if ord(c)=v[i] then
begin
inc(nr);
break;
end;
end;
end;
write(g,nr div nrs);
close(f);
close(g);
end.