@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/);push@n,$_.'teen'for@p;push@n,'twenty',;push@n,$_.'ty'for@p;$n[8].='t';$n[22]=~s/u//;$t=$_?$_<20?$n[$_]:$n[$_/10+18].$n[$_%10]:'zero'}$_=pop;print n($_)," is ",$_=$_-4?$_<20?$u[$_]||4:$u[chop]+$u[18+$_]:magic,".\n"while/\d/