#(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).