            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 23) (get dice n)
-    (< n 24) (append-block block10 n)
-    (< n 30) (append-block block20 n)
-    (< n 40) (append-block block30 n)
+    (< 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)
     ))
 


(def row10 "row of 10" (vec (concat row5 [0] row5)))
(def row15 "row of 15" (vec (concat row5 [0] row5 [0] row5)))
(def rown [row0 row1 row2 row3 row4 row5])

(def block10 "two rows of 5" [row5 row5])


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

(def testn 3)

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