                row5
                nil
                row5
-               row2]
+               (row-n-m 2 5)]
            18 [row5
                row5
                nil

                   :borderBottomColor "black"}}
          (for [[i row] (zipmap (range) (dicen n))
                :let [row (if (nil? row) [0 0 0 0 0] row)
                      gap? (or (nil? row) (= row [0 0 0 0 0]))]]
            (view {:key   (str "r" i)
                   :style {:flexDirection  "row"
                           :justifyContent "space-around"}}

           40 block40
           })

(defn layout25
  [n]
  (let [kk (fn [k] (* 5 (inc k)))]
    (map-indexed #(cond
                    (< (kk %1) n) row5
                    (and (= (kk %1) n) (< (kk %1) (inc n))) (row-n-m (mod %1 5) 5)
                    :else [0 0 0 0 0]) (range 5))))


(defn dicen
  "layout n icons in an easy to count manner (dice-like for small n)"
  [n]
  (cond
    (< n 11) (get dice n)
    ;(< n 24) (append-block block10 n)
    ;(< n 30) (append-block block20 n)
    ;(< n 40) (append-block block30 n)
    :else (append-block block40 0)
    ))

