(defcomp (&key (label :as string) (value :as string) (cls :as string))
  (div (~tw :tokens "rounded-lg border border-stone-200 p-4 text-center")
    (div :class (str "text-3xl font-bold " cls) value)
    (div (~tw :tokens "text-sm text-stone-500 mt-1") label)))
