var f,g:text;
	lit,cuv,i:longint;
	s:string;
begin
	lit:=0;cuv:=1;
	assign(f,'text.in');
	reset(f);
	readln(f,s);
	close(f);
	for i:=1 to length(s) do
		if (s[i] in ['A'..'Z','a'..'z']) then
		begin
			lit:=lit+1;
			if s[i-1] = ' ' then
				cuv:=cuv+1;
		end;
	assign(g,'text.out');
	rewrite(g);
	write(g,lit div cuv);
	close(g);
end.