There are already lisp/scheme libraries out there that do that. The smalltalk framework's Seaside and Illiad both contain the same as well.

as a basic example from seaside:

renderContentOn: html

    html heading level: 1; with: 'Hello World!'.

creates

<h1>Hello World</h1>

More on how Seaside generates html can be found at:

http://seaside.st/documentation/generating-html

Here is an example from racket ( aka plt scheme ):

(define (build-request-page label next-url hidden) `(html (head (title "Enter a Number to Add")) (body ([bgcolor "white"]) (form ([action ,next-url] [method "get"]) ,label (input ([type "text"] [name "number"] [value ""])) (input ([type "hidden"] [name "hidden"] [value ,hidden])) (input ([type "submit"] [name "enter"] [value "Enter"]))))))

More ( and the proper formatting of the above ) can be seen at:

http://docs.racket-lang.org/more/#(part.__.Hello_.World__.Se...