                      (text {:key   (gensym "text-field")
                             :style {:color      (palette-key palette)
                                     :fontWeight weight
-                                    }} content))]
+                                    }} content))
+
+        padding 10
+        cols (count ((dicen nn) 0))
+        rows (count (dicen nn))
+        a (/ (- w (* 2 padding)) cols)
+        ]
 
     (letfn [(handle-scroll [event]
               (this-as this

        cols (count ((dicen n) 0))
        rows (count (dicen n))
        a (/ (- w (* 2 padding)) cols)]
    (view {:style {;:flexDirection     "column"
                   :flex    0
                   :width   w
                   :height  (+ (* 2 padding) (icon-top (count (dicen n)) a n))
                   :padding padding
                   ;:justifyContent    "space-around"
                   }}
          (for [[i row] (zipmap (range) (dicen n))]
            (view {:key   (str "r" i)

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