print"zero\n";@X=('',qw(one two three four five six seven eight nine));for$x(@X){for$y(@X){$_=$x."ty $y\n";s/onetyone/eleven/;s/onety(.*)/$1teen/;s/tt/t/;s/^ty //;s/reet/irt/;s/ot/ent/;s/^ te/t/;s/^ //;s/ $//;s/oneteen/eleven/;s/twenteen/twelve/;s/fourty/forty/;s/fivet/fift/;$z++&&print}};print"one hundred\n"