@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;$p[1]=~s/u//;push@n,'twenty',;push@n,$_.'ty'for@p;$n[8].='t';$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/