@u='0335443554366887798866555766'=~/./g;sub n{shift;@p=(qw/thir four fif six seven eigh nine/);@n=('',qw/one two three four five/,@p[3..6],qw/ten eleven twelve/,map($_.'teen',@p),'twenty',map$_.'ty',@p);$n[22]=~s/u//;$n[8].='t';$t=$_?$_<20?$n[$_]:$n[$_/10+18].$n[$_%10]:'zero'}$_=pop;print n($_)," is ",$_=$_-4?length n($_):magic,".\n"while/\d/