list(a:="zero one two three four five six seven eight nine ten eleven twelve"split,(b:="twen thir four fif six seven eigh nine"split)slice(1)map(.."teen"),b atPut(2,"for")map($,list($ = $.."ty",a slice(1,10)map(\,$.." "..\))),"one hundred")flatten map(println)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).