waffle example added by andyjpb on Thu Jun 11 15:57:21 2015
-----
(markup . `((label (@ (class ,(map (cut string-append "btn-" <>) classes))) ,@contents))
(attributes '((classes "warning")))
-----
(waffle->html '(html (head) (body (label (@ (class "warning"))))))