                          (view {:style {:flex           1
                                         :flexDirection  "column"
                                         :justifyContent "flex-start"}}
-                               (nested-n-square* w 33)
+                               (nested-n-square* w h testn)
                                #_(view {:style {:flexDirection     "column"
                                                 :height            w
                                                 :justifyContent    "space-around"

               [1 1 1]
               [1 1 1]]
           10 block10
           11 (approw block10 1)
           12 (approw block10 2)
           13 (approw block10 3)
           14 (approw block10 4)
           15 (approw block10 5)
           16 (approw block10 6)
           17 (approw block10 7)
           18 (approw block10 8)
           19 (approw block10 9)
           20 block20
           21 (approw block20 1)
           22 (approw block20 2)
           23 (approw block20 3)
           24 (approw block20 4)
           25 (approw block20 5)
           26 (approw block20 6)
           27 (approw block20 7)
           28 (approw block20 8)
           29 (approw block20 9)
           30 block30
           31 (approw block30 1)
           32 (approw block30 2)
           33 (approw block30 3)
           34 (approw block30 4)
           35 (approw block30 5)
           36 (approw block30 6)
           37 (approw block30 7)
           38 (approw block30 8)
           39 (approw block30 9)
           40 block40
           })
(def dicen (partial get dice))

(defn nested-n-square*
  [w n]
  (let [a (Math.ceil (Math.sqrt n))]
    (view {:style {:flexDirection     "column"
                   :height            w
                   :justifyContent    "space-around"
                   :borderBottomWidth 1
                   :borderBottomColor "black"}}

    :or   {size 100 draw? true key nil}}]
  (view {:key   key
         :style {:backgroundColor "orange"
                 :paddingTop 1
                 :aspectRatio     1
                 :opacity         (if draw? 1 0)
                 :justifyContent  "space-around"
