(defun minimum-spanning-forest ()
  (iterate-edges miles128 
		 #'(lambda (x)
		     (push x my-p-queue)))
  (sort my-p-queue #'(lambda (x y)
		       (cond ((<= (weight x) (weight y))
			      nil)
			     (t t))))
  (weight (pop my-p-queue)))