                    (update-in [random-move :n] inc)
                    (update-in [random-move :total] #(+ % result))))))))
 
-(simulate (init))
+#_(simulate {:active :p2 :p1 #{3} :p2 #{}})
 

      (update-in [(:active state)] #(conj % move))
      (assoc :active (if (= :p1 (:active state)) :p2 :p1))))

(defn simulate-step [state]
  (cond (check-win (:p1 state)) 1
        (check-win (:p2 state)) -1


(defn check-north [pos bits]
  (and (< pos 21)
       (= 3 (count (clojure.set/intersection bits
                                             #{(+ pos 7) (+ pos 14) (+ pos 21)})))))

(defn check-ne [pos bits]
  (and
