******** fig8.9 **********

	set_type
	find( element_type x, DISJ_SET S )
	{
		if( S[x] <= 0 )
			return x;
		else
			return( find( S[x], S ) );
	}