   [n cols w h]
   (->>
     (range (* cols (Math.ceil (/ n cols))))
-    (map-indexed #(if (< %1 n) 1 0))
+    (map-indexed #(if (< %1 n) (inc %2) 0))
     (partition-all cols)
     (partition-all h)
     (interpose (repeat cols 0))

                                                  "rgb(0,0,0,0)")
                                        :color  (if (and (zero? i) (zero? j))
                                                  ((if (> rr 1) :text-icons :dark-primary) palette)
                                                  "white")     ; (if (highlight (+ j (* i rows))) "black" "white")
                                        })))))))))






(rum/defc page < rum/reactive []
  (let [scenar ((rum/react stories) (rum/react story-index))
        palette (get-palette (rum/react palette-index))
        br (:baseline-risk scenar)
        rr (:relative-risk scenar)
        nn (number-needed rr br)
        ; we don't want to highlight the first icon - as that is already allocated to be the 'one'.
        highlight (into #{} (map inc (ffloyd-sample (- nn 2)
                                                    (max 0 ((if (> rr 1) identity dec) (anyway rr br))))))
        [w h] (screen-w-h)
        w (- w 0)
        h (- h 168)                                         ; adjustment for existing header and footer
