(defcomp ()
  (div (~tw :tokens "space-y-2")
    (div (make-spread (~tw :tokens "rounded-lg p-3 bg-rose-50 border border-rose-200"))
      (p (~tw :tokens "text-sm text-rose-800 font-semibold") "Spread child styled this div")
      (p (~tw :tokens "text-xs text-stone-500") "The spread emitted into the element-attrs provider."))
    (let ((card (make-spread (~tw :tokens "rounded-lg p-3 bg-amber-50 border border-amber-200"))))
      (div card
        (p (~tw :tokens "text-sm text-amber-800 font-semibold") "Stored spread, same mechanism")
        (p (~tw :tokens "text-xs text-stone-500") "Bound to a let variable, applied when rendered as child.")))))
