var a,b,n,m,i,j:longint;
    c,c1:char;
    s:set of char;
begin
assign(input,'text.in');
reset(input);
 s:=['a'..'z'];
 s:=s+['A'..'Z'];

c1:='1';
while not eof do
 begin
  read(c);
  if not (c in s) and (c1 in s) then n:=n+1;
  if (c in s) then m:=m+1;
  c1:=c;
 end;
close(input);
assign(output,'text.out');
rewrite(output);
write(m div n);
close(output);
end.