(defcomp
  (&key time count)
  (div
    (p (~tw :tokens "text-stone-800 font-medium") (str "Server time: " time))
    (p (~tw :tokens "text-stone-500 text-sm mt-1") (str "Poll count: " count))
    (div
      (~tw :tokens "mt-2 flex justify-center")
      (div
        (~tw :tokens "flex gap-1")
        (map
          (fn
            (i)
            (div
              :class (str
                "w-2 h-2 rounded-full "
                (if (<= i count) "bg-violet-500" "bg-stone-200"))))
          (list 1 2 3 4 5 6 7 8 9 10))))))