#123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789_123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789_123456789 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),map$_.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