    ])
 
 
-(js/setInterval next-step! 1000)
+(js/setInterval next-step! 100)
 
 (reagent/render-component [world]
                           (. js/document (getElementById "app")))

    }

    :turtle {
      :x 10
      :y 10
      :rot 0
    }

  }))


(defn play! []
  (swap! app-state assoc-in [:program :mode] :play))

(defn stop! []
  (swap! app-state
    (fn [prev-state]
      (-> prev-state
        (assoc-in [:program :mode] :stop)
        (assoc-in [:program :step] 0)))))


(defn next-step! []

      :mode :stop
      :step 0
      :code [
        [:left]
        [:forward 1]
        [:right]
        [:forward 1]
        [:left]
        [:forward 1]
      ]
    }

