   [state]
   (merge state {:random false}))
 
-(def interval 10)
+(def interval (atom 10))
 
-(def ticker (atom interval))
+(def ticker (atom @interval))
 
 (defn get-legal-moves
   [world-state]

    world-state))


(go
  (let [read-state (reader/read-string (<! (GET "./state.edn")))]
    (big-bang!
      :initial-state (->> read-state reset-edit reset-random)

  (swap! ticker dec)
  (if (neg? @ticker)
    (do 
      (reset! ticker @interval)
      (-> world-state
          get-random-legal-move-name
          (flip-update-edge world-state)))
