var
	f:text;
	c,p:char;
	l,n:integer;
begin
	assign(f,'text.in');
	reset(f);
	n:=0;l:=0;p:='.';
	while not eof(f) do begin
		read(f,c);
		if c in ['a'..'z','A'..'Z'] then
			l:=l+1
		else
			if p in ['a'..'z','A'..'Z']
				then n:=n+1;
		p:=c;
	end;
	close(f);
	if c in ['a'..'z','A'..'Z'] then n:=n+1;
	assign(f,'text.out');
	rewrite(f);
	write(f,l div n);
	close(f);
end.