   (map #(str/split % #"") table))
 
 (def matrix (table->matrix r))
+matrix
 
-[row col]
-[0 0]:: [0 1] [1 0] [1 1]
-
-[1 1]:: [0 0] [0 1] [0 2]
-        [1 0]       [1 2]
-        [2 0] [2 1] [2 2]
+;[row col]
+;[0 0]:: [0 1] [1 0] [1 1]
+;
+;[1 1]:: [0 0] [0 1] [0 2]
+;        [1 0]       [1 2]
+;        [2 0] [2 1] [2 2]
 
 
 (defn gen-neighbours-by-row [[row col] row-func]

;;  (1 0) (1 1)  (1 2))

matrix

      (gen-raw-neighbours-by-row [row col] row-func))))
  
(gen-neighbours-by-row [0 1] dec) ;; ()
(gen-neighbours-by-row [0 1] inc) ;; ((1 0) (1 1) (1 2))
(gen-neighbours-by-row [1 1] dec) ;; ((0 0) (0 1) (0 2))

(defn gen-neighbours-for [[row col :as cell-coordinates]]
