 
 ;; Path finding ----------------------------------------------------------------
 
-(def infinity #?(:clj Double/POSITIVE_INFINITY, :cljs +Infinity))
+(def inf #?(:clj Double/POSITIVE_INFINITY, :cljs +Infinity))
 (def cost
-  {nil    infinity
-   \space infinity
+  {nil    inf
+   \space inf
    \^     10
    \#     1})
 

   "##^##^#"
   "####^##"])

#_
(let [cave expensive-cave]
  (doseq [x (annotate-path cave (find-path cave [0 0] [4 4]))]
    (println x)))

#_

         (drop-while (comp seq :open))
         first
         :paths
         (path goal))))

(defn annotate-path [cave path]
  (let [dot \u00b7]
