procedure insert( new : list; var pq : list );
	begin
	new^.next := pq;
	pq := new
	end;