-----
(markup . `((label (@ (class ,(map (cut string-append "btn-" <>) classes))) ,@contents))
(attributes '((classes "warning")))
-----

(waffle->html '(html (head) (body (label (@ (class "warning"))))))