 ;; (map-to-ints (split "00" #""))
 
 ;; ((memfn Integer/parseInt) "1") ; dont work
+
+(defn get-array [input]
+  (let [row (nth *array* (first input))]
+    (assoc *array* (first input)
+      (assoc row (second input) \o))))
+
+;; (get-array [0 0])

;; 0 - put at random first empty
;; 1 - algorithm - think where is best to place char

;; in-progres:




(def array [[nil nil nil]
            [nil nil nil]
            [nil nil nil]])


  (println))

;; print array state
(print-array *array*)

;; 3 get player input
;; (with-in-str "0 0"
