diff --git a/code/format.lisp b/code/format.lisp index 60d6d778f32f02f9e34af18707bec5617f8e2736..0766c9ef724685fb51076ac67b3967631cbe8b22 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.88 2008/06/25 14:04:56 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.89 2008/06/27 13:31:19 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -897,12 +897,467 @@ #("ten" "eleven" "twelve" "thirteen" "fourteen" ;;; RAD "fifteen" "sixteen" "seventeen" "eighteen" "nineteen")) +;; See http://en.wikipedia.org/wiki/Names_of_large_numbers and also +;; http://home.hetnet.nl/~vanadovv/BignumbyN.html. This list comes +;; from the latter link. (defconstant cardinal-periods - #("" " thousand" " million" " billion" " trillion" " quadrillion" - " quintillion" " sextillion" " septillion" " octillion" " nonillion" - " decillion" " undecillion" " duodecillion" " tredecillion" - " quattuordecillion" " quindecillion" " sexdecillion" " septendecillion" - " octodecillion" " novemdecillion" " vigintillion")) + #("" "thousand" "million" "billion" "trillion" "quadrillion" + "quintillion" "sextillion" "septillion" "octillion" "nonillion" + "decillion" "undecillion" "duodecillion" "tredecillion" + "quattuordecillion" "quinquadecillion" "sedecillion" "septendecillion" + "octodecillion" "novendecillion" "vigintillion" "unvigintillion" + "duovigintillion" "tresvigintillion" "quattuorvigintillion" + "quinquavigintillion" "sesvigintillion" "septemvigintillion" + "octovigintillion" "novemvigintillion" "trigintillion" + "untrigintillion" "duotrigintillion" "trestrigintillion" + "quattuortrigintillion" "quinquatrigintillion" "sestrigintillion" + "septentrigintillion" "octotrigintillion" "noventrigintillion" + "quadragintillion" "unquadragintillion" "duoquadragintillion" + "tresquadragintillion" "quattuorquadragintillion" + "quinquaquadragintillion" "sesquadragintillion" "septenquadragintillion" + "octoquadragintillion" "novenquadragintillion" "quinquagintillion" + "unquinquagintillion" "duoquinquagintillion" "tresquinquagintillion" + "quattuorquinquagintillion" "quinquaquinquagintillion" + "sesquinquagintillion" "septenquinquagintillion" "octoquinquagintillion" + "novenquinquagintillion" "sexagintillion" "unsexagintillion" + "duosexagintillion" "tresexagintillion" "quattuorsexagintillion" + "quinquasexagintillion" "sesexagintillion" "septensexagintillion" + "octosexagintillion" "novensexagintillion" "septuagintillion" + "unseptuagintillion" "duoseptuagintillion" "treseptuagintillion" + "quattuorseptuagintillion" "quinquaseptuagintillion" + "seseptuagintillion" "septenseptuagintillion" "octoseptuagintillion" + "novenseptuagintillion" "octogintillion" "unoctogintillion" + "duooctogintillion" "tresoctogintillion" "quattuoroctogintillion" + "quinquaoctogintillion" "sexoctogintillion" "septemoctogintillion" + "octooctogintillion" "novemoctogintillion" "nonagintillion" + "unnonagintillion" "duononagintillion" "trenonagintillion" + "quattuornonagintillion" "quinquanonagintillion" "senonagintillion" + "septenonagintillion" "octononagintillion" "novenonagintillion" + "centillion" "uncentillion" "duocentillion" "trescentillion" + "quattuorcentillion" "quinquacentillion" "sexcentillion" + "septencentillion" "octocentillion" "novencentillion" "decicentillion" + "undecicentillion" "duodecicentillion" "tredecicentillion" + "quattuordecicentillion" "quinquadecicentillion" "sedecicentillion" + "septendecicentillion" "octodecicentillion" "novendecicentillion" + "viginticentillion" "unviginticentillion" "duoviginticentillion" + "tresviginticentillion" "quattuorviginticentillion" + "quinquaviginticentillion" "sesviginticentillion" + "septemviginticentillion" "octoviginticentillion" + "novemviginticentillion" "trigintacentillion" "untrigintacentillion" + "duotrigintacentillion" "trestrigintacentillion" + "quattuortrigintacentillion" "quinquatrigintacentillion" + "sestrigintacentillion" "septentrigintacentillion" + "octotrigintacentillion" "noventrigintacentillion" + "quadragintacentillion" "unquadragintacentillion" + "duoquadragintacentillion" "tresquadragintacentillion" + "quattuorquadragintacentillion" "quinquaquadragintacentillion" + "sesquadragintacentillion" "septenquadragintacentillion" + "octoquadragintacentillion" "novenquadragintacentillion" + "quinquagintacentillion" "unquinquagintacentillion" + "duoquinquagintacentillion" "tresquinquagintacentillion" + "quattuorquinquagintacentillion" "quinquaquinquagintacentillion" + "sesquinquagintacentillion" "septenquinquagintacentillion" + "octoquinquagintacentillion" "novenquinquagintacentillion" + "sexagintacentillion" "unsexagintacentillion" "duosexagintacentillion" + "tresexagintacentillion" "quattuorsexagintacentillion" + "quinquasexagintacentillion" "sesexagintacentillion" + "septensexagintacentillion" "octosexagintacentillion" + "novensexagintacentillion" "septuagintacentillion" + "unseptuagintacentillion" "duoseptuagintacentillion" + "treseptuagintacentillion" "quattuorseptuagintacentillion" + "quinquaseptuagintacentillion" "seseptuagintacentillion" + "septenseptuagintacentillion" "octoseptuagintacentillion" + "novenseptuagintacentillion" "octogintacentillion" + "unoctogintacentillion" "duooctogintacentillion" + "tresoctogintacentillion" "quattuoroctogintacentillion" + "quinquaoctogintacentillion" "sexoctogintacentillion" + "septemoctogintacentillion" "octooctogintacentillion" + "novemoctogintacentillion" "nonagintacentillion" "unnonagintacentillion" + "duononagintacentillion" "trenonagintacentillion" + "quattuornonagintacentillion" "quinquanonagintacentillion" + "senonagintacentillion" "septenonagintacentillion" + "octononagintacentillion" "novenonagintacentillion" "ducentillion" + "unducentillion" "duoducentillion" "treducentillion" + "quattuorducentillion" "quinquaducentillion" "seducentillion" + "septenducentillion" "octoducentillion" "novenducentillion" + "deciducentillion" "undeciducentillion" "duodeciducentillion" + "tredeciducentillion" "quattuordeciducentillion" + "quinquadeciducentillion" "sedeciducentillion" "septendeciducentillion" + "octodeciducentillion" "novendeciducentillion" "vigintiducentillion" + "unvigintiducentillion" "duovigintiducentillion" + "tresvigintiducentillion" "quattuorvigintiducentillion" + "quinquavigintiducentillion" "sesvigintiducentillion" + "septemvigintiducentillion" "octovigintiducentillion" + "novemvigintiducentillion" "trigintaducentillion" + "untrigintaducentillion" "duotrigintaducentillion" + "trestrigintaducentillion" "quattuortrigintaducentillion" + "quinquatrigintaducentillion" "sestrigintaducentillion" + "septentrigintaducentillion" "octotrigintaducentillion" + "noventrigintaducentillion" "quadragintaducentillion" + "unquadragintaducentillion" "duoquadragintaducentillion" + "tresquadragintaducentillion" "quattuorquadragintaducentillion" + "quinquaquadragintaducentillion" "sesquadragintaducentillion" + "septenquadragintaducentillion" "octoquadragintaducentillion" + "novenquadragintaducentillion" "quinquagintaducentillion" + "unquinquagintaducentillion" "duoquinquagintaducentillion" + "tresquinquagintaducentillion" "quattuorquinquagintaducentillion" + "quinquaquinquagintaducentillion" "sesquinquagintaducentillion" + "septenquinquagintaducentillion" "octoquinquagintaducentillion" + "novenquinquagintaducentillion" "sexagintaducentillion" + "unsexagintaducentillion" "duosexagintaducentillion" + "tresexagintaducentillion" "quattuorsexagintaducentillion" + "quinquasexagintaducentillion" "sesexagintaducentillion" + "septensexagintaducentillion" "octosexagintaducentillion" + "novensexagintaducentillion" "septuagintaducentillion" + "unseptuagintaducentillion" "duoseptuagintaducentillion" + "treseptuagintaducentillion" "quattuorseptuagintaducentillion" + "quinquaseptuagintaducentillion" "seseptuagintaducentillion" + "septenseptuagintaducentillion" "octoseptuagintaducentillion" + "novenseptuagintaducentillion" "octogintaducentillion" + "unoctogintaducentillion" "duooctogintaducentillion" + "tresoctogintaducentillion" "quattuoroctogintaducentillion" + "quinquaoctogintaducentillion" "sexoctogintaducentillion" + "septemoctogintaducentillion" "octooctogintaducentillion" + "novemoctogintaducentillion" "nonagintaducentillion" + "unnonagintaducentillion" "duononagintaducentillion" + "trenonagintaducentillion" "quattuornonagintaducentillion" + "quinquanonagintaducentillion" "senonagintaducentillion" + "septenonagintaducentillion" "octononagintaducentillion" + "novenonagintaducentillion" "trecentillion" "untrecentillion" + "duotrecentillion" "trestrecentillion" "quattuortrecentillion" + "quinquatrecentillion" "sestrecentillion" "septentrecentillion" + "octotrecentillion" "noventrecentillion" "decitrecentillion" + "undecitrecentillion" "duodecitrecentillion" "tredecitrecentillion" + "quattuordecitrecentillion" "quinquadecitrecentillion" + "sedecitrecentillion" "septendecitrecentillion" "octodecitrecentillion" + "novendecitrecentillion" "vigintitrecentillion" "unvigintitrecentillion" + "duovigintitrecentillion" "tresvigintitrecentillion" + "quattuorvigintitrecentillion" "quinquavigintitrecentillion" + "sesvigintitrecentillion" "septemvigintitrecentillion" + "octovigintitrecentillion" "novemvigintitrecentillion" + "trigintatrecentillion" "untrigintatrecentillion" + "duotrigintatrecentillion" "trestrigintatrecentillion" + "quattuortrigintatrecentillion" "quinquatrigintatrecentillion" + "sestrigintatrecentillion" "septentrigintatrecentillion" + "octotrigintatrecentillion" "noventrigintatrecentillion" + "quadragintatrecentillion" "unquadragintatrecentillion" + "duoquadragintatrecentillion" "tresquadragintatrecentillion" + "quattuorquadragintatrecentillion" "quinquaquadragintatrecentillion" + "sesquadragintatrecentillion" "septenquadragintatrecentillion" + "octoquadragintatrecentillion" "novenquadragintatrecentillion" + "quinquagintatrecentillion" "unquinquagintatrecentillion" + "duoquinquagintatrecentillion" "tresquinquagintatrecentillion" + "quattuorquinquagintatrecentillion" "quinquaquinquagintatrecentillion" + "sesquinquagintatrecentillion" "septenquinquagintatrecentillion" + "octoquinquagintatrecentillion" "novenquinquagintatrecentillion" + "sexagintatrecentillion" "unsexagintatrecentillion" + "duosexagintatrecentillion" "tresexagintatrecentillion" + "quattuorsexagintatrecentillion" "quinquasexagintatrecentillion" + "sesexagintatrecentillion" "septensexagintatrecentillion" + "octosexagintatrecentillion" "novensexagintatrecentillion" + "septuagintatrecentillion" "unseptuagintatrecentillion" + "duoseptuagintatrecentillion" "treseptuagintatrecentillion" + "quattuorseptuagintatrecentillion" "quinquaseptuagintatrecentillion" + "seseptuagintatrecentillion" "septenseptuagintatrecentillion" + "octoseptuagintatrecentillion" "novenseptuagintatrecentillion" + "octogintatrecentillion" "unoctogintatrecentillion" + "duooctogintatrecentillion" "tresoctogintatrecentillion" + "quattuoroctogintatrecentillion" "quinquaoctogintatrecentillion" + "sexoctogintatrecentillion" "septemoctogintatrecentillion" + "octooctogintatrecentillion" "novemoctogintatrecentillion" + "nonagintatrecentillion" "unnonagintatrecentillion" + "duononagintatrecentillion" "trenonagintatrecentillion" + "quattuornonagintatrecentillion" "quinquanonagintatrecentillion" + "senonagintatrecentillion" "septenonagintatrecentillion" + "octononagintatrecentillion" "novenonagintatrecentillion" + "quadringentillion" "unquadringentillion" "duoquadringentillion" + "tresquadringentillion" "quattuorquadringentillion" + "quinquaquadringentillion" "sesquadringentillion" + "septenquadringentillion" "octoquadringentillion" + "novenquadringentillion" "deciquadringentillion" + "undeciquadringentillion" "duodeciquadringentillion" + "tredeciquadringentillion" "quattuordeciquadringentillion" + "quinquadeciquadringentillion" "sedeciquadringentillion" + "septendeciquadringentillion" "octodeciquadringentillion" + "novendeciquadringentillion" "vigintiquadringentillion" + "unvigintiquadringentillion" "duovigintiquadringentillion" + "tresvigintiquadringentillion" "quattuorvigintiquadringentillion" + "quinquavigintiquadringentillion" "sesvigintiquadringentillion" + "septemvigintiquadringentillion" "octovigintiquadringentillion" + "novemvigintiquadringentillion" "trigintaquadringentillion" + "untrigintaquadringentillion" "duotrigintaquadringentillion" + "trestrigintaquadringentillion" "quattuortrigintaquadringentillion" + "quinquatrigintaquadringentillion" "sestrigintaquadringentillion" + "septentrigintaquadringentillion" "octotrigintaquadringentillion" + "noventrigintaquadringentillion" "quadragintaquadringentillion" + "unquadragintaquadringentillion" "duoquadragintaquadringentillion" + "tresquadragintaquadringentillion" "quattuorquadragintaquadringentillion" + "quinquaquadragintaquadringentillion" "sesquadragintaquadringentillion" + "septenquadragintaquadringentillion" "octoquadragintaquadringentillion" + "novenquadragintaquadringentillion" "quinquagintaquadringentillion" + "unquinquagintaquadringentillion" "duoquinquagintaquadringentillion" + "tresquinquagintaquadringentillion" + "quattuorquinquagintaquadringentillion" + "quinquaquinquagintaquadringentillion" "sesquinquagintaquadringentillion" + "septenquinquagintaquadringentillion" "octoquinquagintaquadringentillion" + "novenquinquagintaquadringentillion" "sexagintaquadringentillion" + "unsexagintaquadringentillion" "duosexagintaquadringentillion" + "tresexagintaquadringentillion" "quattuorsexagintaquadringentillion" + "quinquasexagintaquadringentillion" "sesexagintaquadringentillion" + "septensexagintaquadringentillion" "octosexagintaquadringentillion" + "novensexagintaquadringentillion" "septuagintaquadringentillion" + "unseptuagintaquadringentillion" "duoseptuagintaquadringentillion" + "treseptuagintaquadringentillion" "quattuorseptuagintaquadringentillion" + "quinquaseptuagintaquadringentillion" "seseptuagintaquadringentillion" + "septenseptuagintaquadringentillion" "octoseptuagintaquadringentillion" + "novenseptuagintaquadringentillion" "octogintaquadringentillion" + "unoctogintaquadringentillion" "duooctogintaquadringentillion" + "tresoctogintaquadringentillion" "quattuoroctogintaquadringentillion" + "quinquaoctogintaquadringentillion" "sexoctogintaquadringentillion" + "septemoctogintaquadringentillion" "octooctogintaquadringentillion" + "novemoctogintaquadringentillion" "nonagintaquadringentillion" + "unnonagintaquadringentillion" "duononagintaquadringentillion" + "trenonagintaquadringentillion" "quattuornonagintaquadringentillion" + "quinquanonagintaquadringentillion" "senonagintaquadringentillion" + "septenonagintaquadringentillion" "octononagintaquadringentillion" + "novenonagintaquadringentillion" "quingentillion" "unquingentillion" + "duoquingentillion" "tresquingentillion" "quattuorquingentillion" + "quinquaquingentillion" "sesquingentillion" "septenquingentillion" + "octoquingentillion" "novenquingentillion" "deciquingentillion" + "undeciquingentillion" "duodeciquingentillion" "tredeciquingentillion" + "quattuordeciquingentillion" "quinquadeciquingentillion" + "sedeciquingentillion" "septendeciquingentillion" + "octodeciquingentillion" "novendeciquingentillion" + "vigintiquingentillion" "unvigintiquingentillion" + "duovigintiquingentillion" "tresvigintiquingentillion" + "quattuorvigintiquingentillion" "quinquavigintiquingentillion" + "sesvigintiquingentillion" "septemvigintiquingentillion" + "octovigintiquingentillion" "novemvigintiquingentillion" + "trigintaquingentillion" "untrigintaquingentillion" + "duotrigintaquingentillion" "trestrigintaquingentillion" + "quattuortrigintaquingentillion" "quinquatrigintaquingentillion" + "sestrigintaquingentillion" "septentrigintaquingentillion" + "octotrigintaquingentillion" "noventrigintaquingentillion" + "quadragintaquingentillion" "unquadragintaquingentillion" + "duoquadragintaquingentillion" "tresquadragintaquingentillion" + "quattuorquadragintaquingentillion" "quinquaquadragintaquingentillion" + "sesquadragintaquingentillion" "septenquadragintaquingentillion" + "octoquadragintaquingentillion" "novenquadragintaquingentillion" + "quinquagintaquingentillion" "unquinquagintaquingentillion" + "duoquinquagintaquingentillion" "tresquinquagintaquingentillion" + "quattuorquinquagintaquingentillion" "quinquaquinquagintaquingentillion" + "sesquinquagintaquingentillion" "septenquinquagintaquingentillion" + "octoquinquagintaquingentillion" "novenquinquagintaquingentillion" + "sexagintaquingentillion" "unsexagintaquingentillion" + "duosexagintaquingentillion" "tresexagintaquingentillion" + "quattuorsexagintaquingentillion" "quinquasexagintaquingentillion" + "sesexagintaquingentillion" "septensexagintaquingentillion" + "octosexagintaquingentillion" "novensexagintaquingentillion" + "septuagintaquingentillion" "unseptuagintaquingentillion" + "duoseptuagintaquingentillion" "treseptuagintaquingentillion" + "quattuorseptuagintaquingentillion" "quinquaseptuagintaquingentillion" + "seseptuagintaquingentillion" "septenseptuagintaquingentillion" + "octoseptuagintaquingentillion" "novenseptuagintaquingentillion" + "octogintaquingentillion" "unoctogintaquingentillion" + "duooctogintaquingentillion" "tresoctogintaquingentillion" + "quattuoroctogintaquingentillion" "quinquaoctogintaquingentillion" + "sexoctogintaquingentillion" "septemoctogintaquingentillion" + "octooctogintaquingentillion" "novemoctogintaquingentillion" + "nonagintaquingentillion" "unnonagintaquingentillion" + "duononagintaquingentillion" "trenonagintaquingentillion" + "quattuornonagintaquingentillion" "quinquanonagintaquingentillion" + "senonagintaquingentillion" "septenonagintaquingentillion" + "octononagintaquingentillion" "novenonagintaquingentillion" + "sescentillion" "unsescentillion" "duosescentillion" "tresescentillion" + "quattuorsescentillion" "quinquasescentillion" "sesescentillion" + "septensescentillion" "octosescentillion" "novensescentillion" + "decisescentillion" "undecisescentillion" "duodecisescentillion" + "tredecisescentillion" "quattuordecisescentillion" + "quinquadecisescentillion" "sedecisescentillion" + "septendecisescentillion" "octodecisescentillion" + "novendecisescentillion" "vigintisescentillion" "unvigintisescentillion" + "duovigintisescentillion" "tresvigintisescentillion" + "quattuorvigintisescentillion" "quinquavigintisescentillion" + "sesvigintisescentillion" "septemvigintisescentillion" + "octovigintisescentillion" "novemvigintisescentillion" + "trigintasescentillion" "untrigintasescentillion" + "duotrigintasescentillion" "trestrigintasescentillion" + "quattuortrigintasescentillion" "quinquatrigintasescentillion" + "sestrigintasescentillion" "septentrigintasescentillion" + "octotrigintasescentillion" "noventrigintasescentillion" + "quadragintasescentillion" "unquadragintasescentillion" + "duoquadragintasescentillion" "tresquadragintasescentillion" + "quattuorquadragintasescentillion" "quinquaquadragintasescentillion" + "sesquadragintasescentillion" "septenquadragintasescentillion" + "octoquadragintasescentillion" "novenquadragintasescentillion" + "quinquagintasescentillion" "unquinquagintasescentillion" + "duoquinquagintasescentillion" "tresquinquagintasescentillion" + "quattuorquinquagintasescentillion" "quinquaquinquagintasescentillion" + "sesquinquagintasescentillion" "septenquinquagintasescentillion" + "octoquinquagintasescentillion" "novenquinquagintasescentillion" + "sexagintasescentillion" "unsexagintasescentillion" + "duosexagintasescentillion" "tresexagintasescentillion" + "quattuorsexagintasescentillion" "quinquasexagintasescentillion" + "sesexagintasescentillion" "septensexagintasescentillion" + "octosexagintasescentillion" "novensexagintasescentillion" + "septuagintasescentillion" "unseptuagintasescentillion" + "duoseptuagintasescentillion" "treseptuagintasescentillion" + "quattuorseptuagintasescentillion" "quinquaseptuagintasescentillion" + "seseptuagintasescentillion" "septenseptuagintasescentillion" + "octoseptuagintasescentillion" "novenseptuagintasescentillion" + "octogintasescentillion" "unoctogintasescentillion" + "duooctogintasescentillion" "tresoctogintasescentillion" + "quattuoroctogintasescentillion" "quinquaoctogintasescentillion" + "sexoctogintasescentillion" "septemoctogintasescentillion" + "octooctogintasescentillion" "novemoctogintasescentillion" + "nonagintasescentillion" "unnonagintasescentillion" + "duononagintasescentillion" "trenonagintasescentillion" + "quattuornonagintasescentillion" "quinquanonagintasescentillion" + "senonagintasescentillion" "septenonagintasescentillion" + "octononagintasescentillion" "novenonagintasescentillion" + "septingentillion" "unseptingentillion" "duoseptingentillion" + "treseptingentillion" "quattuorseptingentillion" + "quinquaseptingentillion" "seseptingentillion" "septenseptingentillion" + "octoseptingentillion" "novenseptingentillion" "deciseptingentillion" + "undeciseptingentillion" "duodeciseptingentillion" + "tredeciseptingentillion" "quattuordeciseptingentillion" + "quinquadeciseptingentillion" "sedeciseptingentillion" + "septendeciseptingentillion" "octodeciseptingentillion" + "novendeciseptingentillion" "vigintiseptingentillion" + "unvigintiseptingentillion" "duovigintiseptingentillion" + "tresvigintiseptingentillion" "quattuorvigintiseptingentillion" + "quinquavigintiseptingentillion" "sesvigintiseptingentillion" + "septemvigintiseptingentillion" "octovigintiseptingentillion" + "novemvigintiseptingentillion" "trigintaseptingentillion" + "untrigintaseptingentillion" "duotrigintaseptingentillion" + "trestrigintaseptingentillion" "quattuortrigintaseptingentillion" + "quinquatrigintaseptingentillion" "sestrigintaseptingentillion" + "septentrigintaseptingentillion" "octotrigintaseptingentillion" + "noventrigintaseptingentillion" "quadragintaseptingentillion" + "unquadragintaseptingentillion" "duoquadragintaseptingentillion" + "tresquadragintaseptingentillion" "quattuorquadragintaseptingentillion" + "quinquaquadragintaseptingentillion" "sesquadragintaseptingentillion" + "septenquadragintaseptingentillion" "octoquadragintaseptingentillion" + "novenquadragintaseptingentillion" "quinquagintaseptingentillion" + "unquinquagintaseptingentillion" "duoquinquagintaseptingentillion" + "tresquinquagintaseptingentillion" "quattuorquinquagintaseptingentillion" + "quinquaquinquagintaseptingentillion" "sesquinquagintaseptingentillion" + "septenquinquagintaseptingentillion" "octoquinquagintaseptingentillion" + "novenquinquagintaseptingentillion" "sexagintaseptingentillion" + "unsexagintaseptingentillion" "duosexagintaseptingentillion" + "tresexagintaseptingentillion" "quattuorsexagintaseptingentillion" + "quinquasexagintaseptingentillion" "sesexagintaseptingentillion" + "septensexagintaseptingentillion" "octosexagintaseptingentillion" + "novensexagintaseptingentillion" "septuagintaseptingentillion" + "unseptuagintaseptingentillion" "duoseptuagintaseptingentillion" + "treseptuagintaseptingentillion" "quattuorseptuagintaseptingentillion" + "quinquaseptuagintaseptingentillion" "seseptuagintaseptingentillion" + "septenseptuagintaseptingentillion" "octoseptuagintaseptingentillion" + "novenseptuagintaseptingentillion" "octogintaseptingentillion" + "unoctogintaseptingentillion" "duooctogintaseptingentillion" + "tresoctogintaseptingentillion" "quattuoroctogintaseptingentillion" + "quinquaoctogintaseptingentillion" "sexoctogintaseptingentillion" + "septemoctogintaseptingentillion" "octooctogintaseptingentillion" + "novemoctogintaseptingentillion" "nonagintaseptingentillion" + "unnonagintaseptingentillion" "duononagintaseptingentillion" + "trenonagintaseptingentillion" "quattuornonagintaseptingentillion" + "quinquanonagintaseptingentillion" "senonagintaseptingentillion" + "septenonagintaseptingentillion" "octononagintaseptingentillion" + "novenonagintaseptingentillion" "octingentillion" "unoctingentillion" + "duooctingentillion" "tresoctingentillion" "quattuoroctingentillion" + "quinquaoctingentillion" "sexoctingentillion" "septemoctingentillion" + "octooctingentillion" "novemoctingentillion" "decioctingentillion" + "undecioctingentillion" "duodecioctingentillion" + "tredecioctingentillion" "quattuordecioctingentillion" + "quinquadecioctingentillion" "sedecioctingentillion" + "septendecioctingentillion" "octodecioctingentillion" + "novendecioctingentillion" "vigintioctingentillion" + "unvigintioctingentillion" "duovigintioctingentillion" + "tresvigintioctingentillion" "quattuorvigintioctingentillion" + "quinquavigintioctingentillion" "sesvigintioctingentillion" + "septemvigintioctingentillion" "octovigintioctingentillion" + "novemvigintioctingentillion" "trigintaoctingentillion" + "untrigintaoctingentillion" "duotrigintaoctingentillion" + "trestrigintaoctingentillion" "quattuortrigintaoctingentillion" + "quinquatrigintaoctingentillion" "sestrigintaoctingentillion" + "septentrigintaoctingentillion" "octotrigintaoctingentillion" + "noventrigintaoctingentillion" "quadragintaoctingentillion" + "unquadragintaoctingentillion" "duoquadragintaoctingentillion" + "tresquadragintaoctingentillion" "quattuorquadragintaoctingentillion" + "quinquaquadragintaoctingentillion" "sesquadragintaoctingentillion" + "septenquadragintaoctingentillion" "octoquadragintaoctingentillion" + "novenquadragintaoctingentillion" "quinquagintaoctingentillion" + "unquinquagintaoctingentillion" "duoquinquagintaoctingentillion" + "tresquinquagintaoctingentillion" "quattuorquinquagintaoctingentillion" + "quinquaquinquagintaoctingentillion" "sesquinquagintaoctingentillion" + "septenquinquagintaoctingentillion" "octoquinquagintaoctingentillion" + "novenquinquagintaoctingentillion" "sexagintaoctingentillion" + "unsexagintaoctingentillion" "duosexagintaoctingentillion" + "tresexagintaoctingentillion" "quattuorsexagintaoctingentillion" + "quinquasexagintaoctingentillion" "sesexagintaoctingentillion" + "septensexagintaoctingentillion" "octosexagintaoctingentillion" + "novensexagintaoctingentillion" "septuagintaoctingentillion" + "unseptuagintaoctingentillion" "duoseptuagintaoctingentillion" + "treseptuagintaoctingentillion" "quattuorseptuagintaoctingentillion" + "quinquaseptuagintaoctingentillion" "seseptuagintaoctingentillion" + "septenseptuagintaoctingentillion" "octoseptuagintaoctingentillion" + "novenseptuagintaoctingentillion" "octogintaoctingentillion" + "unoctogintaoctingentillion" "duooctogintaoctingentillion" + "tresoctogintaoctingentillion" "quattuoroctogintaoctingentillion" + "quinquaoctogintaoctingentillion" "sexoctogintaoctingentillion" + "septemoctogintaoctingentillion" "octooctogintaoctingentillion" + "novemoctogintaoctingentillion" "nonagintaoctingentillion" + "unnonagintaoctingentillion" "duononagintaoctingentillion" + "trenonagintaoctingentillion" "quattuornonagintaoctingentillion" + "quinquanonagintaoctingentillion" "senonagintaoctingentillion" + "septenonagintaoctingentillion" "octononagintaoctingentillion" + "novenonagintaoctingentillion" "nongentillion" "unnongentillion" + "duonongentillion" "trenongentillion" "quattuornongentillion" + "quinquanongentillion" "senongentillion" "septenongentillion" + "octonongentillion" "novenongentillion" "decinongentillion" + "undecinongentillion" "duodecinongentillion" "tredecinongentillion" + "quattuordecinongentillion" "quinquadecinongentillion" + "sedecinongentillion" "septendecinongentillion" "octodecinongentillion" + "novendecinongentillion" "vigintinongentillion" "unvigintinongentillion" + "duovigintinongentillion" "tresvigintinongentillion" + "quattuorvigintinongentillion" "quinquavigintinongentillion" + "sesvigintinongentillion" "septemvigintinongentillion" + "octovigintinongentillion" "novemvigintinongentillion" + "trigintanongentillion" "untrigintanongentillion" + "duotrigintanongentillion" "trestrigintanongentillion" + "quattuortrigintanongentillion" "quinquatrigintanongentillion" + "sestrigintanongentillion" "septentrigintanongentillion" + "octotrigintanongentillion" "noventrigintanongentillion" + "quadragintanongentillion" "unquadragintanongentillion" + "duoquadragintanongentillion" "tresquadragintanongentillion" + "quattuorquadragintanongentillion" "quinquaquadragintanongentillion" + "sesquadragintanongentillion" "septenquadragintanongentillion" + "octoquadragintanongentillion" "novenquadragintanongentillion" + "quinquagintanongentillion" "unquinquagintanongentillion" + "duoquinquagintanongentillion" "tresquinquagintanongentillion" + "quattuorquinquagintanongentillion" "quinquaquinquagintanongentillion" + "sesquinquagintanongentillion" "septenquinquagintanongentillion" + "octoquinquagintanongentillion" "novenquinquagintanongentillion" + "sexagintanongentillion" "unsexagintanongentillion" + "duosexagintanongentillion" "tresexagintanongentillion" + "quattuorsexagintanongentillion" "quinquasexagintanongentillion" + "sesexagintanongentillion" "septensexagintanongentillion" + "octosexagintanongentillion" "novensexagintanongentillion" + "septuagintanongentillion" "unseptuagintanongentillion" + "duoseptuagintanongentillion" "treseptuagintanongentillion" + "quattuorseptuagintanongentillion" "quinquaseptuagintanongentillion" + "seseptuagintanongentillion" "septenseptuagintanongentillion" + "octoseptuagintanongentillion" "novenseptuagintanongentillion" + "octogintanongentillion" "unoctogintanongentillion" + "duooctogintanongentillion" "tresoctogintanongentillion" + "quattuoroctogintanongentillion" "quinquaoctogintanongentillion" + "sexoctogintanongentillion" "septemoctogintanongentillion" + "octooctogintanongentillion" "novemoctogintanongentillion" + "nonagintanongentillion" "unnonagintanongentillion" + "duononagintanongentillion" "trenonagintanongentillion" + "quattuornonagintanongentillion" "quinquanonagintanongentillion" + "senonagintanongentillion" "septenonagintanongentillion" + "octononagintanongentillion" "novenonagintanongentillion")) (defconstant ordinal-ones #(nil "first" "second" "third" "fourth" @@ -954,6 +1409,7 @@ (unless (zerop beyond) (write-char #\space stream)) (format-print-small-cardinal stream here) + (write-char #\space stream) (write-string (svref cardinal-periods period) stream)))) (defun format-print-ordinal (stream n)