(defcomp
  (&key headers rows)
  (div
    (~tw :tokens "overflow-x-auto rounded border border-stone-200")
    (table
      (~tw :tokens "w-full text-left text-sm")
      (thead
        (tr
          (~tw :tokens "border-b border-stone-200 bg-stone-100")
          (map
            (fn (h) (th (~tw :tokens "px-3 py-2 font-medium text-stone-600") h))
            headers)))
      (tbody
        (map
          (fn
            (row)
            (tr
              (~tw :tokens "border-b border-stone-100")
              (map
                (fn (cell) (td (~tw :tokens "px-3 py-2 text-stone-700") cell))
                row)))
          rows)))))
