(defcomp
  ()
  (let
    ((card (~tw :tokens "bg-stone-50 rounded-lg p-4 shadow-sm border border-stone-200"))
      (heading (~tw :tokens "text-violet-700 text-lg font-bold"))
      (body-text (~tw :tokens "text-stone-600 text-sm mt-1")))
    (div
      (~tw :tokens "space-y-3")
      (div
        card
        (h4 heading "First Card")
        (p body-text "Named spreads bound with let."))
      (div
        card
        (h4 heading "Second Card")
        (p body-text "Same variables, consistent look.")))))
