(defmacro render-page (page)
  `(format nil
           (with-html-string
             (:doctype
              (:html
               (:head
                ,@(loop for header-item in (access page :head)
                        collect header-item))
               (:body
                ,@(loop for body-item in (access page :body)
                        collect body-item)))))))