(let* ((sorted (sort (copy-seq data) #'<))
         (lowest (car sorted))
         (highest (car (last sorted))))

  (let ((lowest (apply #'min data))
        (highest (apply #'max data)))

          minimizing (fuel-cost sorted x #'compounding-cost))))

          minimizing (fuel-cost data x #'compounding-cost))))