(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)/))