(defcomp
  (&key message)
  (p (~tw :tokens "text-sm text-rose-600") message))