`((article (@ (class "single"))
(header
(h1 ,(post-ref post 'title))
(p ,(date->string* (post-date post))))
,(post-sxml post)
(div (@ (class "tag-cloud"))
`((article (@ (class "single"))
(header
(h1 ,(post-ref post 'title))
(p ,(date->string* (post-date post))))
,(post-sxml post)
(div (@ (class "tag-cloud"))