     :else :in-progress)))
 
 (defn computer-move [board]
-  (let [move (rand-nth (free-spots board))]
+  (let [move (or 
+              (not-empty (free-spot board  (first (threat-lines board)))) 
+              (rand-nth (free-spots board)))]
     (assoc-in board move "O")))
-
-(defn block-attempt [board]
-  ())
 
 (defn blank [i j]
       [:rect {:width 0.95


(def board-size 3)
(def winning-k 3)
; (def player "X")
; (def computer "O")
; (def blank "B")

(defn new-board
  [n]

(defn draw? [board]
  (empty? (free-spots board)))

(defn vertical-coords [y]
  (map #(vector % y) (range board-size)))

