(prn'zero)(def n'(one two three four five six seven eight nine))(some prn(concat n'(ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen)))(some(fn[x](prn x)(some #(prn x%)n))'(twenty thirty forty fifty sixty seventy eighty ninety))(print"one hundred")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).