******** fig3.11 **********

	/* Return position of x in L; NULL if not found */

	position
	find( element_type x, LIST L )
	{
		position p;

/*1*/		p = L->next;
/*2*/		while( (p != NULL) && (p->element != x) )
/*3*/			p = p->next;

/*4*/		return p;
	}