var t : text;
    b : boolean;
    c : char;
    i,j : longint;

begin
assign(t,'text.in');reset(t);b:=false;
while not(eof(t))do begin
  read(t,c);
  if upcase(c)in['A'..'Z']then begin b:=true;
                                     inc(i);
                                     end
                          else if b then begin inc(j);b:=false;end;
  end;close(t);assign(t,'text.out');rewrite(t);
if b then inc(j);
if j<>0 then writeln(t,i div j)
        else writeln(t,0);close(t);
end.