 
 (defn new-board []
   (reduce
-    (fn [r [color [x y]]] (assoc-in r [x y] color))
+    (fn [r [color point]] (assoc-in r point color))
     empty-board (init-positions)))
 
 

       (str (name p) ": " (get scores p))])
    ))

(defn greeting []
  [:h1 "Triboard"
   [show-scores @scores @current-player]
   (into

       ))
   ])

(reagent/render [run-game]
  (js/document.getElementById "app"))
