(defcomp
  (&key body content-type)
  (div
    (~tw :tokens "space-y-2")
    (p (~tw :tokens "text-stone-800 font-medium") "Server received:")
    (pre
      (~tw :tokens "text-sm bg-stone-100 p-3 rounded overflow-x-auto")
      (code body))
    (p (~tw :tokens "text-sm text-stone-500") (str "Content-Type: " content-type))))