                                 (append-block 10)
                                 (append-block 8)))))
 
+
 (def dice {1  [[1]]
            2  [[1 0]
                [0 1]]
-           3  [[1 1]
+           3   (blocks 500 20 5 5) #_[[1 1]
                [0 1]]
            4  [[1 1]
                [1 1]]

                  (draw-square {:size 50}))))
        ))

(def testn 6)

(def row0 [0 0 0 0 0])
(def row1 [0 0 1 0 0])

           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)
    ))

