or download this
#123456789 123456789 123456789 123456789 123456789 123456789 12345
+6789 123456789 123456789 123456789_123456789 123456789 123456789 1234
+56789 123456789 123456789 123456789 123456789 123456789 123456789_123
+456789 123456789 123456789 123456789 123456789 123456789
for f in 0 4 12 99; do
perl -E'$_=pop;say$z=do{@p=(Thir,Four,Fif,Six,Seven,Eigh,Nine);@n=("",
+One,Two,Three,Four,Five,@p[3..6],Ten,Eleven,Twelve,map($_.teen,@p),ma
+p$_.ty,Twen,@p);$n[22]=~s/u//;$n[8].=t;$_?$_<20?$n[$_]:$n[$_/10+18].$
+n[$_%10]:Zero}," is ",$_=$_-4?length$z:magic,"."until/m/' $f ; \
echo; done