 (defn vsnoise
   [fnoise]
   (fn [[x y]]
-    (vec(fnoise x y) (fnoise (+ x 12.301) (+ y 70.261)))))
+    (vec (fnoise x y) (fnoise (+ x 12.301) (+ y 70.261)))))
 
 (defn vnoise
   [noise]
   (fn [[x y]]
-    (vec(rn/noise noise x y) (rn/noise noise (+ x -78.678) (+ y 7.6789)))))
+    (vec (rn/noise noise x y) (rn/noise noise (+ x -78.678) (+ y 7.6789)))))
 
 (defn v+
   [xy-or-fn-0 xy-or-fn-1]

    :else
      (v+ xy-or-fn-0 (v* -1 xy-or-fn-1))))

#_(defn sample-tree
  (offset [-0.5 -0.5] (v+ [-0.5 -0.5 -0.5] (scale 0.01 noise))))

#_(defn sample-island
  [noise x y]

      (wrap-constant xy-or-fn)
    (fn? xy-or-fn)
      xy-or-fn))

(defn coerce [f]
  (fn [x y]
    (f [x y])))

(defn noise [n]
  (fn [[x y]]
    (rn/noise n x y)))

(defn snoise [n]
  (fn [[x y]]
    (rn/snoise n x y)))

(defn offset
  [xy-or-fn f]
