procedure insert ( new : tree; var pq : tree );

	begin
	if pq = nil then	pq := new
	else if pq^.k > new^.k then begin
			insert( new, pq^.right );
			fixdist( pq )
			end
	else	begin
		new^.left := pq;
		pq := new
		end
	end;