Program iatext;
var f,g:text;
    k,l,cuv:integer;
    c:char;
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
While not eof(f) do begin
 read(f,c);
 If c in ['A'..'Z','a'..'z'] then begin inc(l);
                                        If k=0 then inc(cuv);
                                        k:=1;
                                  end
                             else k:=0;
                    end;
writeln(g,l div cuv);
close(f); close(g);
end.