p=paste
a=strsplit('zero7one7two7three7four7five7six7seven7eight7nine7ten7eleven7twelve',7)[[1]]
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=e<-''),p(rep(p(d,'ty',sep=e),,,10),c(e,p(e,a[2:10])),sep=e),'one hundred',sep='
')
Note that non-ascii characters in the above source code will be escaped (such as \x9f).