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