function inspect ( pq : tree ) : typekey;
	begin
	if pq = nil then Error {*** Inspecting an empty queue ***};
	while pq^.left <> nil do pq := pq^.left;
	inspect := pq^.k
	end;