       (draw g
             ;;            (rect x y (dec cell-size))
             (rect x y cell-size)
-            (style :background :white ;; "#F03232"
+            (style :background (if (< (rand-int 100) 50) :white :black)
+                                        ; :white ;; "#F03232"
                    :foreground :black ; broader
                    )
             )

(native!)

;; cell size
(def cell-size 9)

;; actual board size is 90 x 90
(def board-size 90)

  (+ 1
     (+ cell-size
        (* (- cell-size 1)
           (- board-size cell-size)))))

(println (str "size: " size))

