(defn all-best-by-value [ks]
(let [b (best-by-value ks)]
(filter #(= (:value b) (:value %)) ks)))
(defn print-knapsacks [ks]
(doseq [k ks]
(print-knapsack k)
(println)))