program text1;
var c:string[1];
    f,g:text;
    nr,cuv,k:integer;
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
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); close(g);
end.