(dotimes(i 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+ i)/ /(- 11 i))(push(+ i 2)/))