typekey inspect( pq )
	tree pq;
	{
	if ( pq == NULL ) Error /*** Inspecting an empty queue ***/;
	while ( pq->left != NULL ) pq = pq->left;
	return( pq->k );
	};