    (experiments/make-experiment-set
     "ib-taxi"
     [:product
-     [:run        [1  2  3]]
+     [:run        [1  ]]
      [:size (vec (range 1 16))]
      [:constrain? [true false]]
      [:alg (      keys taxi-algs)]

    (fn [m] `(textbook/uniform-cost-search ~'init))
    'angelic.scripts.experiments-11icaps 10 3600 512 false ::ExpResult))


(comment
;;;;;;; miconic

 (def miconic-algs
      [[[:baseline] "base"]
       [[:asplan] "bi"]])

 

 (defonce *results* nil)
 (defn read-results []
   (def *results* 
        (experiments/experiment-set-results->dataset 
         (experiments/read-experiment-set-results (make-exp-set))))))





(comment
 (def *alg-order* ["H-UCS" "DH-UCS" "DSH-UCS" "AHA*" "DAHA*" "DASHA*"])
 (defn order [things key-fn desired-order]
   (let [m (group-by key-fn things)]
     (map #(first (util/safe-get m %)) desired-order)))

