a=%w{twen thir fo%sr fif six seven eigh nine}
s:zero,b="one
two
three
four
five
#{a[4,3]*$/}t
nine",'ten
eleven
twelve',[a[1,7],p]*'teen
'%:u,a.m{|_|(_%p+'ty
'+b).li.*_%p+'ty '},'one hundred'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).