html.el

(defun html (x)
  "Return valid HTML code constructed from passed list"
  (if (not (listp x))
      x
    (let ((tag (car x))
          (body (cdr x)))
      (if (and (listp (car body)) (string= "attributes" (first (car body))))
          (concat "<" tag " " (car (cdr (car body))) ">"
                  (apply 'concat (mapcar 'html (cdr body)))
                  "</" tag ">")
        (concat "<" tag ">"
                (apply 'concat (mapcar 'html body))
                "</" tag ">")))))