 
 (defn noise-to-tiles
   [x y noise]
-  (tile
+  (mk-tile
     (cond
       (< noise 0) :air
       (< noise 0.15) :dirt
       :else :stone)))
 
 (defn grow-grass
-  [tiles x y t]
+  [tiles x y tile]
   (if (and
-        (= (:kind t) :dirt)
+        (= (:kind tile) :dirt)
         (= (:kind (tile-at tiles x (dec y))) :air))
-    (tile :grass)
-    t))
+    (mk-tile :grass)
+    tile))
 
 (defn new-chunk
   [width height]

                  :air true
                  :ore false})

(defn tile
  [kind]
  (if (= kind :ore)
    (println "HEYO!"))
  {:kind kind
   :passable (passability kind)})



(defn ores-transform
  [tiles x y noise]
  (let [tile (tile-at tiles x y)]
    (if (and (= (:kind tile) :stone) (< noise -0.7))
      (mk-tile :ore)
      tile)))

(defn hills-caves-transform
  [x y noise]
