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"