t='thir'\x0d b=%w[zero one two three four five six seven eight nine ten eleven twelve]\x0d x=b[0,13]\x0d g=['fif']+b[6,2]+%w[eigh nine]\x0d ([t,'four']+g).each{|i|x+=[i+'teen']}\x0d (['twen',t,'for']+g).each{|u|j=u+'ty';x+=[j];9.times{|i|x+=[j+' '+b[i+1]]}}\x0d puts x,'one hundred'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).