    ;; A cell
   {:entanglements {0 {:player 0
                       :turn 0
-                      :pair 1
+                      :pair [4 2]
                       :focus false
                       :collapsing true}
                    1 {:player 1
-                      :pair 2
+                      :pair [4 2]
                       :turn 1
                       :focus true}}
    :classical {:player 0

      (assoc-in [:board cell :entanglements subcell]
        {:player (:player game)
         :turn (:turn game)
         :pair pair-cell
         :focus *speculative*})
      ;; update the entangled spooky mark
      (update-in [:board pair-cell :entanglements pair-subcell] assoc
        :focus *speculative*
        :pair cell)
      ;; remove the pair tracker
      (dissoc :pair)
      ;; change the player

        (reduce (fn [g cell]
                  (let [collapsing-subcells
                        (keep
                          (fn [[sub e]] (when (contains? collapsing-cells (first (:pair e))) sub))
                          (get-in g [:board cell :entanglements]))]
                    (reduce #(assoc-in %1 [:board cell :entanglements %2 :collapsing] true) g collapsing-subcells)))
          (assoc game :collapsing true)
