#!/usr/bin/perl

@ones = (
  "", "un", "duo", "tre(t)", "quattuor",
  "quin", "se(sx)", "septe(mn)", "octo", "nove(mn)"
);

@tens = (
  "", "(n)deci", "(ms)viginti", "(ns)triginta", "(ns)quadraginta",
  "(ns)quinquaginta", "(n)sexaginta", "(n)septuaginta", 
  "(mx)octoginta", "nonaginta",
);

@huns = (
  "", "(nx)centi", "(n)ducenti", "(ns)trecenti", "(ns)quadringenti",
  "(ns)quingenti", "(n)sescenti", "(n)septingenti", "(mx)octingenti",
  "nongenti",
);

for $hun (@huns) {
  for $ten (@tens) {
    for $one (@ones) {
      $num = $one.$ten.$hun."llion";
      $num =~ s/\(t\)\(.s\)/s/g;
      $num =~ s/\(t\)\(.x\)/s/g;
      $num =~ s/\(sx\)\(.s\)/s/g;
      $num =~ s/\(sx\)\(.x\)/x/g;
      $num =~ s/\(mn\)\(m.\)/m/g;
      $num =~ s/\(mn\)\(n.\)/n/g;
      $num =~ s/\(mn\)\(n\)/n/g;
      $num =~ s/\(..\)//g;
      $num =~ s/\(.\)//g;
      $num =~ s/allion/illion/g;
      print "$num\n";
    }
  }
}