(list
 (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:

'((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."))))