100 by kozima

let k,m,p,(&),t=["one";"two";"three";"four";"five";"six";"seven";"eight";"nine"],["fif";"six";"seven";"eigh";"nine"],print_endline,List.map,"thir";;p"zero";p&k;p"ten
eleven
twelve";p&(fun x->x^"teen")&t::"four"::m;(fun x->p(x^"ty");p&(^)(x^"ty ")&k)&["twen";t;"for"]@m;p"one hundred"

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page