(defmethod render-page ((page page))
  (format nil
          (with-html-string
            (:doctype)
            (:html
             (:head
              (loop for header-item in (head page) do
                    `(,header-item)))
             (:body
              (loop for body-item in (body page)
                    body-item
                    ))))))