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 not(upcase(c)in['A'..'Z'])then b:=false
                               else begin inc(i);
                                          if not(b) then begin inc(j);b:=true;end;
                                          end;
  end;close(t);assign(t,'text.out');rewrite(t);
if j<>0 then writeln(t,i div j)
        else writeln(t,0);close(t);
end.