(list 'html (list 'head (list 'title "my page"))
            (list 'body (list 'h1 "my page")
                        (list 'p "Me at the Britney Spears Concert")
                        (list 'ol (list 'li (list 'img (list 'attr 'src "pict01.jpg"))
                                            (list 'p (list 'attr 'align "center") "Waiting in line for a Pepsi."))
                       	   (list 'li (list 'img (list 'attr 'src "pict07.jpg"))
                                            (list 'p (list 'attr 'align "center") "Waiting in line for " (list 'em "another") " Pepsi."))
                       	   (list 'li (list 'img (list 'attr 'src "pict19.jpg"))
                                            (list 'p (list 'attr 'align "center") "Waiting in line for the bathroom.")))))


;;; Or using quote-shorthand for lists:

'(html (head (title "my page"))
       (body (h1 "my page")
             (p "Me at the Britney Spears Concert")
             (ol (li (img (attr src "pict01.jpg"))
                     (p (attr align "center") "Waiting in line for a Pepsi."))
                 (li (img (attr src "pict07.jpg"))
                     (p (attr align "center") "Waiting in line for " (em "another") " Pepsi."))
                 (li (img (attr src "pict19.jpg"))
                     (p (attr align "center") "Waiting in line for the bathroom.")))))