    ["dash-astar-nos" `(da/implicit-dash-a* (nsh ~'init) :abstract? false)]
    ["dash-astar-nods" `(da/implicit-dash-a* (nsh ~'init) :abstract? false :decompose? false)]])
 
-
-
 (defn make-ns-exps [& [test]]
   (for [[n f] ns-algs]
-    [n [(fn [sz rep]
+    [n [(fn [sz rep] 
           (let [size (nth +ns-sizes+ sz)]
             (experiments/make-experiment
              (str n "-" sz "-" rep)


;; Skip: explicit-ah-astar explicit-dash-astar

(def ns-slow-algs [:go-dfbb :sahtn :dsh-ucs :inv-dsh-ucs :h-ucs :optimistic-ah-astar :strict-ah-astar :dijkstra :astar 
                   :full-ah-astar :dash-astar ;-ldfs 
                   ])

(def ns-fast-algs [:dash-astar-nods :astar :dash-astar-first :dash-astar  :dash-astar-hoc :dash-astar-nos 
                   :full-ah-astar :dash-astar-ldfs])


(defn make-ns-charts []
  (let [opts (fn [t yr]
               {:title (str "random nav-switch problems - " t " algorithms")
                :xlabel "grid size (side length)" :ylabel "runtime (s)"
                :xrange "[5:500]" :yrange yr})]
    (make-chart @ns-results ns-slow-algs :secs (opts "slower" "[0:50]"))
    (make-chart @ns-results ns-fast-algs :secs (opts "faster" "[0:12]"))))




    :sahtn               [sa 4  "SAHTN"]

    :h-ucs               [na 5  "H-UCS"]
    :dsh-ucs             [na 26  "DSH-LDFS"]
    :inv-dsh-ucs         [na 7  "DSH-UCS"]

    :optimistic-ah-astar [ah 8  "AH-A*-opt"]
