#!perl -ln
@p=split/ /,'bi mi tho hu irty rty fty xty venty hty ety wen et hte nte xte ft urt rt twe el te ni ei se si fi fo th tw on z';
@l=split/ /,'))*1000000000+((+0 ))*1000000+((+0 ))*1000+(+0 )*100+(+0';
for$i(30..90){push@l," +$i"if($i%10==0)};for$i(0..20){push @l," +".(20-$i)};
for$r(@p){$l=shift@l;s/[a-z]*$r[a-z]*/$l/g;}
$_=eval"(($_)"||eval"($_)"||eval"($_))"||eval"(($_))";
s/(.)(...)$/$1,$2/g;
s/(.)(...,)/$1,$2/g;
s/(.)(...,)/$1,$2/g if length>11;
print;

#!perl -ln
@p=split/ /,'bi mi tho hu irty rty fty xty venty hty ety wen twe irt urt ft xte nte hte et z on tw th fo fi si se ei ni te el';
@l=split/ /,'))*1000000000+((+0 ))*1000000+((+0 ))*1000+(+0 )*100+(+0 +30 +40 +50 +60 +70 +80 +90 +20 +12 +13 +14 +15 +16 +17 +18 +19 +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +10 +11';
for$r(@p){$l=shift@l;s/[a-z]*$r[a-z]*/$l/g;}
$_=eval"(($_)"||eval"($_)"||eval"($_))"||eval"(($_))";
s/(.)(...)$/$1,$2/g;
s/(.)(...,)/$1,$2/g;
s/(.)(...,)/$1,$2/g if length>11;
print;