(require 'stdlib) (define document '(html (head (title "title")) (body (p "paragraph one") (p "paragraph two")))) (define (write-html seq) (puts "") (html (rest seq))) (define (html seq) (puts "") (dolist (subseq seq) (puts subseq) (funcall (first subseq) (rest subseq))) (puts "")) (define (head seq) (puts "") (dolist (subseq seq) (funcall (first subseq) (rest subseq))) (puts "")) (define (title text) (printf "%s\n" text)) (define (body seq) (puts seq)) (define (p text) (printf "

%s

\n" text)) (write-html document)