   "Generate a random grid and print it out."
   [& args]
   (println "generating...")
-  (print-cells (get (random-place 80 25 0) :cells)))
-
+  (print-cells (get (random-place 0) :cells)))
+

          *
          x"
  [[x1 y1] [x2 y2]]
  #_(println "vertical-s-segment")
  (let [mid-y (int (/ (+ y1 y2) 2))]
    (concat (map #(vector x1 %)    (range* y1 mid-y))
            (map #(vector % mid-y) (range* x1 x2))

  
(defn merge-cells
  [cells]
  (let [temple-place (random-place 0)]
    (mapv (fn [line temple-line y]
            (mapv (fn [cell temple-cell x]
                   (let [cell-type (get cell :type)
