   and the row number i"
   [i a n]
   (- (* i a) (cond
-               (> n 9)
-               (* 2 (quot i 3) (/ a 3))
-
                (= n 6)
                (condp = i
                  0 (- (/ a 3))

                           :position "relative"}}
                  (when row
                    (for [[j col] (zipmap (range) row)]
                      (view {:style {:position "absolute"
                                     :top      (icon-top i a n)
                                     :left     (* j a)}}
                            (draw-square {:size  a
                                          :draw? (not (zero? col))
                                          :key   (str "c" j)})))
                    )))))
  )

(rum/defc nested-n-square* < rum/static
  [w h n]
  (let [padding 10
        cols (count ((dicen n) 0))
        rows (count (dicen n))
        a (/ (- w (* 2 padding)) cols)]
    (view {:style {:flexDirection     "column"
                   :width             w
                   :padding           padding
                   ;:height
                   :justifyContent    "space-around"
                   :borderBottomWidth 1
                   :borderBottomColor "black"}}
          (for [[i row] (zipmap (range) (dicen n))
                :let [row (if (nil? row) [0 0 0 0 0] row)
                      gap? (= row [0 0 0 0 0])]]
            (view {:key   (str "r" i)
                   :style {:flexDirection  "row"
                           :justifyContent "space-around"}}
                  (for [[j col] (zipmap (range) row)]
                    (draw-square {:size  (if (or gap? (and (not (zero? j)) (zero? (mod j 5)) (zero? col))) (/ a 3) a)
                                  :draw? (not (zero? col))
                                  :key   (str "c" j)})))))))


(defn draw-circle [scenar color size x y]

                     (text {:key   (gensym "text-field")
                            :style {:color      (palette-key palette)
                                    :fontWeight weight
                                    }} content))

        padding 10
        cols (count ((dicen nn) 0))
        rows (count (dicen nn))
        a (/ (- w (* 2 padding)) cols)
        ]

    (letfn [(handle-scroll [event]
              (this-as this
