**fig8_15.txt**

/* 1*/	unsigned int
/* 2*/	Disj_Sets::
/* 3*/	Find_And_Compress( unsigned int X )
/* 4*/	{
/* 5*/	    if( S_Array[ X ] <= 0 )
/* 6*/	        return X;
/* 7*/	    else
/* 8*/	        return S_Array[ X ] = Find( S_Array[ X ] );
/* 9*/	}