            9  [[1 1 1]
                [1 1 1]
                [1 1 1]]
-           10 block10
-           11 (append-block block10 1)
-           12 (append-block block10 2)
-           13 (append-block block10 3)
-           14 (append-block block10 4)
-           15 (append-block block10 5)
-           16 (append-block block10 6)
-           17 (append-block block10 7)
-           18 (append-block block10 8)
-           19 (append-block block10 9)
-           20 block20
-           21 (append-block block20 1)
-           22 (append-block block20 2)
+           10 [row5
+               row5]
+           11 [row5
+               row5
+               nil
+               row1]
+           12 [row5
+               row5
+               nil
+               row2]
+           13 [row5
+               row5
+               nil
+               row3]
+           14 [row5
+               row5
+               nil
+               row4]
+           15 [row5
+               row5
+               nil
+               row5]
+           16 [row5
+               row5
+               nil
+               row5
+               row1]
+           17 [row5
+               row5
+               nil
+               row5
+               row2]
+           18 [row5
+               row5
+               nil
+               row5
+               row3]
+           19 [row5
+               row5
+               nil
+               row5
+               row4]
+           20 [row5
+               row5
+               nil
+               row5
+               row5]
+           21 [row10 row10 nil row10 row10 nil [1 1 1 1 1 0 1 1 1 1 0]]
+           22 [row15 row15 nil row15 row15 nil row15 row15 nil row15 row15 nil row15 row15 nil row15 row15 nil row15 row15 nil row15 row15 nil row15 row15 nil row15 row15 nil row15 row15]
            23 (append-block block20 3)
            24 (append-block block20 4)
            25 (append-block block20 5)

                   :justifyContent    "space-around"
                   :borderBottomWidth 1
                   :borderBottomColor "black"}}
          (for [[i row] (zipmap (range) (dicen n))]
            (view {:key   (str "r" i)
                   :style {:flexDirection  "row"
                           :justifyContent "space-around"}}
                  (for [[j col] (zipmap (range) row)]
                    (draw-square {:size  (if (zero? col) (/ a 3) a)
                                  :draw? (not (zero? col))
                                  :key   (str "c" j)})))))))


    :or   {size 100 draw? true key nil}}]
  (view {:key   key
         :style {:backgroundColor "orange"
                 :paddingTop      1
                 :aspectRatio     1
                 :opacity         (if draw? 1 0)
                 :flexDirection   "column"
                 :justifyContent  "center"
                 :alignItems      "center"
                 :width           size                      ;size
                 :borderRadius    (/ size 2)
                 }}
        (view
          {:style {:transform (clj->js [{:scale (/ size 100)}])}}
          (ionicon {:name  "ios-wine"                       ;"ios-radio-button-on"
                    :size  100
                    :style {:width           100
                            :textAlign       "center"
