   (concat
    [:right (rand-int 360)]
    (rand-flake flake/flake)
-   (goto-random 1000 2500)
-   (flake/simple-flake (rand-range 100 200))
-   (goto-random 1200 2000)
+   (goto-random)
+   (flake/simple-flake (rand-range 50 200))
+   (goto-random)
    (rand-flake flake/complex-flake)
-   (goto-random 2200 3500)))
+   (goto-random)))
 
 (defn simple-flakes
   []

  (:use [turtle.core :only [draw!]]
        [turtle.renderer.canvas :only [->canvas]])
  (:require [cljs-flake.flake :as flake]))

(defn- rand-range
  [min max]

  (concat
   [:color :blue]
   (->> combo2
        (repeatedly 15)
        (apply concat))))

(def canvas (js/document.getElementById "canvas"))

(def ctx (.getContext canvas "2d"))

(set! (.-width canvas) max-width)
(set! (.-height canvas) max-height)

(draw! (->canvas ctx) (scenery))
