#(map(lambda(x)(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~[!~:;.
~]"x(iota(1- x)x -1)(- 12 x)))(iota 12 1))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).