@p=(Thir,Four,Fif,Six,Seven,Eigh,Nine);@n=("\x8",One,Two,Three,Four,Five,@p[3..6],Ten,Eleven,Twelve,map$_.teen,@p);s/u//for@m=map$_.ty,Twen,@p;$n[8].=t;sub n{$n=shift;$n?$n<20?$n[$n]:"$m[$n/10-2]-$n[$n%10]":Zero}$p+=<>;warn$m=n($p)," is ",$_=$p-4?n$p=()=$m=~/\w/g:magic,".\n"until/c/

##</code><code>##

@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;$_+=<>;print$z=$_?$_<20?$n[$_]:$n[$_/10+18].$n[$_%10]:Zero," is ",$_=$_-4?length$z:magic,".\n"until/a/

##</code><code>##

perl -E'@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;$_+=<>;say$z=$_?$_<20?$n[$_]:$n[$_/10+18].$n[$_%10]:Zero," is ",$_=$_-4?length$z:magic,"."until/a/'

##</code><code>##

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

##</code><code>##

@u='0335443554366887798866555766'=~/./g;sub n{@p=(thir,four,fif,six,seven,eigh,nine);@n=('',one,two,three,four,five,@p[3..6],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}$_=pop;print$z=n($_)," is ",$_=$_-4?length$z:magic,".\n"while/\d/

##</code><code>##

@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/



##</code><code>##

@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'}$_=<>;print$z=n($_)," is ",$_=$_-4?length$z:magic,".\n"while/\d/

##</code><code>##

@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'}$_=<>;print n($_)," is ",$_=$_-4?length n($_):magic,".\n"while/\d/

##</code><code>##

@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/

##</code><code>##

@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/

##</code><code>##

@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?length n($_):magic,".\n"while/\d/

##</code><code>##

@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/

##</code><code>##

@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/