******** unf37 **********

	for( i=1; i<n; i++ )
		swap( &a[i], &a[ rand_int(0,i) ] );