p=paste
a=unlist(strsplit("zero one two three four five six seven eight nine ten eleven twelve"," "))
b=a[4:10]
b[1]="thir"
b[3]="fif"
b[6]="eigh"
d=c("twen",b)
d[3]="for"
cat(a,p(b,"teen",sep=""),p(rep(p(d,"ty",sep=""),e=10),c("",p("",a[2:10])),sep=""),"one hundred",sep="
")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).