-HTML-
    -HEAD-
        -TITLE-Bla-/TITLE-
    -/HEAD-
    -BODY-
         -IMG src="foo.bar"-
    -/BODY-
-/HTML-
-/CODE-

(think <> instead of --), but instead

<CODE>
(in-html (cons (in-head (in-title "Bla")) (cons (in-body (img :source "foo.bar")) '()))