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)