@u='0335443554366887798866555766'=~/./g;sub n{@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';shift()?$_<20?$n[$_]:$n[$_/10+18].$n[$_%10]:'zero'}$_=<>;print$z=n($_)," is ",$_=$_-4?length$z:magic,".\n"while/\d/