RosettaCodeData/Task/XML-Output/Common-Lisp/xml-output-2.lisp

(write-xml '("April" "Tam O'Shanter" "Emily")
           '("Bubbly: I'm > Tam and <= Emily"
             "Burns: \"When chapman billies leave the street ...\""
             "Short & shrift"))