                   :air true
                   :ore false})
 
-(defn tile
+(defn mk-tile
   [kind]
-  (if (= kind :ore)
-    (println "HEYO!"))
   {:kind kind
    :passable (passability kind)})
 

    (letfn [(new-column [bound]
              (let [dirt (rand-in-range 1 4)]
                (vec (concat (repeat (- height bound)
                                     (tile :air))
                             (repeat dirt  (tile :dirt))
                             (repeat (- bound dirt)
                                     (tile :stone))))))]
      (vec (map new-column mrange)))))

(defn new-coord-map


(defn noise-to-tiles
  [x y noise]
  (mk-tile
    (cond
      (< noise 0) :air
      (< noise 0.15) :dirt
      :else :stone)))

(defn grow-grass
  [tiles x y tile]
  (if (and
        (= (:kind tile) :dirt)
        (= (:kind (tile-at tiles x (dec y))) :air))
    (mk-tile :grass)
    tile))

(defn new-chunk
  [width height]
