(dotimes(x 12)(format t"On the ~:R day of Christmas,
my true love sent to me
~{~:(~R~) ~#[turtle doves~;French hens~;calling birds~;golden rings~;geese a-lay~;swans a-swimm~;maids a-milk~;ladies danc~;lords a-leap~;pipers pip~;drummers drumm~]~#[~;~;~;~:;ing~],
~}A~1{nd a~} partridge in a pear tree~[!~^~].
"(1+ x)/ /(- 11 x))(push(+ 2 x)/))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).