program text1;
var c:string[1];
    f,g:text;
    nr,cuv,k:integer;
begin
assign(f,'text.in'); reset(f);
nr:=0 ;
cuv:=0;
k:=1;
while not(eof(f)) do
  begin
  read(f,c);
  if ((c>='A') and (c<='Z')) or ((c>='a') and (c<='z')) then
    begin
    k:=0;
    nr:=nr+1;
    end
  else
    if k=0 then
    begin
    cuv:=cuv+1;
    k:=1;
    end;
  end;
write(g,nr div cuv);
close(f);
assign(g,'text.out'); rewrite(g);
close(g)
end.