         positioned-lines (map (fn [line] (map #(vec [(first %)
                                                      (* (- (last %) min-x) x-step)])
                                               line))
-                              lines)
-        ]
+                              lines)]
     (doseq [pos-line positioned-lines]
       (println (reduce
                  (fn [l p]

            [rolling-stones.core :as sat :refer :all]))

(defn- lt-seq
  ([xs k]
   (lt-seq xs k (Math/random)))
  ([xs k prefix]


(defn draw-ascii
  [coords]
  (let [x-step 2
        size (count coords)
        spaces (.substring (replicate-str "   " (* size x-step)) (* size x-step))
        line-contents (map (fn [i] (filter
