 (defn draw-slices
   "Draw n * m slices from the collection"
   [n slices positions]
-  (map
+  (mapcat
     (fn [k] (map vector
               (repeat (nth slices k))
               (subvec positions (* k n) (* (inc k) n))

(defn new-board
  "Create a new board"
  []
  empty-board)

;; -----------------------------------------



(defn empty-cell
  "Draws an empty cell"
  [x y color]
  [:rect {:width 0.9
          :height 0.9
          :x (+ 0.05 x)
