let f z=["six";"seven";"eigh"^z;"nine"]let($),r=List.map,"four"let p,a=print_endline,["one";"two";"three";r;"five"]@f"t"let b x=["thir";x;"fif"]@f"";;p$"zero"::a@["ten";"eleven";"twelve"]@((fun s->s^"teen")$b r);(fun s->p$((^)s$"ty"::((^)"ty "$a)))$"twen"::b"for";p"one hundred"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).