path: root/tests/unit/text/numbers-sv.scm.disabled

;;; Examples borrowed from
;;; https://www.tuomas.salste.net/doc/numero/numerals.html?sv
;;; Some changes have been made, including adding "ett" to the
;;; start of some words.

(define-module (test text-numbers-sv)
  :use-module (srfi srfi-64)
  :use-module (srfi srfi-71)
  :use-module (text numbers))

;;; Kardinaltal – Cardinal numbers

(test-group "Cardinal numbers"
  (test-equal "minus två"                     (number->string-cardinal -2 'sv))
  (test-equal "minus ett"                     (number->string-cardinal -1 'sv))
  (test-equal "noll"                          (number->string-cardinal 0 'sv))
  (test-equal "ett"                           (number->string-cardinal 1 'sv))
  (test-equal "två"                           (number->string-cardinal 2 'sv))
  (test-equal "tre"                           (number->string-cardinal 3 'sv))
  (test-equal "fyra"                          (number->string-cardinal 4 'sv))
  (test-equal "fem"                           (number->string-cardinal 5 'sv))
  (test-equal "sex"                           (number->string-cardinal 6 'sv))
  (test-equal "sju"                           (number->string-cardinal 7 'sv))
  (test-equal "åtta"                          (number->string-cardinal 8 'sv))
  (test-equal "nio"                           (number->string-cardinal 9 'sv))
  (test-equal "tio"                           (number->string-cardinal 10 'sv))
  (test-equal "elva"                          (number->string-cardinal 11 'sv))
  (test-equal "tolv"                          (number->string-cardinal 12 'sv))
  (test-equal "tretton"                       (number->string-cardinal 13 'sv))
  (test-equal "fjorton"                       (number->string-cardinal 14 'sv))
  (test-equal "femton"                        (number->string-cardinal 15 'sv))
  (test-equal "sexton"                        (number->string-cardinal 16 'sv))
  (test-equal "sjutton"                       (number->string-cardinal 17 'sv))
  (test-equal "arton"                         (number->string-cardinal 18 'sv))
  (test-equal "nitton"                        (number->string-cardinal 19 'sv))
  (test-equal "tjugo"                         (number->string-cardinal 20 'sv))
  (test-equal "tjugoett"                      (number->string-cardinal 21 'sv))
  (test-equal "tjugotvå"                      (number->string-cardinal 22 'sv))
  (test-equal "tjugotre"                      (number->string-cardinal 23 'sv))
  (test-equal "tjugofyra"                     (number->string-cardinal 24 'sv))
  (test-equal "tjugofem"                      (number->string-cardinal 25 'sv))
  (test-equal "tjugosex"                      (number->string-cardinal 26 'sv))
  (test-equal "tjugosju"                      (number->string-cardinal 27 'sv))
  (test-equal "tjugoåtta"                     (number->string-cardinal 28 'sv))
  (test-equal "tjugonio"                      (number->string-cardinal 29 'sv))
  (test-equal "trettio"                       (number->string-cardinal 30 'sv))
  (test-equal "trettioett"                    (number->string-cardinal 31 'sv))
  (test-equal "trettiotvå"                    (number->string-cardinal 32 'sv))
  (test-equal "trettiotre"                    (number->string-cardinal 33 'sv))
  (test-equal "trettiofyra"                   (number->string-cardinal 34 'sv))
  (test-equal "trettiofem"                    (number->string-cardinal 35 'sv))
  (test-equal "trettiosex"                    (number->string-cardinal 36 'sv))
  (test-equal "trettiosju"                    (number->string-cardinal 37 'sv))
  (test-equal "trettioåtta"                   (number->string-cardinal 38 'sv))
  (test-equal "trettionio"                    (number->string-cardinal 39 'sv))
  (test-equal "fyrtio"                        (number->string-cardinal 40 'sv))
  (test-equal "fyrtioett"                     (number->string-cardinal 41 'sv))
  (test-equal "fyrtiotvå"                     (number->string-cardinal 42 'sv))
  (test-equal "fyrtiotre"                     (number->string-cardinal 43 'sv))
  (test-equal "fyrtiofyra"                    (number->string-cardinal 44 'sv))
  (test-equal "fyrtiofem"                     (number->string-cardinal 45 'sv))
  (test-equal "fyrtiosex"                     (number->string-cardinal 46 'sv))
  (test-equal "fyrtiosju"                     (number->string-cardinal 47 'sv))
  (test-equal "fyrtioåtta"                    (number->string-cardinal 48 'sv))
  (test-equal "fyrtionio"                     (number->string-cardinal 49 'sv))
  (test-equal "femtio"                        (number->string-cardinal 50 'sv))
  (test-equal "femtioett"                     (number->string-cardinal 51 'sv))
  (test-equal "femtiotvå"                     (number->string-cardinal 52 'sv))
  (test-equal "femtiotre"                     (number->string-cardinal 53 'sv))
  (test-equal "femtiofyra"                    (number->string-cardinal 54 'sv))
  (test-equal "femtiofem"                     (number->string-cardinal 55 'sv))
  (test-equal "femtiosex"                     (number->string-cardinal 56 'sv))
  (test-equal "femtiosju"                     (number->string-cardinal 57 'sv))
  (test-equal "femtioåtta"                    (number->string-cardinal 58 'sv))
  (test-equal "femtionio"                     (number->string-cardinal 59 'sv))
  (test-equal "sextio"                        (number->string-cardinal 60 'sv))
  (test-equal "sextioett"                     (number->string-cardinal 61 'sv))
  (test-equal "sextiotvå"                     (number->string-cardinal 62 'sv))
  (test-equal "sextiotre"                     (number->string-cardinal 63 'sv))
  (test-equal "sextiofyra"                    (number->string-cardinal 64 'sv))
  (test-equal "sextiofem"                     (number->string-cardinal 65 'sv))
  (test-equal "sextiosex"                     (number->string-cardinal 66 'sv))
  (test-equal "sextiosju"                     (number->string-cardinal 67 'sv))
  (test-equal "sextioåtta"                    (number->string-cardinal 68 'sv))
  (test-equal "sextionio"                     (number->string-cardinal 69 'sv))
  (test-equal "sjuttio"                       (number->string-cardinal 70 'sv))
  (test-equal "sjuttioett"                    (number->string-cardinal 71 'sv))
  (test-equal "sjuttiotvå"                    (number->string-cardinal 72 'sv))
  (test-equal "sjuttiotre"                    (number->string-cardinal 73 'sv))
  (test-equal "sjuttiofyra"                   (number->string-cardinal 74 'sv))
  (test-equal "sjuttiofem"                    (number->string-cardinal 75 'sv))
  (test-equal "sjuttiosex"                    (number->string-cardinal 76 'sv))
  (test-equal "sjuttiosju"                    (number->string-cardinal 77 'sv))
  (test-equal "sjuttioåtta"                   (number->string-cardinal 78 'sv))
  (test-equal "sjuttionio"                    (number->string-cardinal 79 'sv))
  (test-equal "åttio"                         (number->string-cardinal 80 'sv))
  (test-equal "åttioett"                      (number->string-cardinal 81 'sv))
  (test-equal "åttiotvå"                      (number->string-cardinal 82 'sv))
  (test-equal "åttiotre"                      (number->string-cardinal 83 'sv))
  (test-equal "åttiofyra"                     (number->string-cardinal 84 'sv))
  (test-equal "åttiofem"                      (number->string-cardinal 85 'sv))
  (test-equal "åttiosex"                      (number->string-cardinal 86 'sv))
  (test-equal "åttiosju"                      (number->string-cardinal 87 'sv))
  (test-equal "åttioåtta"                     (number->string-cardinal 88 'sv))
  (test-equal "åttionio"                      (number->string-cardinal 89 'sv))
  (test-equal "nittio"                        (number->string-cardinal 90 'sv))
  (test-equal "nittioett"                     (number->string-cardinal 91 'sv))
  (test-equal "nittiotvå"                     (number->string-cardinal 92 'sv))
  (test-equal "nittiotre"                     (number->string-cardinal 93 'sv))
  (test-equal "nittiofyra"                    (number->string-cardinal 94 'sv))
  (test-equal "nittiofem"                     (number->string-cardinal 95 'sv))
  (test-equal "nittiosex"                     (number->string-cardinal 96 'sv))
  (test-equal "nittiosju"                     (number->string-cardinal 97 'sv))
  (test-equal "nittioåtta"                    (number->string-cardinal 98 'sv))
  (test-equal "nittionio"                     (number->string-cardinal 99 'sv))
  (test-equal "etthundra"                     (number->string-cardinal 100 'sv))
  (test-equal "etthundraett"                  (number->string-cardinal 101 'sv))
  (test-equal "etthundratvå"                  (number->string-cardinal 102 'sv))
  (test-equal "etthundratre"                  (number->string-cardinal 103 'sv))
  (test-equal "etthundrafyra"                 (number->string-cardinal 104 'sv))
  (test-equal "etthundrafem"                  (number->string-cardinal 105 'sv))
  (test-equal "etthundrasex"                  (number->string-cardinal 106 'sv))
  (test-equal "etthundrasju"                  (number->string-cardinal 107 'sv))
  (test-equal "etthundraåtta"                 (number->string-cardinal 108 'sv))
  (test-equal "etthundranio"                  (number->string-cardinal 109 'sv))
  (test-equal "etthundratio"                  (number->string-cardinal 110 'sv))
  (test-equal "etthundraelva"                 (number->string-cardinal 111 'sv))
  (test-equal "etthundratolv"                 (number->string-cardinal 112 'sv))
  (test-equal "etthundratretton"              (number->string-cardinal 113 'sv))
  (test-equal "etthundrafjorton"              (number->string-cardinal 114 'sv))
  (test-equal "etthundrafemton"               (number->string-cardinal 115 'sv))
  (test-equal "etthundrasexton"               (number->string-cardinal 116 'sv))
  (test-equal "etthundrasjutton"              (number->string-cardinal 117 'sv))
  (test-equal "etthundraarton"                (number->string-cardinal 118 'sv))
  (test-equal "etthundranitton"               (number->string-cardinal 119 'sv))
  (test-equal "etthundratjugo"                (number->string-cardinal 120 'sv))
  (test-equal "etthundratjugoett"             (number->string-cardinal 121 'sv))
  (test-equal "etthundratjugotvå"             (number->string-cardinal 122 'sv))
  (test-equal "etthundratjugotre"             (number->string-cardinal 123 'sv))
  (test-equal "etthundratjugofyra"            (number->string-cardinal 124 'sv))
  (test-equal "etthundratjugofem"             (number->string-cardinal 125 'sv))
  (test-equal "etthundratjugosex"             (number->string-cardinal 126 'sv))
  (test-equal "etthundratjugosju"             (number->string-cardinal 127 'sv))
  (test-equal "etthundratjugoåtta"            (number->string-cardinal 128 'sv))
  (test-equal "etthundratjugonio"             (number->string-cardinal 129 'sv))
  (test-equal "etthundratrettio"              (number->string-cardinal 130 'sv))
  (test-equal "etthundratrettioett"           (number->string-cardinal 131 'sv))
  (test-equal "etthundratrettiotvå"           (number->string-cardinal 132 'sv))
  (test-equal "etthundratrettiotre"           (number->string-cardinal 133 'sv))
  (test-equal "etthundratrettiofyra"          (number->string-cardinal 134 'sv))
  (test-equal "etthundratrettiofem"           (number->string-cardinal 135 'sv))
  (test-equal "etthundratrettiosex"           (number->string-cardinal 136 'sv))
  (test-equal "etthundratrettiosju"           (number->string-cardinal 137 'sv))
  (test-equal "etthundratrettioåtta"          (number->string-cardinal 138 'sv))
  (test-equal "etthundratrettionio"           (number->string-cardinal 139 'sv))
  (test-equal "etthundrafyrtio"               (number->string-cardinal 140 'sv))
  (test-equal "etthundrafyrtioett"            (number->string-cardinal 141 'sv))
  (test-equal "etthundrafyrtiotvå"            (number->string-cardinal 142 'sv))
  (test-equal "etthundrafyrtiotre"            (number->string-cardinal 143 'sv))
  (test-equal "etthundrafyrtiofyra"           (number->string-cardinal 144 'sv))
  (test-equal "etthundrafyrtiofem"            (number->string-cardinal 145 'sv))
  (test-equal "etthundrafyrtiosex"            (number->string-cardinal 146 'sv))
  (test-equal "etthundrafyrtiosju"            (number->string-cardinal 147 'sv))
  (test-equal "etthundrafyrtioåtta"           (number->string-cardinal 148 'sv))
  (test-equal "etthundrafyrtionio"            (number->string-cardinal 149 'sv))
  (test-equal "etthundrafemtio"               (number->string-cardinal 150 'sv))
  (test-equal "etthundrafemtioett"            (number->string-cardinal 151 'sv))
  (test-equal "etthundrafemtiotvå"            (number->string-cardinal 152 'sv))
  (test-equal "etthundrafemtiotre"            (number->string-cardinal 153 'sv))
  (test-equal "etthundrafemtiofyra"           (number->string-cardinal 154 'sv))
  (test-equal "etthundrafemtiofem"            (number->string-cardinal 155 'sv))
  (test-equal "etthundrafemtiosex"            (number->string-cardinal 156 'sv))
  (test-equal "etthundrafemtiosju"            (number->string-cardinal 157 'sv))
  (test-equal "etthundrafemtioåtta"           (number->string-cardinal 158 'sv))
  (test-equal "etthundrafemtionio"            (number->string-cardinal 159 'sv))
  (test-equal "etthundrasextio"               (number->string-cardinal 160 'sv))
  (test-equal "etthundrasextioett"            (number->string-cardinal 161 'sv))
  (test-equal "etthundrasextiotvå"            (number->string-cardinal 162 'sv))
  (test-equal "etthundrasextiotre"            (number->string-cardinal 163 'sv))
  (test-equal "etthundrasextiofyra"           (number->string-cardinal 164 'sv))
  (test-equal "etthundrasextiofem"            (number->string-cardinal 165 'sv))
  (test-equal "etthundrasextiosex"            (number->string-cardinal 166 'sv))
  (test-equal "etthundrasextiosju"            (number->string-cardinal 167 'sv))
  (test-equal "etthundrasextioåtta"           (number->string-cardinal 168 'sv))
  (test-equal "etthundrasextionio"            (number->string-cardinal 169 'sv))
  (test-equal "etthundrasjuttio"              (number->string-cardinal 170 'sv))
  (test-equal "etthundrasjuttioett"           (number->string-cardinal 171 'sv))
  (test-equal "etthundrasjuttiotvå"           (number->string-cardinal 172 'sv))
  (test-equal "etthundrasjuttiotre"           (number->string-cardinal 173 'sv))
  (test-equal "etthundrasjuttiofyra"          (number->string-cardinal 174 'sv))
  (test-equal "etthundrasjuttiofem"           (number->string-cardinal 175 'sv))
  (test-equal "etthundrasjuttiosex"           (number->string-cardinal 176 'sv))
  (test-equal "etthundrasjuttiosju"           (number->string-cardinal 177 'sv))
  (test-equal "etthundrasjuttioåtta"          (number->string-cardinal 178 'sv))
  (test-equal "etthundrasjuttionio"           (number->string-cardinal 179 'sv))
  (test-equal "etthundraåttio"                (number->string-cardinal 180 'sv))
  (test-equal "etthundraåttioett"             (number->string-cardinal 181 'sv))
  (test-equal "etthundraåttiotvå"             (number->string-cardinal 182 'sv))
  (test-equal "etthundraåttiotre"             (number->string-cardinal 183 'sv))
  (test-equal "etthundraåttiofyra"            (number->string-cardinal 184 'sv))
  (test-equal "etthundraåttiofem"             (number->string-cardinal 185 'sv))
  (test-equal "etthundraåttiosex"             (number->string-cardinal 186 'sv))
  (test-equal "etthundraåttiosju"             (number->string-cardinal 187 'sv))
  (test-equal "etthundraåttioåtta"            (number->string-cardinal 188 'sv))
  (test-equal "etthundraåttionio"             (number->string-cardinal 189 'sv))
  (test-equal "etthundranittio"               (number->string-cardinal 190 'sv))
  (test-equal "etthundranittioett"            (number->string-cardinal 191 'sv))
  (test-equal "etthundranittiotvå"            (number->string-cardinal 192 'sv))
  (test-equal "etthundranittiotre"            (number->string-cardinal 193 'sv))
  (test-equal "etthundranittiofyra"           (number->string-cardinal 194 'sv))
  (test-equal "etthundranittiofem"            (number->string-cardinal 195 'sv))
  (test-equal "etthundranittiosex"            (number->string-cardinal 196 'sv))
  (test-equal "etthundranittiosju"            (number->string-cardinal 197 'sv))
  (test-equal "etthundranittioåtta"           (number->string-cardinal 198 'sv))
  (test-equal "etthundranittionio"            (number->string-cardinal 199 'sv))
  (test-equal "tvåhundra"                     (number->string-cardinal 200 'sv))
  (test-equal "tvåhundraett"                  (number->string-cardinal 201 'sv))
  (test-equal "tvåhundratvå"                  (number->string-cardinal 202 'sv))
  (test-equal "tvåhundratre"                  (number->string-cardinal 203 'sv))
  (test-equal "tvåhundrafyra"                 (number->string-cardinal 204 'sv))
  (test-equal "tvåhundrafem"                  (number->string-cardinal 205 'sv))
  (test-equal "tvåhundrasex"                  (number->string-cardinal 206 'sv))
  (test-equal "tvåhundrasju"                  (number->string-cardinal 207 'sv))
  (test-equal "tvåhundraåtta"                 (number->string-cardinal 208 'sv))
  (test-equal "tvåhundranio"                  (number->string-cardinal 209 'sv))
  (test-equal "tvåhundratio"                  (number->string-cardinal 210 'sv))
  (test-equal "tvåhundraelva"                 (number->string-cardinal 211 'sv))
  (test-equal "tvåhundratolv"                 (number->string-cardinal 212 'sv))
  (test-equal "tvåhundratretton"              (number->string-cardinal 213 'sv))
  (test-equal "tvåhundrafjorton"              (number->string-cardinal 214 'sv))
  (test-equal "tvåhundrafemton"               (number->string-cardinal 215 'sv))
  (test-equal "tvåhundrasexton"               (number->string-cardinal 216 'sv))
  (test-equal "tvåhundrasjutton"              (number->string-cardinal 217 'sv))
  (test-equal "tvåhundraarton"                (number->string-cardinal 218 'sv))
  (test-equal "tvåhundranitton"               (number->string-cardinal 219 'sv))
  (test-equal "tvåhundratjugo"                (number->string-cardinal 220 'sv))
  (test-equal "tvåhundratjugoett"             (number->string-cardinal 221 'sv))
  (test-equal "tvåhundratjugotvå"             (number->string-cardinal 222 'sv))
  (test-equal "tvåhundratjugotre"             (number->string-cardinal 223 'sv))
  (test-equal "tvåhundratjugofyra"            (number->string-cardinal 224 'sv))
  (test-equal "tvåhundratjugofem"             (number->string-cardinal 225 'sv))
  (test-equal "tvåhundratjugosex"             (number->string-cardinal 226 'sv))
  (test-equal "tvåhundratjugosju"             (number->string-cardinal 227 'sv))
  (test-equal "tvåhundratjugoåtta"            (number->string-cardinal 228 'sv))
  (test-equal "tvåhundratjugonio"             (number->string-cardinal 229 'sv))
  (test-equal "tvåhundratrettio"              (number->string-cardinal 230 'sv))
  (test-equal "tvåhundratrettioett"           (number->string-cardinal 231 'sv))
  (test-equal "tvåhundratrettiotvå"           (number->string-cardinal 232 'sv))
  (test-equal "tvåhundratrettiotre"           (number->string-cardinal 233 'sv))
  (test-equal "tvåhundratrettiofyra"          (number->string-cardinal 234 'sv))
  (test-equal "tvåhundratrettiofem"           (number->string-cardinal 235 'sv))
  (test-equal "tvåhundratrettiosex"           (number->string-cardinal 236 'sv))
  (test-equal "tvåhundratrettiosju"           (number->string-cardinal 237 'sv))
  (test-equal "tvåhundratrettioåtta"          (number->string-cardinal 238 'sv))
  (test-equal "tvåhundratrettionio"           (number->string-cardinal 239 'sv))
  (test-equal "tvåhundrafyrtio"               (number->string-cardinal 240 'sv))
  (test-equal "tvåhundrafyrtioett"            (number->string-cardinal 241 'sv))
  (test-equal "tvåhundrafyrtiotvå"            (number->string-cardinal 242 'sv))
  (test-equal "tvåhundrafyrtiotre"            (number->string-cardinal 243 'sv))
  (test-equal "tvåhundrafyrtiofyra"           (number->string-cardinal 244 'sv))
  (test-equal "tvåhundrafyrtiofem"            (number->string-cardinal 245 'sv))
  (test-equal "tvåhundrafyrtiosex"            (number->string-cardinal 246 'sv))
  (test-equal "tvåhundrafyrtiosju"            (number->string-cardinal 247 'sv))
  (test-equal "tvåhundrafyrtioåtta"           (number->string-cardinal 248 'sv))
  (test-equal "tvåhundrafyrtionio"            (number->string-cardinal 249 'sv))
  (test-equal "tvåhundrafemtio"               (number->string-cardinal 250 'sv))
  (test-equal "tvåhundrafemtioett"            (number->string-cardinal 251 'sv))
  (test-equal "tvåhundrafemtiotvå"            (number->string-cardinal 252 'sv))
  (test-equal "tvåhundrafemtiotre"            (number->string-cardinal 253 'sv))
  (test-equal "tvåhundrafemtiofyra"           (number->string-cardinal 254 'sv))
  (test-equal "tvåhundrafemtiofem"            (number->string-cardinal 255 'sv))
  (test-equal "tvåhundrafemtiosex"            (number->string-cardinal 256 'sv))
  (test-equal "tvåhundrafemtiosju"            (number->string-cardinal 257 'sv))
  (test-equal "tvåhundrafemtioåtta"           (number->string-cardinal 258 'sv))
  (test-equal "tvåhundrafemtionio"            (number->string-cardinal 259 'sv))
  (test-equal "tvåhundrasextio"               (number->string-cardinal 260 'sv))
  (test-equal "tvåhundrasextioett"            (number->string-cardinal 261 'sv))
  (test-equal "tvåhundrasextiotvå"            (number->string-cardinal 262 'sv))
  (test-equal "tvåhundrasextiotre"            (number->string-cardinal 263 'sv))
  (test-equal "tvåhundrasextiofyra"           (number->string-cardinal 264 'sv))
  (test-equal "tvåhundrasextiofem"            (number->string-cardinal 265 'sv))
  (test-equal "tvåhundrasextiosex"            (number->string-cardinal 266 'sv))
  (test-equal "tvåhundrasextiosju"            (number->string-cardinal 267 'sv))
  (test-equal "tvåhundrasextioåtta"           (number->string-cardinal 268 'sv))
  (test-equal "tvåhundrasextionio"            (number->string-cardinal 269 'sv))
  (test-equal "tvåhundrasjuttio"              (number->string-cardinal 270 'sv))
  (test-equal "tvåhundrasjuttioett"           (number->string-cardinal 271 'sv))
  (test-equal "tvåhundrasjuttiotvå"           (number->string-cardinal 272 'sv))
  (test-equal "tvåhundrasjuttiotre"           (number->string-cardinal 273 'sv))
  (test-equal "tvåhundrasjuttiofyra"          (number->string-cardinal 274 'sv))
  (test-equal "tvåhundrasjuttiofem"           (number->string-cardinal 275 'sv))
  (test-equal "tvåhundrasjuttiosex"           (number->string-cardinal 276 'sv))
  (test-equal "tvåhundrasjuttiosju"           (number->string-cardinal 277 'sv))
  (test-equal "tvåhundrasjuttioåtta"          (number->string-cardinal 278 'sv))
  (test-equal "tvåhundrasjuttionio"           (number->string-cardinal 279 'sv))
  (test-equal "tvåhundraåttio"                (number->string-cardinal 280 'sv))
  (test-equal "tvåhundraåttioett"             (number->string-cardinal 281 'sv))
  (test-equal "tvåhundraåttiotvå"             (number->string-cardinal 282 'sv))
  (test-equal "tvåhundraåttiotre"             (number->string-cardinal 283 'sv))
  (test-equal "tvåhundraåttiofyra"            (number->string-cardinal 284 'sv))
  (test-equal "tvåhundraåttiofem"             (number->string-cardinal 285 'sv))
  (test-equal "tvåhundraåttiosex"             (number->string-cardinal 286 'sv))
  (test-equal "tvåhundraåttiosju"             (number->string-cardinal 287 'sv))
  (test-equal "tvåhundraåttioåtta"            (number->string-cardinal 288 'sv))
  (test-equal "tvåhundraåttionio"             (number->string-cardinal 289 'sv))
  (test-equal "tvåhundranittio"               (number->string-cardinal 290 'sv))
  (test-equal "tvåhundranittioett"            (number->string-cardinal 291 'sv))
  (test-equal "tvåhundranittiotvå"            (number->string-cardinal 292 'sv))
  (test-equal "tvåhundranittiotre"            (number->string-cardinal 293 'sv))
  (test-equal "tvåhundranittiofyra"           (number->string-cardinal 294 'sv))
  (test-equal "tvåhundranittiofem"            (number->string-cardinal 295 'sv))
  (test-equal "tvåhundranittiosex"            (number->string-cardinal 296 'sv))
  (test-equal "tvåhundranittiosju"            (number->string-cardinal 297 'sv))
  (test-equal "tvåhundranittioåtta"           (number->string-cardinal 298 'sv))
  (test-equal "tvåhundranittionio"            (number->string-cardinal 299 'sv))
  (test-equal "trehundra"                     (number->string-cardinal 300 'sv))
  (test-equal "trehundraett"                  (number->string-cardinal 301 'sv))
  (test-equal "trehundratvå"                  (number->string-cardinal 302 'sv))
  (test-equal "trehundratre"                  (number->string-cardinal 303 'sv))
  (test-equal "trehundrafyra"                 (number->string-cardinal 304 'sv))
  (test-equal "trehundrafem"                  (number->string-cardinal 305 'sv))
  (test-equal "trehundrasex"                  (number->string-cardinal 306 'sv))
  (test-equal "trehundrasju"                  (number->string-cardinal 307 'sv))
  (test-equal "trehundraåtta"                 (number->string-cardinal 308 'sv))
  (test-equal "trehundranio"                  (number->string-cardinal 309 'sv))
  (test-equal "trehundratio"                  (number->string-cardinal 310 'sv))
  (test-equal "trehundraelva"                 (number->string-cardinal 311 'sv))
  (test-equal "trehundratolv"                 (number->string-cardinal 312 'sv))
  (test-equal "trehundratretton"              (number->string-cardinal 313 'sv))
  (test-equal "trehundrafjorton"              (number->string-cardinal 314 'sv))
  (test-equal "trehundrafemton"               (number->string-cardinal 315 'sv))
  (test-equal "trehundrasexton"               (number->string-cardinal 316 'sv))
  (test-equal "trehundrasjutton"              (number->string-cardinal 317 'sv))
  (test-equal "trehundraarton"                (number->string-cardinal 318 'sv))
  (test-equal "trehundranitton"               (number->string-cardinal 319 'sv))
  (test-equal "trehundratjugo"                (number->string-cardinal 320 'sv))
  (test-equal "trehundratjugoett"             (number->string-cardinal 321 'sv))
  (test-equal "trehundratjugotvå"             (number->string-cardinal 322 'sv))
  (test-equal "trehundratjugotre"             (number->string-cardinal 323 'sv))
  (test-equal "trehundratjugofyra"            (number->string-cardinal 324 'sv))
  (test-equal "trehundratjugofem"             (number->string-cardinal 325 'sv))
  (test-equal "trehundratjugosex"             (number->string-cardinal 326 'sv))
  (test-equal "trehundratjugosju"             (number->string-cardinal 327 'sv))
  (test-equal "trehundratjugoåtta"            (number->string-cardinal 328 'sv))
  (test-equal "trehundratjugonio"             (number->string-cardinal 329 'sv))
  (test-equal "trehundratrettio"              (number->string-cardinal 330 'sv))
  (test-equal "trehundratrettioett"           (number->string-cardinal 331 'sv))
  (test-equal "trehundratrettiotvå"           (number->string-cardinal 332 'sv))
  (test-equal "trehundratrettiotre"           (number->string-cardinal 333 'sv))
  (test-equal "trehundratrettiofyra"          (number->string-cardinal 334 'sv))
  (test-equal "trehundratrettiofem"           (number->string-cardinal 335 'sv))
  (test-equal "trehundratrettiosex"           (number->string-cardinal 336 'sv))
  (test-equal "trehundratrettiosju"           (number->string-cardinal 337 'sv))
  (test-equal "trehundratrettioåtta"          (number->string-cardinal 338 'sv))
  (test-equal "trehundratrettionio"           (number->string-cardinal 339 'sv))
  (test-equal "trehundrafyrtio"               (number->string-cardinal 340 'sv))
  (test-equal "trehundrafyrtioett"            (number->string-cardinal 341 'sv))
  (test-equal "trehundrafyrtiotvå"            (number->string-cardinal 342 'sv))
  (test-equal "trehundrafyrtiotre"            (number->string-cardinal 343 'sv))
  (test-equal "trehundrafyrtiofyra"           (number->string-cardinal 344 'sv))
  (test-equal "trehundrafyrtiofem"            (number->string-cardinal 345 'sv))
  (test-equal "trehundrafyrtiosex"            (number->string-cardinal 346 'sv))
  (test-equal "trehundrafyrtiosju"            (number->string-cardinal 347 'sv))
  (test-equal "trehundrafyrtioåtta"           (number->string-cardinal 348 'sv))
  (test-equal "trehundrafyrtionio"            (number->string-cardinal 349 'sv))
  (test-equal "trehundrafemtio"               (number->string-cardinal 350 'sv))
  (test-equal "trehundrafemtioett"            (number->string-cardinal 351 'sv))
  (test-equal "trehundrafemtiotvå"            (number->string-cardinal 352 'sv))
  (test-equal "trehundrafemtiotre"            (number->string-cardinal 353 'sv))
  (test-equal "trehundrafemtiofyra"           (number->string-cardinal 354 'sv))
  (test-equal "trehundrafemtiofem"            (number->string-cardinal 355 'sv))
  (test-equal "trehundrafemtiosex"            (number->string-cardinal 356 'sv))
  (test-equal "trehundrafemtiosju"            (number->string-cardinal 357 'sv))
  (test-equal "trehundrafemtioåtta"           (number->string-cardinal 358 'sv))
  (test-equal "trehundrafemtionio"            (number->string-cardinal 359 'sv))
  (test-equal "trehundrasextio"               (number->string-cardinal 360 'sv))
  (test-equal "trehundrasextioett"            (number->string-cardinal 361 'sv))
  (test-equal "trehundrasextiotvå"            (number->string-cardinal 362 'sv))
  (test-equal "trehundrasextiotre"            (number->string-cardinal 363 'sv))
  (test-equal "trehundrasextiofyra"           (number->string-cardinal 364 'sv))
  (test-equal "trehundrasextiofem"            (number->string-cardinal 365 'sv))
  (test-equal "trehundrasextiosex"            (number->string-cardinal 366 'sv))
  (test-equal "trehundrasextiosju"            (number->string-cardinal 367 'sv))
  (test-equal "trehundrasextioåtta"           (number->string-cardinal 368 'sv))
  (test-equal "trehundrasextionio"            (number->string-cardinal 369 'sv))
  (test-equal "trehundrasjuttio"              (number->string-cardinal 370 'sv))
  (test-equal "trehundrasjuttioett"           (number->string-cardinal 371 'sv))
  (test-equal "trehundrasjuttiotvå"           (number->string-cardinal 372 'sv))
  (test-equal "trehundrasjuttiotre"           (number->string-cardinal 373 'sv))
  (test-equal "trehundrasjuttiofyra"          (number->string-cardinal 374 'sv))
  (test-equal "trehundrasjuttiofem"           (number->string-cardinal 375 'sv))
  (test-equal "trehundrasjuttiosex"           (number->string-cardinal 376 'sv))
  (test-equal "trehundrasjuttiosju"           (number->string-cardinal 377 'sv))
  (test-equal "trehundrasjuttioåtta"          (number->string-cardinal 378 'sv))
  (test-equal "trehundrasjuttionio"           (number->string-cardinal 379 'sv))
  (test-equal "trehundraåttio"                (number->string-cardinal 380 'sv))
  (test-equal "trehundraåttioett"             (number->string-cardinal 381 'sv))
  (test-equal "trehundraåttiotvå"             (number->string-cardinal 382 'sv))
  (test-equal "trehundraåttiotre"             (number->string-cardinal 383 'sv))
  (test-equal "trehundraåttiofyra"            (number->string-cardinal 384 'sv))
  (test-equal "trehundraåttiofem"             (number->string-cardinal 385 'sv))
  (test-equal "trehundraåttiosex"             (number->string-cardinal 386 'sv))
  (test-equal "trehundraåttiosju"             (number->string-cardinal 387 'sv))
  (test-equal "trehundraåttioåtta"            (number->string-cardinal 388 'sv))
  (test-equal "trehundraåttionio"             (number->string-cardinal 389 'sv))
  (test-equal "trehundranittio"               (number->string-cardinal 390 'sv))
  (test-equal "trehundranittioett"            (number->string-cardinal 391 'sv))
  (test-equal "trehundranittiotvå"            (number->string-cardinal 392 'sv))
  (test-equal "trehundranittiotre"            (number->string-cardinal 393 'sv))
  (test-equal "trehundranittiofyra"           (number->string-cardinal 394 'sv))
  (test-equal "trehundranittiofem"            (number->string-cardinal 395 'sv))
  (test-equal "trehundranittiosex"            (number->string-cardinal 396 'sv))
  (test-equal "trehundranittiosju"            (number->string-cardinal 397 'sv))
  (test-equal "trehundranittioåtta"           (number->string-cardinal 398 'sv))
  (test-equal "trehundranittionio"            (number->string-cardinal 399 'sv))
  (test-equal "fyrahundra"                    (number->string-cardinal 400 'sv))
  (test-equal "fyrahundraett"                 (number->string-cardinal 401 'sv))
  (test-equal "fyrahundratvå"                 (number->string-cardinal 402 'sv))
  (test-equal "fyrahundratre"                 (number->string-cardinal 403 'sv))
  (test-equal "fyrahundrafyra"                (number->string-cardinal 404 'sv))
  (test-equal "fyrahundrafem"                 (number->string-cardinal 405 'sv))
  (test-equal "fyrahundrasex"                 (number->string-cardinal 406 'sv))
  (test-equal "fyrahundrasju"                 (number->string-cardinal 407 'sv))
  (test-equal "fyrahundraåtta"                (number->string-cardinal 408 'sv))
  (test-equal "fyrahundranio"                 (number->string-cardinal 409 'sv))
  (test-equal "fyrahundratio"                 (number->string-cardinal 410 'sv))
  (test-equal "fyrahundraelva"                (number->string-cardinal 411 'sv))
  (test-equal "fyrahundratolv"                (number->string-cardinal 412 'sv))
  (test-equal "fyrahundratretton"             (number->string-cardinal 413 'sv))
  (test-equal "fyrahundrafjorton"             (number->string-cardinal 414 'sv))
  (test-equal "fyrahundrafemton"              (number->string-cardinal 415 'sv))
  (test-equal "fyrahundrasexton"              (number->string-cardinal 416 'sv))
  (test-equal "fyrahundrasjutton"             (number->string-cardinal 417 'sv))
  (test-equal "fyrahundraarton"               (number->string-cardinal 418 'sv))
  (test-equal "fyrahundranitton"              (number->string-cardinal 419 'sv))
  (test-equal "fyrahundratjugo"               (number->string-cardinal 420 'sv))
  (test-equal "fyrahundratjugoett"            (number->string-cardinal 421 'sv))
  (test-equal "fyrahundratjugotvå"            (number->string-cardinal 422 'sv))
  (test-equal "fyrahundratjugotre"            (number->string-cardinal 423 'sv))
  (test-equal "fyrahundratjugofyra"           (number->string-cardinal 424 'sv))
  (test-equal "fyrahundratjugofem"            (number->string-cardinal 425 'sv))
  (test-equal "fyrahundratjugosex"            (number->string-cardinal 426 'sv))
  (test-equal "fyrahundratjugosju"            (number->string-cardinal 427 'sv))
  (test-equal "fyrahundratjugoåtta"           (number->string-cardinal 428 'sv))
  (test-equal "fyrahundratjugonio"            (number->string-cardinal 429 'sv))
  (test-equal "fyrahundratrettio"             (number->string-cardinal 430 'sv))
  (test-equal "fyrahundratrettioett"          (number->string-cardinal 431 'sv))
  (test-equal "fyrahundratrettiotvå"          (number->string-cardinal 432 'sv))
  (test-equal "fyrahundratrettiotre"          (number->string-cardinal 433 'sv))
  (test-equal "fyrahundratrettiofyra"         (number->string-cardinal 434 'sv))
  (test-equal "fyrahundratrettiofem"          (number->string-cardinal 435 'sv))
  (test-equal "fyrahundratrettiosex"          (number->string-cardinal 436 'sv))
  (test-equal "fyrahundratrettiosju"          (number->string-cardinal 437 'sv))
  (test-equal "fyrahundratrettioåtta"         (number->string-cardinal 438 'sv))
  (test-equal "fyrahundratrettionio"          (number->string-cardinal 439 'sv))
  (test-equal "fyrahundrafyrtio"              (number->string-cardinal 440 'sv))
  (test-equal "fyrahundrafyrtioett"           (number->string-cardinal 441 'sv))
  (test-equal "fyrahundrafyrtiotvå"           (number->string-cardinal 442 'sv))
  (test-equal "fyrahundrafyrtiotre"           (number->string-cardinal 443 'sv))
  (test-equal "fyrahundrafyrtiofyra"          (number->string-cardinal 444 'sv))
  (test-equal "fyrahundrafyrtiofem"           (number->string-cardinal 445 'sv))
  (test-equal "fyrahundrafyrtiosex"           (number->string-cardinal 446 'sv))
  (test-equal "fyrahundrafyrtiosju"           (number->string-cardinal 447 'sv))
  (test-equal "fyrahundrafyrtioåtta"          (number->string-cardinal 448 'sv))
  (test-equal "fyrahundrafyrtionio"           (number->string-cardinal 449 'sv))
  (test-equal "fyrahundrafemtio"              (number->string-cardinal 450 'sv))
  (test-equal "fyrahundrafemtioett"           (number->string-cardinal 451 'sv))
  (test-equal "fyrahundrafemtiotvå"           (number->string-cardinal 452 'sv))
  (test-equal "fyrahundrafemtiotre"           (number->string-cardinal 453 'sv))
  (test-equal "fyrahundrafemtiofyra"          (number->string-cardinal 454 'sv))
  (test-equal "fyrahundrafemtiofem"           (number->string-cardinal 455 'sv))
  (test-equal "fyrahundrafemtiosex"           (number->string-cardinal 456 'sv))
  (test-equal "fyrahundrafemtiosju"           (number->string-cardinal 457 'sv))
  (test-equal "fyrahundrafemtioåtta"          (number->string-cardinal 458 'sv))
  (test-equal "fyrahundrafemtionio"           (number->string-cardinal 459 'sv))
  (test-equal "fyrahundrasextio"              (number->string-cardinal 460 'sv))
  (test-equal "fyrahundrasextioett"           (number->string-cardinal 461 'sv))
  (test-equal "fyrahundrasextiotvå"           (number->string-cardinal 462 'sv))
  (test-equal "fyrahundrasextiotre"           (number->string-cardinal 463 'sv))
  (test-equal "fyrahundrasextiofyra"          (number->string-cardinal 464 'sv))
  (test-equal "fyrahundrasextiofem"           (number->string-cardinal 465 'sv))
  (test-equal "fyrahundrasextiosex"           (number->string-cardinal 466 'sv))
  (test-equal "fyrahundrasextiosju"           (number->string-cardinal 467 'sv))
  (test-equal "fyrahundrasextioåtta"          (number->string-cardinal 468 'sv))
  (test-equal "fyrahundrasextionio"           (number->string-cardinal 469 'sv))
  (test-equal "fyrahundrasjuttio"             (number->string-cardinal 470 'sv))
  (test-equal "fyrahundrasjuttioett"          (number->string-cardinal 471 'sv))
  (test-equal "fyrahundrasjuttiotvå"          (number->string-cardinal 472 'sv))
  (test-equal "fyrahundrasjuttiotre"          (number->string-cardinal 473 'sv))
  (test-equal "fyrahundrasjuttiofyra"         (number->string-cardinal 474 'sv))
  (test-equal "fyrahundrasjuttiofem"          (number->string-cardinal 475 'sv))
  (test-equal "fyrahundrasjuttiosex"          (number->string-cardinal 476 'sv))
  (test-equal "fyrahundrasjuttiosju"          (number->string-cardinal 477 'sv))
  (test-equal "fyrahundrasjuttioåtta"         (number->string-cardinal 478 'sv))
  (test-equal "fyrahundrasjuttionio"          (number->string-cardinal 479 'sv))
  (test-equal "fyrahundraåttio"               (number->string-cardinal 480 'sv))
  (test-equal "fyrahundraåttioett"            (number->string-cardinal 481 'sv))
  (test-equal "fyrahundraåttiotvå"            (number->string-cardinal 482 'sv))
  (test-equal "fyrahundraåttiotre"            (number->string-cardinal 483 'sv))
  (test-equal "fyrahundraåttiofyra"           (number->string-cardinal 484 'sv))
  (test-equal "fyrahundraåttiofem"            (number->string-cardinal 485 'sv))
  (test-equal "fyrahundraåttiosex"            (number->string-cardinal 486 'sv))
  (test-equal "fyrahundraåttiosju"            (number->string-cardinal 487 'sv))
  (test-equal "fyrahundraåttioåtta"           (number->string-cardinal 488 'sv))
  (test-equal "fyrahundraåttionio"            (number->string-cardinal 489 'sv))
  (test-equal "fyrahundranittio"              (number->string-cardinal 490 'sv))
  (test-equal "fyrahundranittioett"           (number->string-cardinal 491 'sv))
  (test-equal "fyrahundranittiotvå"           (number->string-cardinal 492 'sv))
  (test-equal "fyrahundranittiotre"           (number->string-cardinal 493 'sv))
  (test-equal "fyrahundranittiofyra"          (number->string-cardinal 494 'sv))
  (test-equal "fyrahundranittiofem"           (number->string-cardinal 495 'sv))
  (test-equal "fyrahundranittiosex"           (number->string-cardinal 496 'sv))
  (test-equal "fyrahundranittiosju"           (number->string-cardinal 497 'sv))
  (test-equal "fyrahundranittioåtta"          (number->string-cardinal 498 'sv))
  (test-equal "fyrahundranittionio"           (number->string-cardinal 499 'sv))
  (test-equal "femhundra"                     (number->string-cardinal 500 'sv))
  (test-equal "femhundraett"                  (number->string-cardinal 501 'sv))
  (test-equal "femhundratvå"                  (number->string-cardinal 502 'sv))
  (test-equal "femhundratre"                  (number->string-cardinal 503 'sv))
  (test-equal "femhundrafyra"                 (number->string-cardinal 504 'sv))
  (test-equal "femhundrafem"                  (number->string-cardinal 505 'sv))
  (test-equal "femhundrasex"                  (number->string-cardinal 506 'sv))
  (test-equal "femhundrasju"                  (number->string-cardinal 507 'sv))
  (test-equal "femhundraåtta"                 (number->string-cardinal 508 'sv))
  (test-equal "femhundranio"                  (number->string-cardinal 509 'sv))
  (test-equal "femhundratio"                  (number->string-cardinal 510 'sv))
  (test-equal "femhundraelva"                 (number->string-cardinal 511 'sv))
  (test-equal "femhundratolv"                 (number->string-cardinal 512 'sv))
  (test-equal "femhundratretton"              (number->string-cardinal 513 'sv))
  (test-equal "femhundrafjorton"              (number->string-cardinal 514 'sv))
  (test-equal "femhundrafemton"               (number->string-cardinal 515 'sv))
  (test-equal "femhundrasexton"               (number->string-cardinal 516 'sv))
  (test-equal "femhundrasjutton"              (number->string-cardinal 517 'sv))
  (test-equal "femhundraarton"                (number->string-cardinal 518 'sv))
  (test-equal "femhundranitton"               (number->string-cardinal 519 'sv))
  (test-equal "femhundratjugo"                (number->string-cardinal 520 'sv))
  (test-equal "femhundratjugoett"             (number->string-cardinal 521 'sv))
  (test-equal "femhundratjugotvå"             (number->string-cardinal 522 'sv))
  (test-equal "femhundratjugotre"             (number->string-cardinal 523 'sv))
  (test-equal "femhundratjugofyra"            (number->string-cardinal 524 'sv))
  (test-equal "femhundratjugofem"             (number->string-cardinal 525 'sv))
  (test-equal "femhundratjugosex"             (number->string-cardinal 526 'sv))
  (test-equal "femhundratjugosju"             (number->string-cardinal 527 'sv))
  (test-equal "femhundratjugoåtta"            (number->string-cardinal 528 'sv))
  (test-equal "femhundratjugonio"             (number->string-cardinal 529 'sv))
  (test-equal "femhundratrettio"              (number->string-cardinal 530 'sv))
  (test-equal "femhundratrettioett"           (number->string-cardinal 531 'sv))
  (test-equal "femhundratrettiotvå"           (number->string-cardinal 532 'sv))
  (test-equal "femhundratrettiotre"           (number->string-cardinal 533 'sv))
  (test-equal "femhundratrettiofyra"          (number->string-cardinal 534 'sv))
  (test-equal "femhundratrettiofem"           (number->string-cardinal 535 'sv))
  (test-equal "femhundratrettiosex"           (number->string-cardinal 536 'sv))
  (test-equal "femhundratrettiosju"           (number->string-cardinal 537 'sv))
  (test-equal "femhundratrettioåtta"          (number->string-cardinal 538 'sv))
  (test-equal "femhundratrettionio"           (number->string-cardinal 539 'sv))
  (test-equal "femhundrafyrtio"               (number->string-cardinal 540 'sv))
  (test-equal "femhundrafyrtioett"            (number->string-cardinal 541 'sv))
  (test-equal "femhundrafyrtiotvå"            (number->string-cardinal 542 'sv))
  (test-equal "femhundrafyrtiotre"            (number->string-cardinal 543 'sv))
  (test-equal "femhundrafyrtiofyra"           (number->string-cardinal 544 'sv))
  (test-equal "femhundrafyrtiofem"            (number->string-cardinal 545 'sv))
  (test-equal "femhundrafyrtiosex"            (number->string-cardinal 546 'sv))
  (test-equal "femhundrafyrtiosju"            (number->string-cardinal 547 'sv))
  (test-equal "femhundrafyrtioåtta"           (number->string-cardinal 548 'sv))
  (test-equal "femhundrafyrtionio"            (number->string-cardinal 549 'sv))
  (test-equal "femhundrafemtio"               (number->string-cardinal 550 'sv))
  (test-equal "femhundrafemtioett"            (number->string-cardinal 551 'sv))
  (test-equal "femhundrafemtiotvå"            (number->string-cardinal 552 'sv))
  (test-equal "femhundrafemtiotre"            (number->string-cardinal 553 'sv))
  (test-equal "femhundrafemtiofyra"           (number->string-cardinal 554 'sv))
  (test-equal "femhundrafemtiofem"            (number->string-cardinal 555 'sv))
  (test-equal "femhundrafemtiosex"            (number->string-cardinal 556 'sv))
  (test-equal "femhundrafemtiosju"            (number->string-cardinal 557 'sv))
  (test-equal "femhundrafemtioåtta"           (number->string-cardinal 558 'sv))
  (test-equal "femhundrafemtionio"            (number->string-cardinal 559 'sv))
  (test-equal "femhundrasextio"               (number->string-cardinal 560 'sv))
  (test-equal "femhundrasextioett"            (number->string-cardinal 561 'sv))
  (test-equal "femhundrasextiotvå"            (number->string-cardinal 562 'sv))
  (test-equal "femhundrasextiotre"            (number->string-cardinal 563 'sv))
  (test-equal "femhundrasextiofyra"           (number->string-cardinal 564 'sv))
  (test-equal "femhundrasextiofem"            (number->string-cardinal 565 'sv))
  (test-equal "femhundrasextiosex"            (number->string-cardinal 566 'sv))
  (test-equal "femhundrasextiosju"            (number->string-cardinal 567 'sv))
  (test-equal "femhundrasextioåtta"           (number->string-cardinal 568 'sv))
  (test-equal "femhundrasextionio"            (number->string-cardinal 569 'sv))
  (test-equal "femhundrasjuttio"              (number->string-cardinal 570 'sv))
  (test-equal "femhundrasjuttioett"           (number->string-cardinal 571 'sv))
  (test-equal "femhundrasjuttiotvå"           (number->string-cardinal 572 'sv))
  (test-equal "femhundrasjuttiotre"           (number->string-cardinal 573 'sv))
  (test-equal "femhundrasjuttiofyra"          (number->string-cardinal 574 'sv))
  (test-equal "femhundrasjuttiofem"           (number->string-cardinal 575 'sv))
  (test-equal "femhundrasjuttiosex"           (number->string-cardinal 576 'sv))
  (test-equal "femhundrasjuttiosju"           (number->string-cardinal 577 'sv))
  (test-equal "femhundrasjuttioåtta"          (number->string-cardinal 578 'sv))
  (test-equal "femhundrasjuttionio"           (number->string-cardinal 579 'sv))
  (test-equal "femhundraåttio"                (number->string-cardinal 580 'sv))
  (test-equal "femhundraåttioett"             (number->string-cardinal 581 'sv))
  (test-equal "femhundraåttiotvå"             (number->string-cardinal 582 'sv))
  (test-equal "femhundraåttiotre"             (number->string-cardinal 583 'sv))
  (test-equal "femhundraåttiofyra"            (number->string-cardinal 584 'sv))
  (test-equal "femhundraåttiofem"             (number->string-cardinal 585 'sv))
  (test-equal "femhundraåttiosex"             (number->string-cardinal 586 'sv))
  (test-equal "femhundraåttiosju"             (number->string-cardinal 587 'sv))
  (test-equal "femhundraåttioåtta"            (number->string-cardinal 588 'sv))
  (test-equal "femhundraåttionio"             (number->string-cardinal 589 'sv))
  (test-equal "femhundranittio"               (number->string-cardinal 590 'sv))
  (test-equal "femhundranittioett"            (number->string-cardinal 591 'sv))
  (test-equal "femhundranittiotvå"            (number->string-cardinal 592 'sv))
  (test-equal "femhundranittiotre"            (number->string-cardinal 593 'sv))
  (test-equal "femhundranittiofyra"           (number->string-cardinal 594 'sv))
  (test-equal "femhundranittiofem"            (number->string-cardinal 595 'sv))
  (test-equal "femhundranittiosex"            (number->string-cardinal 596 'sv))
  (test-equal "femhundranittiosju"            (number->string-cardinal 597 'sv))
  (test-equal "femhundranittioåtta"           (number->string-cardinal 598 'sv))
  (test-equal "femhundranittionio"            (number->string-cardinal 599 'sv))
  (test-equal "sexhundra"                     (number->string-cardinal 600 'sv))
  (test-equal "sexhundraett"                  (number->string-cardinal 601 'sv))
  (test-equal "sexhundratvå"                  (number->string-cardinal 602 'sv))
  (test-equal "sexhundratre"                  (number->string-cardinal 603 'sv))
  (test-equal "sexhundrafyra"                 (number->string-cardinal 604 'sv))
  (test-equal "sexhundrafem"                  (number->string-cardinal 605 'sv))
  (test-equal "sexhundrasex"                  (number->string-cardinal 606 'sv))
  (test-equal "sexhundrasju"                  (number->string-cardinal 607 'sv))
  (test-equal "sexhundraåtta"                 (number->string-cardinal 608 'sv))
  (test-equal "sexhundranio"                  (number->string-cardinal 609 'sv))
  (test-equal "sexhundratio"                  (number->string-cardinal 610 'sv))
  (test-equal "sexhundraelva"                 (number->string-cardinal 611 'sv))
  (test-equal "sexhundratolv"                 (number->string-cardinal 612 'sv))
  (test-equal "sexhundratretton"              (number->string-cardinal 613 'sv))
  (test-equal "sexhundrafjorton"              (number->string-cardinal 614 'sv))
  (test-equal "sexhundrafemton"               (number->string-cardinal 615 'sv))
  (test-equal "sexhundrasexton"               (number->string-cardinal 616 'sv))
  (test-equal "sexhundrasjutton"              (number->string-cardinal 617 'sv))
  (test-equal "sexhundraarton"                (number->string-cardinal 618 'sv))
  (test-equal "sexhundranitton"               (number->string-cardinal 619 'sv))
  (test-equal "sexhundratjugo"                (number->string-cardinal 620 'sv))
  (test-equal "sexhundratjugoett"             (number->string-cardinal 621 'sv))
  (test-equal "sexhundratjugotvå"             (number->string-cardinal 622 'sv))
  (test-equal "sexhundratjugotre"             (number->string-cardinal 623 'sv))
  (test-equal "sexhundratjugofyra"            (number->string-cardinal 624 'sv))
  (test-equal "sexhundratjugofem"             (number->string-cardinal 625 'sv))
  (test-equal "sexhundratjugosex"             (number->string-cardinal 626 'sv))
  (test-equal "sexhundratjugosju"             (number->string-cardinal 627 'sv))
  (test-equal "sexhundratjugoåtta"            (number->string-cardinal 628 'sv))
  (test-equal "sexhundratjugonio"             (number->string-cardinal 629 'sv))
  (test-equal "sexhundratrettio"              (number->string-cardinal 630 'sv))
  (test-equal "sexhundratrettioett"           (number->string-cardinal 631 'sv))
  (test-equal "sexhundratrettiotvå"           (number->string-cardinal 632 'sv))
  (test-equal "sexhundratrettiotre"           (number->string-cardinal 633 'sv))
  (test-equal "sexhundratrettiofyra"          (number->string-cardinal 634 'sv))
  (test-equal "sexhundratrettiofem"           (number->string-cardinal 635 'sv))
  (test-equal "sexhundratrettiosex"           (number->string-cardinal 636 'sv))
  (test-equal "sexhundratrettiosju"           (number->string-cardinal 637 'sv))
  (test-equal "sexhundratrettioåtta"          (number->string-cardinal 638 'sv))
  (test-equal "sexhundratrettionio"           (number->string-cardinal 639 'sv))
  (test-equal "sexhundrafyrtio"               (number->string-cardinal 640 'sv))
  (test-equal "sexhundrafyrtioett"            (number->string-cardinal 641 'sv))
  (test-equal "sexhundrafyrtiotvå"            (number->string-cardinal 642 'sv))
  (test-equal "sexhundrafyrtiotre"            (number->string-cardinal 643 'sv))
  (test-equal "sexhundrafyrtiofyra"           (number->string-cardinal 644 'sv))
  (test-equal "sexhundrafyrtiofem"            (number->string-cardinal 645 'sv))
  (test-equal "sexhundrafyrtiosex"            (number->string-cardinal 646 'sv))
  (test-equal "sexhundrafyrtiosju"            (number->string-cardinal 647 'sv))
  (test-equal "sexhundrafyrtioåtta"           (number->string-cardinal 648 'sv))
  (test-equal "sexhundrafyrtionio"            (number->string-cardinal 649 'sv))
  (test-equal "sexhundrafemtio"               (number->string-cardinal 650 'sv))
  (test-equal "sexhundrafemtioett"            (number->string-cardinal 651 'sv))
  (test-equal "sexhundrafemtiotvå"            (number->string-cardinal 652 'sv))
  (test-equal "sexhundrafemtiotre"            (number->string-cardinal 653 'sv))
  (test-equal "sexhundrafemtiofyra"           (number->string-cardinal 654 'sv))
  (test-equal "sexhundrafemtiofem"            (number->string-cardinal 655 'sv))
  (test-equal "sexhundrafemtiosex"            (number->string-cardinal 656 'sv))
  (test-equal "sexhundrafemtiosju"            (number->string-cardinal 657 'sv))
  (test-equal "sexhundrafemtioåtta"           (number->string-cardinal 658 'sv))
  (test-equal "sexhundrafemtionio"            (number->string-cardinal 659 'sv))
  (test-equal "sexhundrasextio"               (number->string-cardinal 660 'sv))
  (test-equal "sexhundrasextioett"            (number->string-cardinal 661 'sv))
  (test-equal "sexhundrasextiotvå"            (number->string-cardinal 662 'sv))
  (test-equal "sexhundrasextiotre"            (number->string-cardinal 663 'sv))
  (test-equal "sexhundrasextiofyra"           (number->string-cardinal 664 'sv))
  (test-equal "sexhundrasextiofem"            (number->string-cardinal 665 'sv))
  (test-equal "sexhundrasextiosex"            (number->string-cardinal 666 'sv))
  (test-equal "sexhundrasextiosju"            (number->string-cardinal 667 'sv))
  (test-equal "sexhundrasextioåtta"           (number->string-cardinal 668 'sv))
  (test-equal "sexhundrasextionio"            (number->string-cardinal 669 'sv))
  (test-equal "sexhundrasjuttio"              (number->string-cardinal 670 'sv))
  (test-equal "sexhundrasjuttioett"           (number->string-cardinal 671 'sv))
  (test-equal "sexhundrasjuttiotvå"           (number->string-cardinal 672 'sv))
  (test-equal "sexhundrasjuttiotre"           (number->string-cardinal 673 'sv))
  (test-equal "sexhundrasjuttiofyra"          (number->string-cardinal 674 'sv))
  (test-equal "sexhundrasjuttiofem"           (number->string-cardinal 675 'sv))
  (test-equal "sexhundrasjuttiosex"           (number->string-cardinal 676 'sv))
  (test-equal "sexhundrasjuttiosju"           (number->string-cardinal 677 'sv))
  (test-equal "sexhundrasjuttioåtta"          (number->string-cardinal 678 'sv))
  (test-equal "sexhundrasjuttionio"           (number->string-cardinal 679 'sv))
  (test-equal "sexhundraåttio"                (number->string-cardinal 680 'sv))
  (test-equal "sexhundraåttioett"             (number->string-cardinal 681 'sv))
  (test-equal "sexhundraåttiotvå"             (number->string-cardinal 682 'sv))
  (test-equal "sexhundraåttiotre"             (number->string-cardinal 683 'sv))
  (test-equal "sexhundraåttiofyra"            (number->string-cardinal 684 'sv))
  (test-equal "sexhundraåttiofem"             (number->string-cardinal 685 'sv))
  (test-equal "sexhundraåttiosex"             (number->string-cardinal 686 'sv))
  (test-equal "sexhundraåttiosju"             (number->string-cardinal 687 'sv))
  (test-equal "sexhundraåttioåtta"            (number->string-cardinal 688 'sv))
  (test-equal "sexhundraåttionio"             (number->string-cardinal 689 'sv))
  (test-equal "sexhundranittio"               (number->string-cardinal 690 'sv))
  (test-equal "sexhundranittioett"            (number->string-cardinal 691 'sv))
  (test-equal "sexhundranittiotvå"            (number->string-cardinal 692 'sv))
  (test-equal "sexhundranittiotre"            (number->string-cardinal 693 'sv))
  (test-equal "sexhundranittiofyra"           (number->string-cardinal 694 'sv))
  (test-equal "sexhundranittiofem"            (number->string-cardinal 695 'sv))
  (test-equal "sexhundranittiosex"            (number->string-cardinal 696 'sv))
  (test-equal "sexhundranittiosju"            (number->string-cardinal 697 'sv))
  (test-equal "sexhundranittioåtta"           (number->string-cardinal 698 'sv))
  (test-equal "sexhundranittionio"            (number->string-cardinal 699 'sv))
  (test-equal "sjuhundra"                     (number->string-cardinal 700 'sv))
  (test-equal "sjuhundraett"                  (number->string-cardinal 701 'sv))
  (test-equal "sjuhundratvå"                  (number->string-cardinal 702 'sv))
  (test-equal "sjuhundratre"                  (number->string-cardinal 703 'sv))
  (test-equal "sjuhundrafyra"                 (number->string-cardinal 704 'sv))
  (test-equal "sjuhundrafem"                  (number->string-cardinal 705 'sv))
  (test-equal "sjuhundrasex"                  (number->string-cardinal 706 'sv))
  (test-equal "sjuhundrasju"                  (number->string-cardinal 707 'sv))
  (test-equal "sjuhundraåtta"                 (number->string-cardinal 708 'sv))
  (test-equal "sjuhundranio"                  (number->string-cardinal 709 'sv))
  (test-equal "sjuhundratio"                  (number->string-cardinal 710 'sv))
  (test-equal "sjuhundraelva"                 (number->string-cardinal 711 'sv))
  (test-equal "sjuhundratolv"                 (number->string-cardinal 712 'sv))
  (test-equal "sjuhundratretton"              (number->string-cardinal 713 'sv))
  (test-equal "sjuhundrafjorton"              (number->string-cardinal 714 'sv))
  (test-equal "sjuhundrafemton"               (number->string-cardinal 715 'sv))
  (test-equal "sjuhundrasexton"               (number->string-cardinal 716 'sv))
  (test-equal "sjuhundrasjutton"              (number->string-cardinal 717 'sv))
  (test-equal "sjuhundraarton"                (number->string-cardinal 718 'sv))
  (test-equal "sjuhundranitton"               (number->string-cardinal 719 'sv))
  (test-equal "sjuhundratjugo"                (number->string-cardinal 720 'sv))
  (test-equal "sjuhundratjugoett"             (number->string-cardinal 721 'sv))
  (test-equal "sjuhundratjugotvå"             (number->string-cardinal 722 'sv))
  (test-equal "sjuhundratjugotre"             (number->string-cardinal 723 'sv))
  (test-equal "sjuhundratjugofyra"            (number->string-cardinal 724 'sv))
  (test-equal "sjuhundratjugofem"             (number->string-cardinal 725 'sv))
  (test-equal "sjuhundratjugosex"             (number->string-cardinal 726 'sv))
  (test-equal "sjuhundratjugosju"             (number->string-cardinal 727 'sv))
  (test-equal "sjuhundratjugoåtta"            (number->string-cardinal 728 'sv))
  (test-equal "sjuhundratjugonio"             (number->string-cardinal 729 'sv))
  (test-equal "sjuhundratrettio"              (number->string-cardinal 730 'sv))
  (test-equal "sjuhundratrettioett"           (number->string-cardinal 731 'sv))
  (test-equal "sjuhundratrettiotvå"           (number->string-cardinal 732 'sv))
  (test-equal "sjuhundratrettiotre"           (number->string-cardinal 733 'sv))
  (test-equal "sjuhundratrettiofyra"          (number->string-cardinal 734 'sv))
  (test-equal "sjuhundratrettiofem"           (number->string-cardinal 735 'sv))
  (test-equal "sjuhundratrettiosex"           (number->string-cardinal 736 'sv))
  (test-equal "sjuhundratrettiosju"           (number->string-cardinal 737 'sv))
  (test-equal "sjuhundratrettioåtta"          (number->string-cardinal 738 'sv))
  (test-equal "sjuhundratrettionio"           (number->string-cardinal 739 'sv))
  (test-equal "sjuhundrafyrtio"               (number->string-cardinal 740 'sv))
  (test-equal "sjuhundrafyrtioett"            (number->string-cardinal 741 'sv))
  (test-equal "sjuhundrafyrtiotvå"            (number->string-cardinal 742 'sv))
  (test-equal "sjuhundrafyrtiotre"            (number->string-cardinal 743 'sv))
  (test-equal "sjuhundrafyrtiofyra"           (number->string-cardinal 744 'sv))
  (test-equal "sjuhundrafyrtiofem"            (number->string-cardinal 745 'sv))
  (test-equal "sjuhundrafyrtiosex"            (number->string-cardinal 746 'sv))
  (test-equal "sjuhundrafyrtiosju"            (number->string-cardinal 747 'sv))
  (test-equal "sjuhundrafyrtioåtta"           (number->string-cardinal 748 'sv))
  (test-equal "sjuhundrafyrtionio"            (number->string-cardinal 749 'sv))
  (test-equal "sjuhundrafemtio"               (number->string-cardinal 750 'sv))
  (test-equal "sjuhundrafemtioett"            (number->string-cardinal 751 'sv))
  (test-equal "sjuhundrafemtiotvå"            (number->string-cardinal 752 'sv))
  (test-equal "sjuhundrafemtiotre"            (number->string-cardinal 753 'sv))
  (test-equal "sjuhundrafemtiofyra"           (number->string-cardinal 754 'sv))
  (test-equal "sjuhundrafemtiofem"            (number->string-cardinal 755 'sv))
  (test-equal "sjuhundrafemtiosex"            (number->string-cardinal 756 'sv))
  (test-equal "sjuhundrafemtiosju"            (number->string-cardinal 757 'sv))
  (test-equal "sjuhundrafemtioåtta"           (number->string-cardinal 758 'sv))
  (test-equal "sjuhundrafemtionio"            (number->string-cardinal 759 'sv))
  (test-equal "sjuhundrasextio"               (number->string-cardinal 760 'sv))
  (test-equal "sjuhundrasextioett"            (number->string-cardinal 761 'sv))
  (test-equal "sjuhundrasextiotvå"            (number->string-cardinal 762 'sv))
  (test-equal "sjuhundrasextiotre"            (number->string-cardinal 763 'sv))
  (test-equal "sjuhundrasextiofyra"           (number->string-cardinal 764 'sv))
  (test-equal "sjuhundrasextiofem"            (number->string-cardinal 765 'sv))
  (test-equal "sjuhundrasextiosex"            (number->string-cardinal 766 'sv))
  (test-equal "sjuhundrasextiosju"            (number->string-cardinal 767 'sv))
  (test-equal "sjuhundrasextioåtta"           (number->string-cardinal 768 'sv))
  (test-equal "sjuhundrasextionio"            (number->string-cardinal 769 'sv))
  (test-equal "sjuhundrasjuttio"              (number->string-cardinal 770 'sv))
  (test-equal "sjuhundrasjuttioett"           (number->string-cardinal 771 'sv))
  (test-equal "sjuhundrasjuttiotvå"           (number->string-cardinal 772 'sv))
  (test-equal "sjuhundrasjuttiotre"           (number->string-cardinal 773 'sv))
  (test-equal "sjuhundrasjuttiofyra"          (number->string-cardinal 774 'sv))
  (test-equal "sjuhundrasjuttiofem"           (number->string-cardinal 775 'sv))
  (test-equal "sjuhundrasjuttiosex"           (number->string-cardinal 776 'sv))
  (test-equal "sjuhundrasjuttiosju"           (number->string-cardinal 777 'sv))
  (test-equal "sjuhundrasjuttioåtta"          (number->string-cardinal 778 'sv))
  (test-equal "sjuhundrasjuttionio"           (number->string-cardinal 779 'sv))
  (test-equal "sjuhundraåttio"                (number->string-cardinal 780 'sv))
  (test-equal "sjuhundraåttioett"             (number->string-cardinal 781 'sv))
  (test-equal "sjuhundraåttiotvå"             (number->string-cardinal 782 'sv))
  (test-equal "sjuhundraåttiotre"             (number->string-cardinal 783 'sv))
  (test-equal "sjuhundraåttiofyra"            (number->string-cardinal 784 'sv))
  (test-equal "sjuhundraåttiofem"             (number->string-cardinal 785 'sv))
  (test-equal "sjuhundraåttiosex"             (number->string-cardinal 786 'sv))
  (test-equal "sjuhundraåttiosju"             (number->string-cardinal 787 'sv))
  (test-equal "sjuhundraåttioåtta"            (number->string-cardinal 788 'sv))
  (test-equal "sjuhundraåttionio"             (number->string-cardinal 789 'sv))
  (test-equal "sjuhundranittio"               (number->string-cardinal 790 'sv))
  (test-equal "sjuhundranittioett"            (number->string-cardinal 791 'sv))
  (test-equal "sjuhundranittiotvå"            (number->string-cardinal 792 'sv))
  (test-equal "sjuhundranittiotre"            (number->string-cardinal 793 'sv))
  (test-equal "sjuhundranittiofyra"           (number->string-cardinal 794 'sv))
  (test-equal "sjuhundranittiofem"            (number->string-cardinal 795 'sv))
  (test-equal "sjuhundranittiosex"            (number->string-cardinal 796 'sv))
  (test-equal "sjuhundranittiosju"            (number->string-cardinal 797 'sv))
  (test-equal "sjuhundranittioåtta"           (number->string-cardinal 798 'sv))
  (test-equal "sjuhundranittionio"            (number->string-cardinal 799 'sv))
  (test-equal "åttahundra"                    (number->string-cardinal 800 'sv))
  (test-equal "åttahundraett"                 (number->string-cardinal 801 'sv))
  (test-equal "åttahundratvå"                 (number->string-cardinal 802 'sv))
  (test-equal "åttahundratre"                 (number->string-cardinal 803 'sv))
  (test-equal "åttahundrafyra"                (number->string-cardinal 804 'sv))
  (test-equal "åttahundrafem"                 (number->string-cardinal 805 'sv))
  (test-equal "åttahundrasex"                 (number->string-cardinal 806 'sv))
  (test-equal "åttahundrasju"                 (number->string-cardinal 807 'sv))
  (test-equal "åttahundraåtta"                (number->string-cardinal 808 'sv))
  (test-equal "åttahundranio"                 (number->string-cardinal 809 'sv))
  (test-equal "åttahundratio"                 (number->string-cardinal 810 'sv))
  (test-equal "åttahundraelva"                (number->string-cardinal 811 'sv))
  (test-equal "åttahundratolv"                (number->string-cardinal 812 'sv))
  (test-equal "åttahundratretton"             (number->string-cardinal 813 'sv))
  (test-equal "åttahundrafjorton"             (number->string-cardinal 814 'sv))
  (test-equal "åttahundrafemton"              (number->string-cardinal 815 'sv))
  (test-equal "åttahundrasexton"              (number->string-cardinal 816 'sv))
  (test-equal "åttahundrasjutton"             (number->string-cardinal 817 'sv))
  (test-equal "åttahundraarton"               (number->string-cardinal 818 'sv))
  (test-equal "åttahundranitton"              (number->string-cardinal 819 'sv))
  (test-equal "åttahundratjugo"               (number->string-cardinal 820 'sv))
  (test-equal "åttahundratjugoett"            (number->string-cardinal 821 'sv))
  (test-equal "åttahundratjugotvå"            (number->string-cardinal 822 'sv))
  (test-equal "åttahundratjugotre"            (number->string-cardinal 823 'sv))
  (test-equal "åttahundratjugofyra"           (number->string-cardinal 824 'sv))
  (test-equal "åttahundratjugofem"            (number->string-cardinal 825 'sv))
  (test-equal "åttahundratjugosex"            (number->string-cardinal 826 'sv))
  (test-equal "åttahundratjugosju"            (number->string-cardinal 827 'sv))
  (test-equal "åttahundratjugoåtta"           (number->string-cardinal 828 'sv))
  (test-equal "åttahundratjugonio"            (number->string-cardinal 829 'sv))
  (test-equal "åttahundratrettio"             (number->string-cardinal 830 'sv))
  (test-equal "åttahundratrettioett"          (number->string-cardinal 831 'sv))
  (test-equal "åttahundratrettiotvå"          (number->string-cardinal 832 'sv))
  (test-equal "åttahundratrettiotre"          (number->string-cardinal 833 'sv))
  (test-equal "åttahundratrettiofyra"         (number->string-cardinal 834 'sv))
  (test-equal "åttahundratrettiofem"          (number->string-cardinal 835 'sv))
  (test-equal "åttahundratrettiosex"          (number->string-cardinal 836 'sv))
  (test-equal "åttahundratrettiosju"          (number->string-cardinal 837 'sv))
  (test-equal "åttahundratrettioåtta"         (number->string-cardinal 838 'sv))
  (test-equal "åttahundratrettionio"          (number->string-cardinal 839 'sv))
  (test-equal "åttahundrafyrtio"              (number->string-cardinal 840 'sv))
  (test-equal "åttahundrafyrtioett"           (number->string-cardinal 841 'sv))
  (test-equal "åttahundrafyrtiotvå"           (number->string-cardinal 842 'sv))
  (test-equal "åttahundrafyrtiotre"           (number->string-cardinal 843 'sv))
  (test-equal "åttahundrafyrtiofyra"          (number->string-cardinal 844 'sv))
  (test-equal "åttahundrafyrtiofem"           (number->string-cardinal 845 'sv))
  (test-equal "åttahundrafyrtiosex"           (number->string-cardinal 846 'sv))
  (test-equal "åttahundrafyrtiosju"           (number->string-cardinal 847 'sv))
  (test-equal "åttahundrafyrtioåtta"          (number->string-cardinal 848 'sv))
  (test-equal "åttahundrafyrtionio"           (number->string-cardinal 849 'sv))
  (test-equal "åttahundrafemtio"              (number->string-cardinal 850 'sv))
  (test-equal "åttahundrafemtioett"           (number->string-cardinal 851 'sv))
  (test-equal "åttahundrafemtiotvå"           (number->string-cardinal 852 'sv))
  (test-equal "åttahundrafemtiotre"           (number->string-cardinal 853 'sv))
  (test-equal "åttahundrafemtiofyra"          (number->string-cardinal 854 'sv))
  (test-equal "åttahundrafemtiofem"           (number->string-cardinal 855 'sv))
  (test-equal "åttahundrafemtiosex"           (number->string-cardinal 856 'sv))
  (test-equal "åttahundrafemtiosju"           (number->string-cardinal 857 'sv))
  (test-equal "åttahundrafemtioåtta"          (number->string-cardinal 858 'sv))
  (test-equal "åttahundrafemtionio"           (number->string-cardinal 859 'sv))
  (test-equal "åttahundrasextio"              (number->string-cardinal 860 'sv))
  (test-equal "åttahundrasextioett"           (number->string-cardinal 861 'sv))
  (test-equal "åttahundrasextiotvå"           (number->string-cardinal 862 'sv))
  (test-equal "åttahundrasextiotre"           (number->string-cardinal 863 'sv))
  (test-equal "åttahundrasextiofyra"          (number->string-cardinal 864 'sv))
  (test-equal "åttahundrasextiofem"           (number->string-cardinal 865 'sv))
  (test-equal "åttahundrasextiosex"           (number->string-cardinal 866 'sv))
  (test-equal "åttahundrasextiosju"           (number->string-cardinal 867 'sv))
  (test-equal "åttahundrasextioåtta"          (number->string-cardinal 868 'sv))
  (test-equal "åttahundrasextionio"           (number->string-cardinal 869 'sv))
  (test-equal "åttahundrasjuttio"             (number->string-cardinal 870 'sv))
  (test-equal "åttahundrasjuttioett"          (number->string-cardinal 871 'sv))
  (test-equal "åttahundrasjuttiotvå"          (number->string-cardinal 872 'sv))
  (test-equal "åttahundrasjuttiotre"          (number->string-cardinal 873 'sv))
  (test-equal "åttahundrasjuttiofyra"         (number->string-cardinal 874 'sv))
  (test-equal "åttahundrasjuttiofem"          (number->string-cardinal 875 'sv))
  (test-equal "åttahundrasjuttiosex"          (number->string-cardinal 876 'sv))
  (test-equal "åttahundrasjuttiosju"          (number->string-cardinal 877 'sv))
  (test-equal "åttahundrasjuttioåtta"         (number->string-cardinal 878 'sv))
  (test-equal "åttahundrasjuttionio"          (number->string-cardinal 879 'sv))
  (test-equal "åttahundraåttio"               (number->string-cardinal 880 'sv))
  (test-equal "åttahundraåttioett"            (number->string-cardinal 881 'sv))
  (test-equal "åttahundraåttiotvå"            (number->string-cardinal 882 'sv))
  (test-equal "åttahundraåttiotre"            (number->string-cardinal 883 'sv))
  (test-equal "åttahundraåttiofyra"           (number->string-cardinal 884 'sv))
  (test-equal "åttahundraåttiofem"            (number->string-cardinal 885 'sv))
  (test-equal "åttahundraåttiosex"            (number->string-cardinal 886 'sv))
  (test-equal "åttahundraåttiosju"            (number->string-cardinal 887 'sv))
  (test-equal "åttahundraåttioåtta"           (number->string-cardinal 888 'sv))
  (test-equal "åttahundraåttionio"            (number->string-cardinal 889 'sv))
  (test-equal "åttahundranittio"              (number->string-cardinal 890 'sv))
  (test-equal "åttahundranittioett"           (number->string-cardinal 891 'sv))
  (test-equal "åttahundranittiotvå"           (number->string-cardinal 892 'sv))
  (test-equal "åttahundranittiotre"           (number->string-cardinal 893 'sv))
  (test-equal "åttahundranittiofyra"          (number->string-cardinal 894 'sv))
  (test-equal "åttahundranittiofem"           (number->string-cardinal 895 'sv))
  (test-equal "åttahundranittiosex"           (number->string-cardinal 896 'sv))
  (test-equal "åttahundranittiosju"           (number->string-cardinal 897 'sv))
  (test-equal "åttahundranittioåtta"          (number->string-cardinal 898 'sv))
  (test-equal "åttahundranittionio"           (number->string-cardinal 899 'sv))
  (test-equal "niohundra"                     (number->string-cardinal 900 'sv))
  (test-equal "niohundraett"                  (number->string-cardinal 901 'sv))
  (test-equal "niohundratvå"                  (number->string-cardinal 902 'sv))
  (test-equal "niohundratre"                  (number->string-cardinal 903 'sv))
  (test-equal "niohundrafyra"                 (number->string-cardinal 904 'sv))
  (test-equal "niohundrafem"                  (number->string-cardinal 905 'sv))
  (test-equal "niohundrasex"                  (number->string-cardinal 906 'sv))
  (test-equal "niohundrasju"                  (number->string-cardinal 907 'sv))
  (test-equal "niohundraåtta"                 (number->string-cardinal 908 'sv))
  (test-equal "niohundranio"                  (number->string-cardinal 909 'sv))
  (test-equal "niohundratio"                  (number->string-cardinal 910 'sv))
  (test-equal "niohundraelva"                 (number->string-cardinal 911 'sv))
  (test-equal "niohundratolv"                 (number->string-cardinal 912 'sv))
  (test-equal "niohundratretton"              (number->string-cardinal 913 'sv))
  (test-equal "niohundrafjorton"              (number->string-cardinal 914 'sv))
  (test-equal "niohundrafemton"               (number->string-cardinal 915 'sv))
  (test-equal "niohundrasexton"               (number->string-cardinal 916 'sv))
  (test-equal "niohundrasjutton"              (number->string-cardinal 917 'sv))
  (test-equal "niohundraarton"                (number->string-cardinal 918 'sv))
  (test-equal "niohundranitton"               (number->string-cardinal 919 'sv))
  (test-equal "niohundratjugo"                (number->string-cardinal 920 'sv))
  (test-equal "niohundratjugoett"             (number->string-cardinal 921 'sv))
  (test-equal "niohundratjugotvå"             (number->string-cardinal 922 'sv))
  (test-equal "niohundratjugotre"             (number->string-cardinal 923 'sv))
  (test-equal "niohundratjugofyra"            (number->string-cardinal 924 'sv))
  (test-equal "niohundratjugofem"             (number->string-cardinal 925 'sv))
  (test-equal "niohundratjugosex"             (number->string-cardinal 926 'sv))
  (test-equal "niohundratjugosju"             (number->string-cardinal 927 'sv))
  (test-equal "niohundratjugoåtta"            (number->string-cardinal 928 'sv))
  (test-equal "niohundratjugonio"             (number->string-cardinal 929 'sv))
  (test-equal "niohundratrettio"              (number->string-cardinal 930 'sv))
  (test-equal "niohundratrettioett"           (number->string-cardinal 931 'sv))
  (test-equal "niohundratrettiotvå"           (number->string-cardinal 932 'sv))
  (test-equal "niohundratrettiotre"           (number->string-cardinal 933 'sv))
  (test-equal "niohundratrettiofyra"          (number->string-cardinal 934 'sv))
  (test-equal "niohundratrettiofem"           (number->string-cardinal 935 'sv))
  (test-equal "niohundratrettiosex"           (number->string-cardinal 936 'sv))
  (test-equal "niohundratrettiosju"           (number->string-cardinal 937 'sv))
  (test-equal "niohundratrettioåtta"          (number->string-cardinal 938 'sv))
  (test-equal "niohundratrettionio"           (number->string-cardinal 939 'sv))
  (test-equal "niohundrafyrtio"               (number->string-cardinal 940 'sv))
  (test-equal "niohundrafyrtioett"            (number->string-cardinal 941 'sv))
  (test-equal "niohundrafyrtiotvå"            (number->string-cardinal 942 'sv))
  (test-equal "niohundrafyrtiotre"            (number->string-cardinal 943 'sv))
  (test-equal "niohundrafyrtiofyra"           (number->string-cardinal 944 'sv))
  (test-equal "niohundrafyrtiofem"            (number->string-cardinal 945 'sv))
  (test-equal "niohundrafyrtiosex"            (number->string-cardinal 946 'sv))
  (test-equal "niohundrafyrtiosju"            (number->string-cardinal 947 'sv))
  (test-equal "niohundrafyrtioåtta"           (number->string-cardinal 948 'sv))
  (test-equal "niohundrafyrtionio"            (number->string-cardinal 949 'sv))
  (test-equal "niohundrafemtio"               (number->string-cardinal 950 'sv))
  (test-equal "niohundrafemtioett"            (number->string-cardinal 951 'sv))
  (test-equal "niohundrafemtiotvå"            (number->string-cardinal 952 'sv))
  (test-equal "niohundrafemtiotre"            (number->string-cardinal 953 'sv))
  (test-equal "niohundrafemtiofyra"           (number->string-cardinal 954 'sv))
  (test-equal "niohundrafemtiofem"            (number->string-cardinal 955 'sv))
  (test-equal "niohundrafemtiosex"            (number->string-cardinal 956 'sv))
  (test-equal "niohundrafemtiosju"            (number->string-cardinal 957 'sv))
  (test-equal "niohundrafemtioåtta"           (number->string-cardinal 958 'sv))
  (test-equal "niohundrafemtionio"            (number->string-cardinal 959 'sv))
  (test-equal "niohundrasextio"               (number->string-cardinal 960 'sv))
  (test-equal "niohundrasextioett"            (number->string-cardinal 961 'sv))
  (test-equal "niohundrasextiotvå"            (number->string-cardinal 962 'sv))
  (test-equal "niohundrasextiotre"            (number->string-cardinal 963 'sv))
  (test-equal "niohundrasextiofyra"           (number->string-cardinal 964 'sv))
  (test-equal "niohundrasextiofem"            (number->string-cardinal 965 'sv))
  (test-equal "niohundrasextiosex"            (number->string-cardinal 966 'sv))
  (test-equal "niohundrasextiosju"            (number->string-cardinal 967 'sv))
  (test-equal "niohundrasextioåtta"           (number->string-cardinal 968 'sv))
  (test-equal "niohundrasextionio"            (number->string-cardinal 969 'sv))
  (test-equal "niohundrasjuttio"              (number->string-cardinal 970 'sv))
  (test-equal "niohundrasjuttioett"           (number->string-cardinal 971 'sv))
  (test-equal "niohundrasjuttiotvå"           (number->string-cardinal 972 'sv))
  (test-equal "niohundrasjuttiotre"           (number->string-cardinal 973 'sv))
  (test-equal "niohundrasjuttiofyra"          (number->string-cardinal 974 'sv))
  (test-equal "niohundrasjuttiofem"           (number->string-cardinal 975 'sv))
  (test-equal "niohundrasjuttiosex"           (number->string-cardinal 976 'sv))
  (test-equal "niohundrasjuttiosju"           (number->string-cardinal 977 'sv))
  (test-equal "niohundrasjuttioåtta"          (number->string-cardinal 978 'sv))
  (test-equal "niohundrasjuttionio"           (number->string-cardinal 979 'sv))
  (test-equal "niohundraåttio"                (number->string-cardinal 980 'sv))
  (test-equal "niohundraåttioett"             (number->string-cardinal 981 'sv))
  (test-equal "niohundraåttiotvå"             (number->string-cardinal 982 'sv))
  (test-equal "niohundraåttiotre"             (number->string-cardinal 983 'sv))
  (test-equal "niohundraåttiofyra"            (number->string-cardinal 984 'sv))
  (test-equal "niohundraåttiofem"             (number->string-cardinal 985 'sv))
  (test-equal "niohundraåttiosex"             (number->string-cardinal 986 'sv))
  (test-equal "niohundraåttiosju"             (number->string-cardinal 987 'sv))
  (test-equal "niohundraåttioåtta"            (number->string-cardinal 988 'sv))
  (test-equal "niohundraåttionio"             (number->string-cardinal 989 'sv))
  (test-equal "niohundranittio"               (number->string-cardinal 990 'sv))
  (test-equal "niohundranittioett"            (number->string-cardinal 991 'sv))
  (test-equal "niohundranittiotvå"            (number->string-cardinal 992 'sv))
  (test-equal "niohundranittiotre"            (number->string-cardinal 993 'sv))
  (test-equal "niohundranittiofyra"           (number->string-cardinal 994 'sv))
  (test-equal "niohundranittiofem"            (number->string-cardinal 995 'sv))
  (test-equal "niohundranittiosex"            (number->string-cardinal 996 'sv))
  (test-equal "niohundranittiosju"            (number->string-cardinal 997 'sv))
  (test-equal "niohundranittioåtta"           (number->string-cardinal 998 'sv))
  (test-equal "niohundranittionio"            (number->string-cardinal 999 'sv))
  (test-equal "ettusen"                       (number->string-cardinal 1000 'sv))
  (test-equal "ettusen ett"                   (number->string-cardinal 1001 'sv))
  (test-equal "ettusen två"                   (number->string-cardinal 1002 'sv))
  (test-equal "ettusen tre"                   (number->string-cardinal 1003 'sv))
  (test-equal "ettusen fyra"                  (number->string-cardinal 1004 'sv))
  (test-equal "ettusen fem"                   (number->string-cardinal 1005 'sv))
  (test-equal "ettusen sex"                   (number->string-cardinal 1006 'sv))
  (test-equal "ettusen sju"                   (number->string-cardinal 1007 'sv))
  (test-equal "ettusen åtta"                  (number->string-cardinal 1008 'sv))
  (test-equal "ettusen nio"                   (number->string-cardinal 1009 'sv))
  (test-equal "ettusen tio"                   (number->string-cardinal 1010 'sv))
  (test-equal "ettusen etthundra"             (number->string-cardinal 1100 'sv))
  (test-equal "ettusen tvåhundra"             (number->string-cardinal 1200 'sv))
  (test-equal "ettusen trehundra"             (number->string-cardinal 1300 'sv))
  (test-equal "ettusen fyrahundra"            (number->string-cardinal 1400 'sv))
  (test-equal "ettusen femhundra"             (number->string-cardinal 1500 'sv))
  (test-equal "ettusen sexhundra"             (number->string-cardinal 1600 'sv))
  (test-equal "ettusen sjuhundra"             (number->string-cardinal 1700 'sv))
  (test-equal "ettusen åttahundra"            (number->string-cardinal 1800 'sv))
  (test-equal "ettusen niohundra"             (number->string-cardinal 1900 'sv))
  (test-equal "ettusen niohundraett"          (number->string-cardinal 1901 'sv))
  (test-equal "ettusen niohundratvå"          (number->string-cardinal 1902 'sv))
  (test-equal "ettusen niohundratre"          (number->string-cardinal 1903 'sv))
  (test-equal "ettusen niohundrafyra"         (number->string-cardinal 1904 'sv))
  (test-equal "ettusen niohundrafem"          (number->string-cardinal 1905 'sv))
  (test-equal "ettusen niohundrasex"          (number->string-cardinal 1906 'sv))
  (test-equal "ettusen niohundrasju"          (number->string-cardinal 1907 'sv))
  (test-equal "ettusen niohundraåtta"         (number->string-cardinal 1908 'sv))
  (test-equal "ettusen niohundranio"          (number->string-cardinal 1909 'sv))
  (test-equal "ettusen niohundratio"          (number->string-cardinal 1910 'sv))
  (test-equal "ettusen niohundraelva"         (number->string-cardinal 1911 'sv))
  (test-equal "ettusen niohundratolv"         (number->string-cardinal 1912 'sv))
  (test-equal "ettusen niohundratretton"      (number->string-cardinal 1913 'sv))
  (test-equal "ettusen niohundrafjorton"      (number->string-cardinal 1914 'sv))
  (test-equal "ettusen niohundrafemton"       (number->string-cardinal 1915 'sv))
  (test-equal "ettusen niohundrasexton"       (number->string-cardinal 1916 'sv))
  (test-equal "ettusen niohundrasjutton"      (number->string-cardinal 1917 'sv))
  (test-equal "ettusen niohundraarton"        (number->string-cardinal 1918 'sv))
  (test-equal "ettusen niohundranitton"       (number->string-cardinal 1919 'sv))
  (test-equal "ettusen niohundratjugo"        (number->string-cardinal 1920 'sv))
  (test-equal "ettusen niohundratjugoett"     (number->string-cardinal 1921 'sv))
  (test-equal "ettusen niohundratjugotvå"     (number->string-cardinal 1922 'sv))
  (test-equal "ettusen niohundratjugotre"     (number->string-cardinal 1923 'sv))
  (test-equal "ettusen niohundratjugofyra"    (number->string-cardinal 1924 'sv))
  (test-equal "ettusen niohundratjugofem"     (number->string-cardinal 1925 'sv))
  (test-equal "ettusen niohundratjugosex"     (number->string-cardinal 1926 'sv))
  (test-equal "ettusen niohundratjugosju"     (number->string-cardinal 1927 'sv))
  (test-equal "ettusen niohundratjugoåtta"    (number->string-cardinal 1928 'sv))
  (test-equal "ettusen niohundratjugonio"     (number->string-cardinal 1929 'sv))
  (test-equal "ettusen niohundratrettio"      (number->string-cardinal 1930 'sv))
  (test-equal "ettusen niohundratrettioett"   (number->string-cardinal 1931 'sv))
  (test-equal "ettusen niohundratrettiotvå"   (number->string-cardinal 1932 'sv))
  (test-equal "ettusen niohundratrettiotre"   (number->string-cardinal 1933 'sv))
  (test-equal "ettusen niohundratrettiofyra"  (number->string-cardinal 1934 'sv))
  (test-equal "ettusen niohundratrettiofem"   (number->string-cardinal 1935 'sv))
  (test-equal "ettusen niohundratrettiosex"   (number->string-cardinal 1936 'sv))
  (test-equal "ettusen niohundratrettiosju"   (number->string-cardinal 1937 'sv))
  (test-equal "ettusen niohundratrettioåtta"  (number->string-cardinal 1938 'sv))
  (test-equal "ettusen niohundratrettionio"   (number->string-cardinal 1939 'sv))
  (test-equal "ettusen niohundrafyrtio"       (number->string-cardinal 1940 'sv))
  (test-equal "ettusen niohundrafyrtioett"    (number->string-cardinal 1941 'sv))
  (test-equal "ettusen niohundrafyrtiotvå"    (number->string-cardinal 1942 'sv))
  (test-equal "ettusen niohundrafyrtiotre"    (number->string-cardinal 1943 'sv))
  (test-equal "ettusen niohundrafyrtiofyra"   (number->string-cardinal 1944 'sv))
  (test-equal "ettusen niohundrafyrtiofem"    (number->string-cardinal 1945 'sv))
  (test-equal "ettusen niohundrafyrtiosex"    (number->string-cardinal 1946 'sv))
  (test-equal "ettusen niohundrafyrtiosju"    (number->string-cardinal 1947 'sv))
  (test-equal "ettusen niohundrafyrtioåtta"   (number->string-cardinal 1948 'sv))
  (test-equal "ettusen niohundrafyrtionio"    (number->string-cardinal 1949 'sv))
  (test-equal "ettusen niohundrafemtio"       (number->string-cardinal 1950 'sv))
  (test-equal "ettusen niohundrafemtioett"    (number->string-cardinal 1951 'sv))
  (test-equal "ettusen niohundrafemtiotvå"    (number->string-cardinal 1952 'sv))
  (test-equal "ettusen niohundrafemtiotre"    (number->string-cardinal 1953 'sv))
  (test-equal "ettusen niohundrafemtiofyra"   (number->string-cardinal 1954 'sv))
  (test-equal "ettusen niohundrafemtiofem"    (number->string-cardinal 1955 'sv))
  (test-equal "ettusen niohundrafemtiosex"    (number->string-cardinal 1956 'sv))
  (test-equal "ettusen niohundrafemtiosju"    (number->string-cardinal 1957 'sv))
  (test-equal "ettusen niohundrafemtioåtta"   (number->string-cardinal 1958 'sv))
  (test-equal "ettusen niohundrafemtionio"    (number->string-cardinal 1959 'sv))
  (test-equal "ettusen niohundrasextio"       (number->string-cardinal 1960 'sv))
  (test-equal "ettusen niohundrasextioett"    (number->string-cardinal 1961 'sv))
  (test-equal "ettusen niohundrasextiotvå"    (number->string-cardinal 1962 'sv))
  (test-equal "ettusen niohundrasextiotre"    (number->string-cardinal 1963 'sv))
  (test-equal "ettusen niohundrasextiofyra"   (number->string-cardinal 1964 'sv))
  (test-equal "ettusen niohundrasextiofem"    (number->string-cardinal 1965 'sv))
  (test-equal "ettusen niohundrasextiosex"    (number->string-cardinal 1966 'sv))
  (test-equal "ettusen niohundrasextiosju"    (number->string-cardinal 1967 'sv))
  (test-equal "ettusen niohundrasextioåtta"   (number->string-cardinal 1968 'sv))
  (test-equal "ettusen niohundrasextionio"    (number->string-cardinal 1969 'sv))
  (test-equal "ettusen niohundrasjuttio"      (number->string-cardinal 1970 'sv))
  (test-equal "ettusen niohundrasjuttioett"   (number->string-cardinal 1971 'sv))
  (test-equal "ettusen niohundrasjuttiotvå"   (number->string-cardinal 1972 'sv))
  (test-equal "ettusen niohundrasjuttiotre"   (number->string-cardinal 1973 'sv))
  (test-equal "ettusen niohundrasjuttiofyra"  (number->string-cardinal 1974 'sv))
  (test-equal "ettusen niohundrasjuttiofem"   (number->string-cardinal 1975 'sv))
  (test-equal "ettusen niohundrasjuttiosex"   (number->string-cardinal 1976 'sv))
  (test-equal "ettusen niohundrasjuttiosju"   (number->string-cardinal 1977 'sv))
  (test-equal "ettusen niohundrasjuttioåtta"  (number->string-cardinal 1978 'sv))
  (test-equal "ettusen niohundrasjuttionio"   (number->string-cardinal 1979 'sv))
  (test-equal "ettusen niohundraåttio"        (number->string-cardinal 1980 'sv))
  (test-equal "ettusen niohundraåttioett"     (number->string-cardinal 1981 'sv))
  (test-equal "ettusen niohundraåttiotvå"     (number->string-cardinal 1982 'sv))
  (test-equal "ettusen niohundraåttiotre"     (number->string-cardinal 1983 'sv))
  (test-equal "ettusen niohundraåttiofyra"    (number->string-cardinal 1984 'sv))
  (test-equal "ettusen niohundraåttiofem"     (number->string-cardinal 1985 'sv))
  (test-equal "ettusen niohundraåttiosex"     (number->string-cardinal 1986 'sv))
  (test-equal "ettusen niohundraåttiosju"     (number->string-cardinal 1987 'sv))
  (test-equal "ettusen niohundraåttioåtta"    (number->string-cardinal 1988 'sv))
  (test-equal "ettusen niohundraåttionio"     (number->string-cardinal 1989 'sv))
  (test-equal "ettusen niohundranittio"       (number->string-cardinal 1990 'sv))
  (test-equal "ettusen niohundranittioett"    (number->string-cardinal 1991 'sv))
  (test-equal "ettusen niohundranittiotvå"    (number->string-cardinal 1992 'sv))
  (test-equal "ettusen niohundranittiotre"    (number->string-cardinal 1993 'sv))
  (test-equal "ettusen niohundranittiofyra"   (number->string-cardinal 1994 'sv))
  (test-equal "ettusen niohundranittiofem"    (number->string-cardinal 1995 'sv))
  (test-equal "ettusen niohundranittiosex"    (number->string-cardinal 1996 'sv))
  (test-equal "ettusen niohundranittiosju"    (number->string-cardinal 1997 'sv))
  (test-equal "ettusen niohundranittioåtta"   (number->string-cardinal 1998 'sv))
  (test-equal "ettusen niohundranittionio"    (number->string-cardinal 1999 'sv))
  (test-equal "tvåtusen"                      (number->string-cardinal 2000 'sv))
  (test-equal "tvåtusen ett"                  (number->string-cardinal 2001 'sv))
  (test-equal "tvåtusen två"                  (number->string-cardinal 2002 'sv))
  (test-equal "tvåtusen tre"                  (number->string-cardinal 2003 'sv))
  (test-equal "tvåtusen fyra"                 (number->string-cardinal 2004 'sv))
  (test-equal "tvåtusen fem"                  (number->string-cardinal 2005 'sv))
  (test-equal "tvåtusen sex"                  (number->string-cardinal 2006 'sv))
  (test-equal "tvåtusen sju"                  (number->string-cardinal 2007 'sv))
  (test-equal "tvåtusen åtta"                 (number->string-cardinal 2008 'sv))
  (test-equal "tvåtusen nio"                  (number->string-cardinal 2009 'sv))
  (test-equal "tvåtusen tio"                  (number->string-cardinal 2010 'sv))
  (test-equal "tvåtusen elva"                 (number->string-cardinal 2011 'sv))
  (test-equal "tvåtusen tolv"                 (number->string-cardinal 2012 'sv))
  (test-equal "tvåtusen tretton"              (number->string-cardinal 2013 'sv))
  (test-equal "tvåtusen fjorton"              (number->string-cardinal 2014 'sv))
  (test-equal "tvåtusen femton"               (number->string-cardinal 2015 'sv))
  (test-equal "tvåtusen sexton"               (number->string-cardinal 2016 'sv))
  (test-equal "tvåtusen sjutton"              (number->string-cardinal 2017 'sv))
  (test-equal "tvåtusen arton"                (number->string-cardinal 2018 'sv))
  (test-equal "tvåtusen nitton"               (number->string-cardinal 2019 'sv))
  (test-equal "tvåtusen tjugo"                (number->string-cardinal 2020 'sv))
  (test-equal "tvåtusen tjugoett"             (number->string-cardinal 2021 'sv))
  (test-equal "tvåtusen tjugotvå"             (number->string-cardinal 2022 'sv))
  (test-equal "tvåtusen tjugotre"             (number->string-cardinal 2023 'sv))
  (test-equal "tvåtusen tjugofyra"            (number->string-cardinal 2024 'sv))
  (test-equal "tvåtusen tjugofem"             (number->string-cardinal 2025 'sv))
  (test-equal "tvåtusen tjugosex"             (number->string-cardinal 2026 'sv))
  (test-equal "tvåtusen tjugosju"             (number->string-cardinal 2027 'sv))
  (test-equal "tvåtusen tjugoåtta"            (number->string-cardinal 2028 'sv))
  (test-equal "tvåtusen tjugonio"             (number->string-cardinal 2029 'sv))
  (test-equal "tvåtusen trettio"              (number->string-cardinal 2030 'sv))
  (test-equal "tvåtusen trettioett"           (number->string-cardinal 2031 'sv))
  (test-equal "tvåtusen trettiotvå"           (number->string-cardinal 2032 'sv))
  (test-equal "tvåtusen trettiotre"           (number->string-cardinal 2033 'sv))
  (test-equal "tvåtusen trettiofyra"          (number->string-cardinal 2034 'sv))
  (test-equal "tvåtusen trettiofem"           (number->string-cardinal 2035 'sv))
  (test-equal "tvåtusen trettiosex"           (number->string-cardinal 2036 'sv))
  (test-equal "tvåtusen trettiosju"           (number->string-cardinal 2037 'sv))
  (test-equal "tvåtusen trettioåtta"          (number->string-cardinal 2038 'sv))
  (test-equal "tvåtusen trettionio"           (number->string-cardinal 2039 'sv))
  (test-equal "tvåtusen fyrtio"               (number->string-cardinal 2040 'sv))
  (test-equal "tvåtusen fyrtioett"            (number->string-cardinal 2041 'sv))
  (test-equal "tvåtusen fyrtiotvå"            (number->string-cardinal 2042 'sv))
  (test-equal "tvåtusen fyrtiotre"            (number->string-cardinal 2043 'sv))
  (test-equal "tvåtusen fyrtiofyra"           (number->string-cardinal 2044 'sv))
  (test-equal "tvåtusen fyrtiofem"            (number->string-cardinal 2045 'sv))
  (test-equal "tvåtusen fyrtiosex"            (number->string-cardinal 2046 'sv))
  (test-equal "tvåtusen fyrtiosju"            (number->string-cardinal 2047 'sv))
  (test-equal "tvåtusen fyrtioåtta"           (number->string-cardinal 2048 'sv))
  (test-equal "tvåtusen fyrtionio"            (number->string-cardinal 2049 'sv))
  (test-equal "tvåtusen femtio"               (number->string-cardinal 2050 'sv))
  (test-equal "tvåtusen femtioett"            (number->string-cardinal 2051 'sv))
  (test-equal "tvåtusen femtiotvå"            (number->string-cardinal 2052 'sv))
  (test-equal "tvåtusen femtiotre"            (number->string-cardinal 2053 'sv))
  (test-equal "tretusen"                      (number->string-cardinal 3000 'sv))
  (test-equal "fyratusen"                     (number->string-cardinal 4000 'sv))
  (test-equal "femtusen"                      (number->string-cardinal 5000 'sv))
  (test-equal "sextusen"                      (number->string-cardinal 6000 'sv))
  (test-equal "sjutusen"                      (number->string-cardinal 7000 'sv))
  (test-equal "åttatusen"                     (number->string-cardinal 8000 'sv))
  (test-equal "niotusen"                      (number->string-cardinal 9000 'sv))
  (test-equal "niotusen åttahundrasjuttiosex" (number->string-cardinal 9876 'sv))

  (test-equal "tiotusen"     (number->string-cardinal 10000 'sv))
  (test-equal "tjugotusen"   (number->string-cardinal 20000 'sv))
  (test-equal "trettiotusen" (number->string-cardinal 30000 'sv))
  (test-equal "fyrtiotusen"  (number->string-cardinal 40000 'sv))
  (test-equal "femtiotusen"  (number->string-cardinal 50000 'sv))
  (test-equal "sextiotusen"  (number->string-cardinal 60000 'sv))
  (test-equal "sjuttiotusen" (number->string-cardinal 70000 'sv))
  (test-equal "åttiotusen"   (number->string-cardinal 80000 'sv))
  (test-equal "nittiotusen"  (number->string-cardinal 90000 'sv))
  (test-equal "nittioåttatusen sjuhundrasextiofem" (number->string-cardinal 98765 'sv))

  (test-equal "etthundratusen"  (number->string-cardinal 100000 'sv))
  (test-equal "tvåhundratusen"  (number->string-cardinal 200000 'sv))
  (test-equal "trehundratusen"  (number->string-cardinal 300000 'sv))
  (test-equal "fyrahundratusen" (number->string-cardinal 400000 'sv))
  (test-equal "femhundratusen"  (number->string-cardinal 500000 'sv))
  (test-equal "sexhundratusen"  (number->string-cardinal 600000 'sv))
  (test-equal "sjuhundratusen"  (number->string-cardinal 700000 'sv))
  (test-equal "åttahundratusen" (number->string-cardinal 800000 'sv))
  (test-equal "niohundratusen"  (number->string-cardinal 900000 'sv))
  (test-equal "niohundraåttiosjutusen sexhundrafemtiofyra" (number->string-cardinal 987654 'sv))

  (test-equal "en miljon"     (number->string-cardinal 1000000 'sv))
  (test-equal "två miljoner"  (number->string-cardinal 2000000 'sv))
  (test-equal "tre miljoner"  (number->string-cardinal 3000000 'sv))
  (test-equal "fyra miljoner" (number->string-cardinal 4000000 'sv))
  (test-equal "fem miljoner"  (number->string-cardinal 5000000 'sv))
  (test-equal "sex miljoner"  (number->string-cardinal 6000000 'sv))
  (test-equal "sju miljoner"  (number->string-cardinal 7000000 'sv))
  (test-equal "åtta miljoner" (number->string-cardinal 8000000 'sv))
  (test-equal "nio miljoner"  (number->string-cardinal 9000000 'sv))
  (test-equal "nio miljoner åttahundrasjuttiosex tusen femhundrafyrtiotre" (number->string-cardinal 9876543 'sv))

  (test-equal "tio miljoner"       (number->string-cardinal 10000000 'sv))
  (test-equal "etthundra miljoner" (number->string-cardinal 100000000 'sv))
  (test-equal "niohundraåttiosju miljoner sexhundrafemtiofyra tusen trehundratjugoett" (number->string-cardinal 987654321 'sv))
  (test-equal "en miljard"         (number->string-cardinal 1000000000 'sv))
  (test-equal "en biljon"          (number->string-cardinal 1000000000000 'sv))
  (test-equal "en biljard"         (number->string-cardinal #e1e15 'sv))
  (test-equal "en triljon"         (number->string-cardinal #e1e18 'sv))
  (test-equal "en triljard"        (number->string-cardinal #e1e21 'sv))
  (test-equal "en kvadriljon"      (number->string-cardinal #e1e24 'sv))
  (test-equal "en kvadriljard"     (number->string-cardinal #e1e27 'sv))
  (test-equal "en kvintiljon"      (number->string-cardinal #e1e30 'sv)))


;;; Ordningstal – Ordinal numbers

(test-group "Ordinal numbers"
  (test-equal "nollte"                   (number->string-ordinal 0 'sv a-form?: #t))
  (test-equal "första"                   (number->string-ordinal 1 'sv a-form?: #t))
  (test-equal "andra"                    (number->string-ordinal 2 'sv a-form?: #t))
  (test-equal "tredje"                   (number->string-ordinal 3 'sv a-form?: #t))
  (test-equal "fjärde"                   (number->string-ordinal 4 'sv a-form?: #t))
  (test-equal "femte"                    (number->string-ordinal 5 'sv a-form?: #t))
  (test-equal "sjätte"                   (number->string-ordinal 6 'sv a-form?: #t))
  (test-equal "sjunde"                   (number->string-ordinal 7 'sv a-form?: #t))
  (test-equal "åttonde"                  (number->string-ordinal 8 'sv a-form?: #t))
  (test-equal "nionde"                   (number->string-ordinal 9 'sv a-form?: #t))
  (test-equal "tionde"                   (number->string-ordinal 10 'sv a-form?: #t))
  (test-equal "elfte"                    (number->string-ordinal 11 'sv a-form?: #t))
  (test-equal "tolfte"                   (number->string-ordinal 12 'sv a-form?: #t))
  (test-equal "trettonde"                (number->string-ordinal 13 'sv a-form?: #t))
  (test-equal "fjortonde"                (number->string-ordinal 14 'sv a-form?: #t))
  (test-equal "femtonde"                 (number->string-ordinal 15 'sv a-form?: #t))
  (test-equal "sextonde"                 (number->string-ordinal 16 'sv a-form?: #t))
  (test-equal "sjuttonde"                (number->string-ordinal 17 'sv a-form?: #t))
  (test-equal "artonde"                  (number->string-ordinal 18 'sv a-form?: #t))
  (test-equal "nittonde"                 (number->string-ordinal 19 'sv a-form?: #t))
  (test-equal "tjugonde"                 (number->string-ordinal 20 'sv a-form?: #t))
  (test-equal "tjugoförsta"              (number->string-ordinal 21 'sv a-form?: #t))
  (test-equal "tjugoandra"               (number->string-ordinal 22 'sv a-form?: #t))
  (test-equal "tjugotredje"              (number->string-ordinal 23 'sv a-form?: #t))
  (test-equal "tjugofjärde"              (number->string-ordinal 24 'sv a-form?: #t))
  (test-equal "tjugofemte"               (number->string-ordinal 25 'sv a-form?: #t))
  (test-equal "tjugosjätte"              (number->string-ordinal 26 'sv a-form?: #t))
  (test-equal "tjugosjunde"              (number->string-ordinal 27 'sv a-form?: #t))
  (test-equal "tjugoåttonde"             (number->string-ordinal 28 'sv a-form?: #t))
  (test-equal "tjugonionde"              (number->string-ordinal 29 'sv a-form?: #t))
  (test-equal "trettionde"               (number->string-ordinal 30 'sv a-form?: #t))
  (test-equal "trettioförsta"            (number->string-ordinal 31 'sv a-form?: #t))
  (test-equal "trettioandra"             (number->string-ordinal 32 'sv a-form?: #t))
  (test-equal "trettiotredje"            (number->string-ordinal 33 'sv a-form?: #t))
  (test-equal "trettiofjärde"            (number->string-ordinal 34 'sv a-form?: #t))
  (test-equal "trettiofemte"             (number->string-ordinal 35 'sv a-form?: #t))
  (test-equal "trettiosjätte"            (number->string-ordinal 36 'sv a-form?: #t))
  (test-equal "trettiosjunde"            (number->string-ordinal 37 'sv a-form?: #t))
  (test-equal "trettioåttonde"           (number->string-ordinal 38 'sv a-form?: #t))
  (test-equal "trettionionde"            (number->string-ordinal 39 'sv a-form?: #t))
  (test-equal "fyrtionde"                (number->string-ordinal 40 'sv a-form?: #t))
  (test-equal "fyrtioförsta"             (number->string-ordinal 41 'sv a-form?: #t))
  (test-equal "fyrtioandra"              (number->string-ordinal 42 'sv a-form?: #t))
  (test-equal "fyrtiotredje"             (number->string-ordinal 43 'sv a-form?: #t))
  (test-equal "fyrtiofjärde"             (number->string-ordinal 44 'sv a-form?: #t))
  (test-equal "fyrtiofemte"              (number->string-ordinal 45 'sv a-form?: #t))
  (test-equal "fyrtiosjätte"             (number->string-ordinal 46 'sv a-form?: #t))
  (test-equal "fyrtiosjunde"             (number->string-ordinal 47 'sv a-form?: #t))
  (test-equal "fyrtioåttonde"            (number->string-ordinal 48 'sv a-form?: #t))
  (test-equal "fyrtionionde"             (number->string-ordinal 49 'sv a-form?: #t))
  (test-equal "femtionde"                (number->string-ordinal 50 'sv a-form?: #t))
  (test-equal "femtioförsta"             (number->string-ordinal 51 'sv a-form?: #t))
  (test-equal "femtioandra"              (number->string-ordinal 52 'sv a-form?: #t))
  (test-equal "femtiotredje"             (number->string-ordinal 53 'sv a-form?: #t))
  (test-equal "femtiofjärde"             (number->string-ordinal 54 'sv a-form?: #t))
  (test-equal "femtiofemte"              (number->string-ordinal 55 'sv a-form?: #t))
  (test-equal "femtiosjätte"             (number->string-ordinal 56 'sv a-form?: #t))
  (test-equal "femtiosjunde"             (number->string-ordinal 57 'sv a-form?: #t))
  (test-equal "femtioåttonde"            (number->string-ordinal 58 'sv a-form?: #t))
  (test-equal "femtionionde"             (number->string-ordinal 59 'sv a-form?: #t))
  (test-equal "sextionde"                (number->string-ordinal 60 'sv a-form?: #t))
  (test-equal "sextioförsta"             (number->string-ordinal 61 'sv a-form?: #t))
  (test-equal "sextioandra"              (number->string-ordinal 62 'sv a-form?: #t))
  (test-equal "sextiotredje"             (number->string-ordinal 63 'sv a-form?: #t))
  (test-equal "sextiofjärde"             (number->string-ordinal 64 'sv a-form?: #t))
  (test-equal "sextiofemte"              (number->string-ordinal 65 'sv a-form?: #t))
  (test-equal "sextiosjätte"             (number->string-ordinal 66 'sv a-form?: #t))
  (test-equal "sextiosjunde"             (number->string-ordinal 67 'sv a-form?: #t))
  (test-equal "sextioåttonde"            (number->string-ordinal 68 'sv a-form?: #t))
  (test-equal "sextionionde"             (number->string-ordinal 69 'sv a-form?: #t))
  (test-equal "sjuttionde"               (number->string-ordinal 70 'sv a-form?: #t))
  (test-equal "sjuttioförsta"            (number->string-ordinal 71 'sv a-form?: #t))
  (test-equal "sjuttioandra"             (number->string-ordinal 72 'sv a-form?: #t))
  (test-equal "sjuttiotredje"            (number->string-ordinal 73 'sv a-form?: #t))
  (test-equal "sjuttiofjärde"            (number->string-ordinal 74 'sv a-form?: #t))
  (test-equal "sjuttiofemte"             (number->string-ordinal 75 'sv a-form?: #t))
  (test-equal "sjuttiosjätte"            (number->string-ordinal 76 'sv a-form?: #t))
  (test-equal "sjuttiosjunde"            (number->string-ordinal 77 'sv a-form?: #t))
  (test-equal "sjuttioåttonde"           (number->string-ordinal 78 'sv a-form?: #t))
  (test-equal "sjuttionionde"            (number->string-ordinal 79 'sv a-form?: #t))
  (test-equal "åttionde"                 (number->string-ordinal 80 'sv a-form?: #t))
  (test-equal "åttioförsta"              (number->string-ordinal 81 'sv a-form?: #t))
  (test-equal "åttioandra"               (number->string-ordinal 82 'sv a-form?: #t))
  (test-equal "åttiotredje"              (number->string-ordinal 83 'sv a-form?: #t))
  (test-equal "åttiofjärde"              (number->string-ordinal 84 'sv a-form?: #t))
  (test-equal "åttiofemte"               (number->string-ordinal 85 'sv a-form?: #t))
  (test-equal "åttiosjätte"              (number->string-ordinal 86 'sv a-form?: #t))
  (test-equal "åttiosjunde"              (number->string-ordinal 87 'sv a-form?: #t))
  (test-equal "åttioåttonde"             (number->string-ordinal 88 'sv a-form?: #t))
  (test-equal "åttionionde"              (number->string-ordinal 89 'sv a-form?: #t))
  (test-equal "nittionde"                (number->string-ordinal 90 'sv a-form?: #t))
  (test-equal "nittioförsta"             (number->string-ordinal 91 'sv a-form?: #t))
  (test-equal "nittioandra"              (number->string-ordinal 92 'sv a-form?: #t))
  (test-equal "nittiotredje"             (number->string-ordinal 93 'sv a-form?: #t))
  (test-equal "nittiofjärde"             (number->string-ordinal 94 'sv a-form?: #t))
  (test-equal "nittiofemte"              (number->string-ordinal 95 'sv a-form?: #t))
  (test-equal "nittiosjätte"             (number->string-ordinal 96 'sv a-form?: #t))
  (test-equal "nittiosjunde"             (number->string-ordinal 97 'sv a-form?: #t))
  (test-equal "nittioåttonde"            (number->string-ordinal 98 'sv a-form?: #t))
  (test-equal "nittionionde"             (number->string-ordinal 99 'sv a-form?: #t))
  (test-equal "etthundrade"              (number->string-ordinal 100 'sv a-form?: #t))
  (test-equal "etthundraförsta"          (number->string-ordinal 101 'sv a-form?: #t))
  (test-equal "etthundraandra"           (number->string-ordinal 102 'sv a-form?: #t))
  (test-equal "etthundratredje"          (number->string-ordinal 103 'sv a-form?: #t))
  (test-equal "etthundrafjärde"          (number->string-ordinal 104 'sv a-form?: #t))
  (test-equal "etthundrafemte"           (number->string-ordinal 105 'sv a-form?: #t))
  (test-equal "etthundrasjätte"          (number->string-ordinal 106 'sv a-form?: #t))
  (test-equal "etthundrasjunde"          (number->string-ordinal 107 'sv a-form?: #t))
  (test-equal "etthundraåttonde"         (number->string-ordinal 108 'sv a-form?: #t))
  (test-equal "etthundranionde"          (number->string-ordinal 109 'sv a-form?: #t))
  (test-equal "etthundrationde"          (number->string-ordinal 110 'sv a-form?: #t))
  (test-equal "etthundraelfte"           (number->string-ordinal 111 'sv a-form?: #t))
  (test-equal "etthundratolfte"          (number->string-ordinal 112 'sv a-form?: #t))
  (test-equal "etthundratrettonde"       (number->string-ordinal 113 'sv a-form?: #t))
  (test-equal "etthundrafjortonde"       (number->string-ordinal 114 'sv a-form?: #t))
  (test-equal "etthundrafemtonde"        (number->string-ordinal 115 'sv a-form?: #t))
  (test-equal "etthundrasextonde"        (number->string-ordinal 116 'sv a-form?: #t))
  (test-equal "etthundrasjuttonde"       (number->string-ordinal 117 'sv a-form?: #t))
  (test-equal "etthundraartonde"         (number->string-ordinal 118 'sv a-form?: #t))
  (test-equal "etthundranittonde"        (number->string-ordinal 119 'sv a-form?: #t))
  (test-equal "etthundratjugonde"        (number->string-ordinal 120 'sv a-form?: #t))
  (test-equal "etthundratjugoförsta"     (number->string-ordinal 121 'sv a-form?: #t))
  (test-equal "etthundratjugoandra"      (number->string-ordinal 122 'sv a-form?: #t))
  (test-equal "etthundratjugotredje"     (number->string-ordinal 123 'sv a-form?: #t))
  (test-equal "etthundratjugofjärde"     (number->string-ordinal 124 'sv a-form?: #t))
  (test-equal "etthundratjugofemte"      (number->string-ordinal 125 'sv a-form?: #t))
  (test-equal "etthundratjugosjätte"     (number->string-ordinal 126 'sv a-form?: #t))
  (test-equal "etthundratjugosjunde"     (number->string-ordinal 127 'sv a-form?: #t))
  (test-equal "etthundratjugoåttonde"    (number->string-ordinal 128 'sv a-form?: #t))
  (test-equal "etthundratjugonionde"     (number->string-ordinal 129 'sv a-form?: #t))
  (test-equal "etthundratrettionde"      (number->string-ordinal 130 'sv a-form?: #t))
  (test-equal "etthundratrettioförsta"   (number->string-ordinal 131 'sv a-form?: #t))
  (test-equal "etthundratrettioandra"    (number->string-ordinal 132 'sv a-form?: #t))
  (test-equal "etthundratrettiotredje"   (number->string-ordinal 133 'sv a-form?: #t))
  (test-equal "etthundratrettiofjärde"   (number->string-ordinal 134 'sv a-form?: #t))
  (test-equal "etthundratrettiofemte"    (number->string-ordinal 135 'sv a-form?: #t))
  (test-equal "etthundratrettiosjätte"   (number->string-ordinal 136 'sv a-form?: #t))
  (test-equal "etthundratrettiosjunde"   (number->string-ordinal 137 'sv a-form?: #t))
  (test-equal "etthundratrettioåttonde"  (number->string-ordinal 138 'sv a-form?: #t))
  (test-equal "etthundratrettionionde"   (number->string-ordinal 139 'sv a-form?: #t))
  (test-equal "etthundrafyrtionde"       (number->string-ordinal 140 'sv a-form?: #t))
  (test-equal "etthundrafyrtioförsta"    (number->string-ordinal 141 'sv a-form?: #t))
  (test-equal "etthundrafyrtioandra"     (number->string-ordinal 142 'sv a-form?: #t))
  (test-equal "etthundrafyrtiotredje"    (number->string-ordinal 143 'sv a-form?: #t))
  (test-equal "etthundrafyrtiofjärde"    (number->string-ordinal 144 'sv a-form?: #t))
  (test-equal "etthundrafyrtiofemte"     (number->string-ordinal 145 'sv a-form?: #t))
  (test-equal "etthundrafyrtiosjätte"    (number->string-ordinal 146 'sv a-form?: #t))
  (test-equal "etthundrafyrtiosjunde"    (number->string-ordinal 147 'sv a-form?: #t))
  (test-equal "etthundrafyrtioåttonde"   (number->string-ordinal 148 'sv a-form?: #t))
  (test-equal "etthundrafyrtionionde"    (number->string-ordinal 149 'sv a-form?: #t))
  (test-equal "etthundrafemtionde"       (number->string-ordinal 150 'sv a-form?: #t))
  (test-equal "etthundrafemtioförsta"    (number->string-ordinal 151 'sv a-form?: #t))
  (test-equal "etthundrafemtioandra"     (number->string-ordinal 152 'sv a-form?: #t))
  (test-equal "etthundrafemtiotredje"    (number->string-ordinal 153 'sv a-form?: #t))
  (test-equal "etthundrafemtiofjärde"    (number->string-ordinal 154 'sv a-form?: #t))
  (test-equal "etthundrafemtiofemte"     (number->string-ordinal 155 'sv a-form?: #t))
  (test-equal "etthundrafemtiosjätte"    (number->string-ordinal 156 'sv a-form?: #t))
  (test-equal "etthundrafemtiosjunde"    (number->string-ordinal 157 'sv a-form?: #t))
  (test-equal "etthundrafemtioåttonde"   (number->string-ordinal 158 'sv a-form?: #t))
  (test-equal "etthundrafemtionionde"    (number->string-ordinal 159 'sv a-form?: #t))
  (test-equal "etthundrasextionde"       (number->string-ordinal 160 'sv a-form?: #t))
  (test-equal "etthundrasextioförsta"    (number->string-ordinal 161 'sv a-form?: #t))
  (test-equal "etthundrasextioandra"     (number->string-ordinal 162 'sv a-form?: #t))
  (test-equal "etthundrasextiotredje"    (number->string-ordinal 163 'sv a-form?: #t))
  (test-equal "etthundrasextiofjärde"    (number->string-ordinal 164 'sv a-form?: #t))
  (test-equal "etthundrasextiofemte"     (number->string-ordinal 165 'sv a-form?: #t))
  (test-equal "etthundrasextiosjätte"    (number->string-ordinal 166 'sv a-form?: #t))
  (test-equal "etthundrasextiosjunde"    (number->string-ordinal 167 'sv a-form?: #t))
  (test-equal "etthundrasextioåttonde"   (number->string-ordinal 168 'sv a-form?: #t))
  (test-equal "etthundrasextionionde"    (number->string-ordinal 169 'sv a-form?: #t))
  (test-equal "etthundrasjuttionde"      (number->string-ordinal 170 'sv a-form?: #t))
  (test-equal "etthundrasjuttioförsta"   (number->string-ordinal 171 'sv a-form?: #t))
  (test-equal "etthundrasjuttioandra"    (number->string-ordinal 172 'sv a-form?: #t))
  (test-equal "etthundrasjuttiotredje"   (number->string-ordinal 173 'sv a-form?: #t))
  (test-equal "etthundrasjuttiofjärde"   (number->string-ordinal 174 'sv a-form?: #t))
  (test-equal "etthundrasjuttiofemte"    (number->string-ordinal 175 'sv a-form?: #t))
  (test-equal "etthundrasjuttiosjätte"   (number->string-ordinal 176 'sv a-form?: #t))
  (test-equal "etthundrasjuttiosjunde"   (number->string-ordinal 177 'sv a-form?: #t))
  (test-equal "etthundrasjuttioåttonde"  (number->string-ordinal 178 'sv a-form?: #t))
  (test-equal "etthundrasjuttionionde"   (number->string-ordinal 179 'sv a-form?: #t))
  (test-equal "etthundraåttionde"        (number->string-ordinal 180 'sv a-form?: #t))
  (test-equal "etthundraåttioförsta"     (number->string-ordinal 181 'sv a-form?: #t))
  (test-equal "etthundraåttioandra"      (number->string-ordinal 182 'sv a-form?: #t))
  (test-equal "etthundraåttiotredje"     (number->string-ordinal 183 'sv a-form?: #t))
  (test-equal "etthundraåttiofjärde"     (number->string-ordinal 184 'sv a-form?: #t))
  (test-equal "etthundraåttiofemte"      (number->string-ordinal 185 'sv a-form?: #t))
  (test-equal "etthundraåttiosjätte"     (number->string-ordinal 186 'sv a-form?: #t))
  (test-equal "etthundraåttiosjunde"     (number->string-ordinal 187 'sv a-form?: #t))
  (test-equal "etthundraåttioåttonde"    (number->string-ordinal 188 'sv a-form?: #t))
  (test-equal "etthundraåttionionde"     (number->string-ordinal 189 'sv a-form?: #t))
  (test-equal "etthundranittionde"       (number->string-ordinal 190 'sv a-form?: #t))
  (test-equal "etthundranittioförsta"    (number->string-ordinal 191 'sv a-form?: #t))
  (test-equal "etthundranittioandra"     (number->string-ordinal 192 'sv a-form?: #t))
  (test-equal "etthundranittiotredje"    (number->string-ordinal 193 'sv a-form?: #t))
  (test-equal "etthundranittiofjärde"    (number->string-ordinal 194 'sv a-form?: #t))
  (test-equal "etthundranittiofemte"     (number->string-ordinal 195 'sv a-form?: #t))
  (test-equal "etthundranittiosjätte"    (number->string-ordinal 196 'sv a-form?: #t))
  (test-equal "etthundranittiosjunde"    (number->string-ordinal 197 'sv a-form?: #t))
  (test-equal "etthundranittioåttonde"   (number->string-ordinal 198 'sv a-form?: #t))
  (test-equal "etthundranittionionde"    (number->string-ordinal 199 'sv a-form?: #t))
  (test-equal "tvåhundrade"              (number->string-ordinal 200 'sv a-form?: #t))
  (test-equal "tvåhundraförsta"          (number->string-ordinal 201 'sv a-form?: #t))
  (test-equal "tvåhundraandra"           (number->string-ordinal 202 'sv a-form?: #t))
  (test-equal "tvåhundratredje"          (number->string-ordinal 203 'sv a-form?: #t))
  (test-equal "tvåhundrafjärde"          (number->string-ordinal 204 'sv a-form?: #t))
  (test-equal "tvåhundrafemte"           (number->string-ordinal 205 'sv a-form?: #t))
  (test-equal "tvåhundrasjätte"          (number->string-ordinal 206 'sv a-form?: #t))
  (test-equal "tvåhundrasjunde"          (number->string-ordinal 207 'sv a-form?: #t))
  (test-equal "tvåhundraåttonde"         (number->string-ordinal 208 'sv a-form?: #t))
  (test-equal "tvåhundranionde"          (number->string-ordinal 209 'sv a-form?: #t))
  (test-equal "tvåhundrationde"          (number->string-ordinal 210 'sv a-form?: #t))
  (test-equal "tvåhundraelfte"           (number->string-ordinal 211 'sv a-form?: #t))
  (test-equal "tvåhundratolfte"          (number->string-ordinal 212 'sv a-form?: #t))
  (test-equal "tvåhundratrettonde"       (number->string-ordinal 213 'sv a-form?: #t))
  (test-equal "tvåhundrafjortonde"       (number->string-ordinal 214 'sv a-form?: #t))
  (test-equal "tvåhundrafemtonde"        (number->string-ordinal 215 'sv a-form?: #t))
  (test-equal "tvåhundrasextonde"        (number->string-ordinal 216 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttonde"       (number->string-ordinal 217 'sv a-form?: #t))
  (test-equal "tvåhundraartonde"         (number->string-ordinal 218 'sv a-form?: #t))
  (test-equal "tvåhundranittonde"        (number->string-ordinal 219 'sv a-form?: #t))
  (test-equal "tvåhundratjugonde"        (number->string-ordinal 220 'sv a-form?: #t))
  (test-equal "tvåhundratjugoförsta"     (number->string-ordinal 221 'sv a-form?: #t))
  (test-equal "tvåhundratjugoandra"      (number->string-ordinal 222 'sv a-form?: #t))
  (test-equal "tvåhundratjugotredje"     (number->string-ordinal 223 'sv a-form?: #t))
  (test-equal "tvåhundratjugofjärde"     (number->string-ordinal 224 'sv a-form?: #t))
  (test-equal "tvåhundratjugofemte"      (number->string-ordinal 225 'sv a-form?: #t))
  (test-equal "tvåhundratjugosjätte"     (number->string-ordinal 226 'sv a-form?: #t))
  (test-equal "tvåhundratjugosjunde"     (number->string-ordinal 227 'sv a-form?: #t))
  (test-equal "tvåhundratjugoåttonde"    (number->string-ordinal 228 'sv a-form?: #t))
  (test-equal "tvåhundratjugonionde"     (number->string-ordinal 229 'sv a-form?: #t))
  (test-equal "tvåhundratrettionde"      (number->string-ordinal 230 'sv a-form?: #t))
  (test-equal "tvåhundratrettioförsta"   (number->string-ordinal 231 'sv a-form?: #t))
  (test-equal "tvåhundratrettioandra"    (number->string-ordinal 232 'sv a-form?: #t))
  (test-equal "tvåhundratrettiotredje"   (number->string-ordinal 233 'sv a-form?: #t))
  (test-equal "tvåhundratrettiofjärde"   (number->string-ordinal 234 'sv a-form?: #t))
  (test-equal "tvåhundratrettiofemte"    (number->string-ordinal 235 'sv a-form?: #t))
  (test-equal "tvåhundratrettiosjätte"   (number->string-ordinal 236 'sv a-form?: #t))
  (test-equal "tvåhundratrettiosjunde"   (number->string-ordinal 237 'sv a-form?: #t))
  (test-equal "tvåhundratrettioåttonde"  (number->string-ordinal 238 'sv a-form?: #t))
  (test-equal "tvåhundratrettionionde"   (number->string-ordinal 239 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtionde"       (number->string-ordinal 240 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtioförsta"    (number->string-ordinal 241 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtioandra"     (number->string-ordinal 242 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtiotredje"    (number->string-ordinal 243 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtiofjärde"    (number->string-ordinal 244 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtiofemte"     (number->string-ordinal 245 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtiosjätte"    (number->string-ordinal 246 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtiosjunde"    (number->string-ordinal 247 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtioåttonde"   (number->string-ordinal 248 'sv a-form?: #t))
  (test-equal "tvåhundrafyrtionionde"    (number->string-ordinal 249 'sv a-form?: #t))
  (test-equal "tvåhundrafemtionde"       (number->string-ordinal 250 'sv a-form?: #t))
  (test-equal "tvåhundrafemtioförsta"    (number->string-ordinal 251 'sv a-form?: #t))
  (test-equal "tvåhundrafemtioandra"     (number->string-ordinal 252 'sv a-form?: #t))
  (test-equal "tvåhundrafemtiotredje"    (number->string-ordinal 253 'sv a-form?: #t))
  (test-equal "tvåhundrafemtiofjärde"    (number->string-ordinal 254 'sv a-form?: #t))
  (test-equal "tvåhundrafemtiofemte"     (number->string-ordinal 255 'sv a-form?: #t))
  (test-equal "tvåhundrafemtiosjätte"    (number->string-ordinal 256 'sv a-form?: #t))
  (test-equal "tvåhundrafemtiosjunde"    (number->string-ordinal 257 'sv a-form?: #t))
  (test-equal "tvåhundrafemtioåttonde"   (number->string-ordinal 258 'sv a-form?: #t))
  (test-equal "tvåhundrafemtionionde"    (number->string-ordinal 259 'sv a-form?: #t))
  (test-equal "tvåhundrasextionde"       (number->string-ordinal 260 'sv a-form?: #t))
  (test-equal "tvåhundrasextioförsta"    (number->string-ordinal 261 'sv a-form?: #t))
  (test-equal "tvåhundrasextioandra"     (number->string-ordinal 262 'sv a-form?: #t))
  (test-equal "tvåhundrasextiotredje"    (number->string-ordinal 263 'sv a-form?: #t))
  (test-equal "tvåhundrasextiofjärde"    (number->string-ordinal 264 'sv a-form?: #t))
  (test-equal "tvåhundrasextiofemte"     (number->string-ordinal 265 'sv a-form?: #t))
  (test-equal "tvåhundrasextiosjätte"    (number->string-ordinal 266 'sv a-form?: #t))
  (test-equal "tvåhundrasextiosjunde"    (number->string-ordinal 267 'sv a-form?: #t))
  (test-equal "tvåhundrasextioåttonde"   (number->string-ordinal 268 'sv a-form?: #t))
  (test-equal "tvåhundrasextionionde"    (number->string-ordinal 269 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttionde"      (number->string-ordinal 270 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttioförsta"   (number->string-ordinal 271 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttioandra"    (number->string-ordinal 272 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttiotredje"   (number->string-ordinal 273 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttiofjärde"   (number->string-ordinal 274 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttiofemte"    (number->string-ordinal 275 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttiosjätte"   (number->string-ordinal 276 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttiosjunde"   (number->string-ordinal 277 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttioåttonde"  (number->string-ordinal 278 'sv a-form?: #t))
  (test-equal "tvåhundrasjuttionionde"   (number->string-ordinal 279 'sv a-form?: #t))
  (test-equal "tvåhundraåttionde"        (number->string-ordinal 280 'sv a-form?: #t))
  (test-equal "tvåhundraåttioförsta"     (number->string-ordinal 281 'sv a-form?: #t))
  (test-equal "tvåhundraåttioandra"      (number->string-ordinal 282 'sv a-form?: #t))
  (test-equal "tvåhundraåttiotredje"     (number->string-ordinal 283 'sv a-form?: #t))
  (test-equal "tvåhundraåttiofjärde"     (number->string-ordinal 284 'sv a-form?: #t))
  (test-equal "tvåhundraåttiofemte"      (number->string-ordinal 285 'sv a-form?: #t))
  (test-equal "tvåhundraåttiosjätte"     (number->string-ordinal 286 'sv a-form?: #t))
  (test-equal "tvåhundraåttiosjunde"     (number->string-ordinal 287 'sv a-form?: #t))
  (test-equal "tvåhundraåttioåttonde"    (number->string-ordinal 288 'sv a-form?: #t))
  (test-equal "tvåhundraåttionionde"     (number->string-ordinal 289 'sv a-form?: #t))
  (test-equal "tvåhundranittionde"       (number->string-ordinal 290 'sv a-form?: #t))
  (test-equal "tvåhundranittioförsta"    (number->string-ordinal 291 'sv a-form?: #t))
  (test-equal "tvåhundranittioandra"     (number->string-ordinal 292 'sv a-form?: #t))
  (test-equal "tvåhundranittiotredje"    (number->string-ordinal 293 'sv a-form?: #t))
  (test-equal "tvåhundranittiofjärde"    (number->string-ordinal 294 'sv a-form?: #t))
  (test-equal "tvåhundranittiofemte"     (number->string-ordinal 295 'sv a-form?: #t))
  (test-equal "tvåhundranittiosjätte"    (number->string-ordinal 296 'sv a-form?: #t))
  (test-equal "tvåhundranittiosjunde"    (number->string-ordinal 297 'sv a-form?: #t))
  (test-equal "tvåhundranittioåttonde"   (number->string-ordinal 298 'sv a-form?: #t))
  (test-equal "tvåhundranittionionde"    (number->string-ordinal 299 'sv a-form?: #t))
  (test-equal "trehundrade"              (number->string-ordinal 300 'sv a-form?: #t))
  (test-equal "trehundraförsta"          (number->string-ordinal 301 'sv a-form?: #t))
  (test-equal "trehundraandra"           (number->string-ordinal 302 'sv a-form?: #t))
  (test-equal "trehundratredje"          (number->string-ordinal 303 'sv a-form?: #t))
  (test-equal "trehundrafjärde"          (number->string-ordinal 304 'sv a-form?: #t))
  (test-equal "trehundrafemte"           (number->string-ordinal 305 'sv a-form?: #t))
  (test-equal "trehundrasjätte"          (number->string-ordinal 306 'sv a-form?: #t))
  (test-equal "trehundrasjunde"          (number->string-ordinal 307 'sv a-form?: #t))
  (test-equal "trehundraåttonde"         (number->string-ordinal 308 'sv a-form?: #t))
  (test-equal "trehundranionde"          (number->string-ordinal 309 'sv a-form?: #t))
  (test-equal "trehundrationde"          (number->string-ordinal 310 'sv a-form?: #t))
  (test-equal "trehundraelfte"           (number->string-ordinal 311 'sv a-form?: #t))
  (test-equal "trehundratolfte"          (number->string-ordinal 312 'sv a-form?: #t))
  (test-equal "trehundratrettonde"       (number->string-ordinal 313 'sv a-form?: #t))
  (test-equal "trehundrafjortonde"       (number->string-ordinal 314 'sv a-form?: #t))
  (test-equal "trehundrafemtonde"        (number->string-ordinal 315 'sv a-form?: #t))
  (test-equal "trehundrasextonde"        (number->string-ordinal 316 'sv a-form?: #t))
  (test-equal "trehundrasjuttonde"       (number->string-ordinal 317 'sv a-form?: #t))
  (test-equal "trehundraartonde"         (number->string-ordinal 318 'sv a-form?: #t))
  (test-equal "trehundranittonde"        (number->string-ordinal 319 'sv a-form?: #t))
  (test-equal "trehundratjugonde"        (number->string-ordinal 320 'sv a-form?: #t))
  (test-equal "trehundratjugoförsta"     (number->string-ordinal 321 'sv a-form?: #t))
  (test-equal "trehundratjugoandra"      (number->string-ordinal 322 'sv a-form?: #t))
  (test-equal "trehundratjugotredje"     (number->string-ordinal 323 'sv a-form?: #t))
  (test-equal "trehundratjugofjärde"     (number->string-ordinal 324 'sv a-form?: #t))
  (test-equal "trehundratjugofemte"      (number->string-ordinal 325 'sv a-form?: #t))
  (test-equal "trehundratjugosjätte"     (number->string-ordinal 326 'sv a-form?: #t))
  (test-equal "trehundratjugosjunde"     (number->string-ordinal 327 'sv a-form?: #t))
  (test-equal "trehundratjugoåttonde"    (number->string-ordinal 328 'sv a-form?: #t))
  (test-equal "trehundratjugonionde"     (number->string-ordinal 329 'sv a-form?: #t))
  (test-equal "trehundratrettionde"      (number->string-ordinal 330 'sv a-form?: #t))
  (test-equal "trehundratrettioförsta"   (number->string-ordinal 331 'sv a-form?: #t))
  (test-equal "trehundratrettioandra"    (number->string-ordinal 332 'sv a-form?: #t))
  (test-equal "trehundratrettiotredje"   (number->string-ordinal 333 'sv a-form?: #t))
  (test-equal "trehundratrettiofjärde"   (number->string-ordinal 334 'sv a-form?: #t))
  (test-equal "trehundratrettiofemte"    (number->string-ordinal 335 'sv a-form?: #t))
  (test-equal "trehundratrettiosjätte"   (number->string-ordinal 336 'sv a-form?: #t))
  (test-equal "trehundratrettiosjunde"   (number->string-ordinal 337 'sv a-form?: #t))
  (test-equal "trehundratrettioåttonde"  (number->string-ordinal 338 'sv a-form?: #t))
  (test-equal "trehundratrettionionde"   (number->string-ordinal 339 'sv a-form?: #t))
  (test-equal "trehundrafyrtionde"       (number->string-ordinal 340 'sv a-form?: #t))
  (test-equal "trehundrafyrtioförsta"    (number->string-ordinal 341 'sv a-form?: #t))
  (test-equal "trehundrafyrtioandra"     (number->string-ordinal 342 'sv a-form?: #t))
  (test-equal "trehundrafyrtiotredje"    (number->string-ordinal 343 'sv a-form?: #t))
  (test-equal "trehundrafyrtiofjärde"    (number->string-ordinal 344 'sv a-form?: #t))
  (test-equal "trehundrafyrtiofemte"     (number->string-ordinal 345 'sv a-form?: #t))
  (test-equal "trehundrafyrtiosjätte"    (number->string-ordinal 346 'sv a-form?: #t))
  (test-equal "trehundrafyrtiosjunde"    (number->string-ordinal 347 'sv a-form?: #t))
  (test-equal "trehundrafyrtioåttonde"   (number->string-ordinal 348 'sv a-form?: #t))
  (test-equal "trehundrafyrtionionde"    (number->string-ordinal 349 'sv a-form?: #t))
  (test-equal "trehundrafemtionde"       (number->string-ordinal 350 'sv a-form?: #t))
  (test-equal "trehundrafemtioförsta"    (number->string-ordinal 351 'sv a-form?: #t))
  (test-equal "trehundrafemtioandra"     (number->string-ordinal 352 'sv a-form?: #t))
  (test-equal "trehundrafemtiotredje"    (number->string-ordinal 353 'sv a-form?: #t))
  (test-equal "trehundrafemtiofjärde"    (number->string-ordinal 354 'sv a-form?: #t))
  (test-equal "trehundrafemtiofemte"     (number->string-ordinal 355 'sv a-form?: #t))
  (test-equal "trehundrafemtiosjätte"    (number->string-ordinal 356 'sv a-form?: #t))
  (test-equal "trehundrafemtiosjunde"    (number->string-ordinal 357 'sv a-form?: #t))
  (test-equal "trehundrafemtioåttonde"   (number->string-ordinal 358 'sv a-form?: #t))
  (test-equal "trehundrafemtionionde"    (number->string-ordinal 359 'sv a-form?: #t))
  (test-equal "trehundrasextionde"       (number->string-ordinal 360 'sv a-form?: #t))
  (test-equal "trehundrasextioförsta"    (number->string-ordinal 361 'sv a-form?: #t))
  (test-equal "trehundrasextioandra"     (number->string-ordinal 362 'sv a-form?: #t))
  (test-equal "trehundrasextiotredje"    (number->string-ordinal 363 'sv a-form?: #t))
  (test-equal "trehundrasextiofjärde"    (number->string-ordinal 364 'sv a-form?: #t))
  (test-equal "trehundrasextiofemte"     (number->string-ordinal 365 'sv a-form?: #t))
  (test-equal "trehundrasextiosjätte"    (number->string-ordinal 366 'sv a-form?: #t))
  (test-equal "trehundrasextiosjunde"    (number->string-ordinal 367 'sv a-form?: #t))
  (test-equal "trehundrasextioåttonde"   (number->string-ordinal 368 'sv a-form?: #t))
  (test-equal "trehundrasextionionde"    (number->string-ordinal 369 'sv a-form?: #t))
  (test-equal "trehundrasjuttionde"      (number->string-ordinal 370 'sv a-form?: #t))
  (test-equal "trehundrasjuttioförsta"   (number->string-ordinal 371 'sv a-form?: #t))
  (test-equal "trehundrasjuttioandra"    (number->string-ordinal 372 'sv a-form?: #t))
  (test-equal "trehundrasjuttiotredje"   (number->string-ordinal 373 'sv a-form?: #t))
  (test-equal "trehundrasjuttiofjärde"   (number->string-ordinal 374 'sv a-form?: #t))
  (test-equal "trehundrasjuttiofemte"    (number->string-ordinal 375 'sv a-form?: #t))
  (test-equal "trehundrasjuttiosjätte"   (number->string-ordinal 376 'sv a-form?: #t))
  (test-equal "trehundrasjuttiosjunde"   (number->string-ordinal 377 'sv a-form?: #t))
  (test-equal "trehundrasjuttioåttonde"  (number->string-ordinal 378 'sv a-form?: #t))
  (test-equal "trehundrasjuttionionde"   (number->string-ordinal 379 'sv a-form?: #t))
  (test-equal "trehundraåttionde"        (number->string-ordinal 380 'sv a-form?: #t))
  (test-equal "trehundraåttioförsta"     (number->string-ordinal 381 'sv a-form?: #t))
  (test-equal "trehundraåttioandra"      (number->string-ordinal 382 'sv a-form?: #t))
  (test-equal "trehundraåttiotredje"     (number->string-ordinal 383 'sv a-form?: #t))
  (test-equal "trehundraåttiofjärde"     (number->string-ordinal 384 'sv a-form?: #t))
  (test-equal "trehundraåttiofemte"      (number->string-ordinal 385 'sv a-form?: #t))
  (test-equal "trehundraåttiosjätte"     (number->string-ordinal 386 'sv a-form?: #t))
  (test-equal "trehundraåttiosjunde"     (number->string-ordinal 387 'sv a-form?: #t))
  (test-equal "trehundraåttioåttonde"    (number->string-ordinal 388 'sv a-form?: #t))
  (test-equal "trehundraåttionionde"     (number->string-ordinal 389 'sv a-form?: #t))
  (test-equal "trehundranittionde"       (number->string-ordinal 390 'sv a-form?: #t))
  (test-equal "trehundranittioförsta"    (number->string-ordinal 391 'sv a-form?: #t))
  (test-equal "trehundranittioandra"     (number->string-ordinal 392 'sv a-form?: #t))
  (test-equal "trehundranittiotredje"    (number->string-ordinal 393 'sv a-form?: #t))
  (test-equal "trehundranittiofjärde"    (number->string-ordinal 394 'sv a-form?: #t))
  (test-equal "trehundranittiofemte"     (number->string-ordinal 395 'sv a-form?: #t))
  (test-equal "trehundranittiosjätte"    (number->string-ordinal 396 'sv a-form?: #t))
  (test-equal "trehundranittiosjunde"    (number->string-ordinal 397 'sv a-form?: #t))
  (test-equal "trehundranittioåttonde"   (number->string-ordinal 398 'sv a-form?: #t))
  (test-equal "trehundranittionionde"    (number->string-ordinal 399 'sv a-form?: #t))
  (test-equal "fyrahundrade"             (number->string-ordinal 400 'sv a-form?: #t))
  (test-equal "fyrahundraförsta"         (number->string-ordinal 401 'sv a-form?: #t))
  (test-equal "fyrahundraandra"          (number->string-ordinal 402 'sv a-form?: #t))
  (test-equal "fyrahundratredje"         (number->string-ordinal 403 'sv a-form?: #t))
  (test-equal "fyrahundrafjärde"         (number->string-ordinal 404 'sv a-form?: #t))
  (test-equal "fyrahundrafemte"          (number->string-ordinal 405 'sv a-form?: #t))
  (test-equal "fyrahundrasjätte"         (number->string-ordinal 406 'sv a-form?: #t))
  (test-equal "fyrahundrasjunde"         (number->string-ordinal 407 'sv a-form?: #t))
  (test-equal "fyrahundraåttonde"        (number->string-ordinal 408 'sv a-form?: #t))
  (test-equal "fyrahundranionde"         (number->string-ordinal 409 'sv a-form?: #t))
  (test-equal "fyrahundrationde"         (number->string-ordinal 410 'sv a-form?: #t))
  (test-equal "fyrahundraelfte"          (number->string-ordinal 411 'sv a-form?: #t))
  (test-equal "fyrahundratolfte"         (number->string-ordinal 412 'sv a-form?: #t))
  (test-equal "fyrahundratrettonde"      (number->string-ordinal 413 'sv a-form?: #t))
  (test-equal "fyrahundrafjortonde"      (number->string-ordinal 414 'sv a-form?: #t))
  (test-equal "fyrahundrafemtonde"       (number->string-ordinal 415 'sv a-form?: #t))
  (test-equal "fyrahundrasextonde"       (number->string-ordinal 416 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttonde"      (number->string-ordinal 417 'sv a-form?: #t))
  (test-equal "fyrahundraartonde"        (number->string-ordinal 418 'sv a-form?: #t))
  (test-equal "fyrahundranittonde"       (number->string-ordinal 419 'sv a-form?: #t))
  (test-equal "fyrahundratjugonde"       (number->string-ordinal 420 'sv a-form?: #t))
  (test-equal "fyrahundratjugoförsta"    (number->string-ordinal 421 'sv a-form?: #t))
  (test-equal "fyrahundratjugoandra"     (number->string-ordinal 422 'sv a-form?: #t))
  (test-equal "fyrahundratjugotredje"    (number->string-ordinal 423 'sv a-form?: #t))
  (test-equal "fyrahundratjugofjärde"    (number->string-ordinal 424 'sv a-form?: #t))
  (test-equal "fyrahundratjugofemte"     (number->string-ordinal 425 'sv a-form?: #t))
  (test-equal "fyrahundratjugosjätte"    (number->string-ordinal 426 'sv a-form?: #t))
  (test-equal "fyrahundratjugosjunde"    (number->string-ordinal 427 'sv a-form?: #t))
  (test-equal "fyrahundratjugoåttonde"   (number->string-ordinal 428 'sv a-form?: #t))
  (test-equal "fyrahundratjugonionde"    (number->string-ordinal 429 'sv a-form?: #t))
  (test-equal "fyrahundratrettionde"     (number->string-ordinal 430 'sv a-form?: #t))
  (test-equal "fyrahundratrettioförsta"  (number->string-ordinal 431 'sv a-form?: #t))
  (test-equal "fyrahundratrettioandra"   (number->string-ordinal 432 'sv a-form?: #t))
  (test-equal "fyrahundratrettiotredje"  (number->string-ordinal 433 'sv a-form?: #t))
  (test-equal "fyrahundratrettiofjärde"  (number->string-ordinal 434 'sv a-form?: #t))
  (test-equal "fyrahundratrettiofemte"   (number->string-ordinal 435 'sv a-form?: #t))
  (test-equal "fyrahundratrettiosjätte"  (number->string-ordinal 436 'sv a-form?: #t))
  (test-equal "fyrahundratrettiosjunde"  (number->string-ordinal 437 'sv a-form?: #t))
  (test-equal "fyrahundratrettioåttonde" (number->string-ordinal 438 'sv a-form?: #t))
  (test-equal "fyrahundratrettionionde"  (number->string-ordinal 439 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtionde"      (number->string-ordinal 440 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtioförsta"   (number->string-ordinal 441 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtioandra"    (number->string-ordinal 442 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtiotredje"   (number->string-ordinal 443 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtiofjärde"   (number->string-ordinal 444 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtiofemte"    (number->string-ordinal 445 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtiosjätte"   (number->string-ordinal 446 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtiosjunde"   (number->string-ordinal 447 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtioåttonde"  (number->string-ordinal 448 'sv a-form?: #t))
  (test-equal "fyrahundrafyrtionionde"   (number->string-ordinal 449 'sv a-form?: #t))
  (test-equal "fyrahundrafemtionde"      (number->string-ordinal 450 'sv a-form?: #t))
  (test-equal "fyrahundrafemtioförsta"   (number->string-ordinal 451 'sv a-form?: #t))
  (test-equal "fyrahundrafemtioandra"    (number->string-ordinal 452 'sv a-form?: #t))
  (test-equal "fyrahundrafemtiotredje"   (number->string-ordinal 453 'sv a-form?: #t))
  (test-equal "fyrahundrafemtiofjärde"   (number->string-ordinal 454 'sv a-form?: #t))
  (test-equal "fyrahundrafemtiofemte"    (number->string-ordinal 455 'sv a-form?: #t))
  (test-equal "fyrahundrafemtiosjätte"   (number->string-ordinal 456 'sv a-form?: #t))
  (test-equal "fyrahundrafemtiosjunde"   (number->string-ordinal 457 'sv a-form?: #t))
  (test-equal "fyrahundrafemtioåttonde"  (number->string-ordinal 458 'sv a-form?: #t))
  (test-equal "fyrahundrafemtionionde"   (number->string-ordinal 459 'sv a-form?: #t))
  (test-equal "fyrahundrasextionde"      (number->string-ordinal 460 'sv a-form?: #t))
  (test-equal "fyrahundrasextioförsta"   (number->string-ordinal 461 'sv a-form?: #t))
  (test-equal "fyrahundrasextioandra"    (number->string-ordinal 462 'sv a-form?: #t))
  (test-equal "fyrahundrasextiotredje"   (number->string-ordinal 463 'sv a-form?: #t))
  (test-equal "fyrahundrasextiofjärde"   (number->string-ordinal 464 'sv a-form?: #t))
  (test-equal "fyrahundrasextiofemte"    (number->string-ordinal 465 'sv a-form?: #t))
  (test-equal "fyrahundrasextiosjätte"   (number->string-ordinal 466 'sv a-form?: #t))
  (test-equal "fyrahundrasextiosjunde"   (number->string-ordinal 467 'sv a-form?: #t))
  (test-equal "fyrahundrasextioåttonde"  (number->string-ordinal 468 'sv a-form?: #t))
  (test-equal "fyrahundrasextionionde"   (number->string-ordinal 469 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttionde"     (number->string-ordinal 470 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttioförsta"  (number->string-ordinal 471 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttioandra"   (number->string-ordinal 472 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttiotredje"  (number->string-ordinal 473 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttiofjärde"  (number->string-ordinal 474 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttiofemte"   (number->string-ordinal 475 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttiosjätte"  (number->string-ordinal 476 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttiosjunde"  (number->string-ordinal 477 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttioåttonde" (number->string-ordinal 478 'sv a-form?: #t))
  (test-equal "fyrahundrasjuttionionde"  (number->string-ordinal 479 'sv a-form?: #t))
  (test-equal "fyrahundraåttionde"       (number->string-ordinal 480 'sv a-form?: #t))
  (test-equal "fyrahundraåttioförsta"    (number->string-ordinal 481 'sv a-form?: #t))
  (test-equal "fyrahundraåttioandra"     (number->string-ordinal 482 'sv a-form?: #t))
  (test-equal "fyrahundraåttiotredje"    (number->string-ordinal 483 'sv a-form?: #t))
  (test-equal "fyrahundraåttiofjärde"    (number->string-ordinal 484 'sv a-form?: #t))
  (test-equal "fyrahundraåttiofemte"     (number->string-ordinal 485 'sv a-form?: #t))
  (test-equal "fyrahundraåttiosjätte"    (number->string-ordinal 486 'sv a-form?: #t))
  (test-equal "fyrahundraåttiosjunde"    (number->string-ordinal 487 'sv a-form?: #t))
  (test-equal "fyrahundraåttioåttonde"   (number->string-ordinal 488 'sv a-form?: #t))
  (test-equal "fyrahundraåttionionde"    (number->string-ordinal 489 'sv a-form?: #t))
  (test-equal "fyrahundranittionde"      (number->string-ordinal 490 'sv a-form?: #t))
  (test-equal "fyrahundranittioförsta"   (number->string-ordinal 491 'sv a-form?: #t))
  (test-equal "fyrahundranittioandra"    (number->string-ordinal 492 'sv a-form?: #t))
  (test-equal "fyrahundranittiotredje"   (number->string-ordinal 493 'sv a-form?: #t))
  (test-equal "fyrahundranittiofjärde"   (number->string-ordinal 494 'sv a-form?: #t))
  (test-equal "fyrahundranittiofemte"    (number->string-ordinal 495 'sv a-form?: #t))
  (test-equal "fyrahundranittiosjätte"   (number->string-ordinal 496 'sv a-form?: #t))
  (test-equal "fyrahundranittiosjunde"   (number->string-ordinal 497 'sv a-form?: #t))
  (test-equal "fyrahundranittioåttonde"  (number->string-ordinal 498 'sv a-form?: #t))
  (test-equal "fyrahundranittionionde"   (number->string-ordinal 499 'sv a-form?: #t))
  (test-equal "femhundrade"              (number->string-ordinal 500 'sv a-form?: #t))
  (test-equal "femhundraförsta"          (number->string-ordinal 501 'sv a-form?: #t))
  (test-equal "femhundraandra"           (number->string-ordinal 502 'sv a-form?: #t))
  (test-equal "femhundratredje"          (number->string-ordinal 503 'sv a-form?: #t))
  (test-equal "femhundrafjärde"          (number->string-ordinal 504 'sv a-form?: #t))
  (test-equal "femhundrafemte"           (number->string-ordinal 505 'sv a-form?: #t))
  (test-equal "femhundrasjätte"          (number->string-ordinal 506 'sv a-form?: #t))
  (test-equal "femhundrasjunde"          (number->string-ordinal 507 'sv a-form?: #t))
  (test-equal "femhundraåttonde"         (number->string-ordinal 508 'sv a-form?: #t))
  (test-equal "femhundranionde"          (number->string-ordinal 509 'sv a-form?: #t))
  (test-equal "femhundrationde"          (number->string-ordinal 510 'sv a-form?: #t))
  (test-equal "femhundraelfte"           (number->string-ordinal 511 'sv a-form?: #t))
  (test-equal "femhundratolfte"          (number->string-ordinal 512 'sv a-form?: #t))
  (test-equal "femhundratrettonde"       (number->string-ordinal 513 'sv a-form?: #t))
  (test-equal "femhundrafjortonde"       (number->string-ordinal 514 'sv a-form?: #t))
  (test-equal "femhundrafemtonde"        (number->string-ordinal 515 'sv a-form?: #t))
  (test-equal "femhundrasextonde"        (number->string-ordinal 516 'sv a-form?: #t))
  (test-equal "femhundrasjuttonde"       (number->string-ordinal 517 'sv a-form?: #t))
  (test-equal "femhundraartonde"         (number->string-ordinal 518 'sv a-form?: #t))
  (test-equal "femhundranittonde"        (number->string-ordinal 519 'sv a-form?: #t))
  (test-equal "femhundratjugonde"        (number->string-ordinal 520 'sv a-form?: #t))
  (test-equal "femhundratjugoförsta"     (number->string-ordinal 521 'sv a-form?: #t))
  (test-equal "femhundratjugoandra"      (number->string-ordinal 522 'sv a-form?: #t))
  (test-equal "femhundratjugotredje"     (number->string-ordinal 523 'sv a-form?: #t))
  (test-equal "femhundratjugofjärde"     (number->string-ordinal 524 'sv a-form?: #t))
  (test-equal "femhundratjugofemte"      (number->string-ordinal 525 'sv a-form?: #t))
  (test-equal "femhundratjugosjätte"     (number->string-ordinal 526 'sv a-form?: #t))
  (test-equal "femhundratjugosjunde"     (number->string-ordinal 527 'sv a-form?: #t))
  (test-equal "femhundratjugoåttonde"    (number->string-ordinal 528 'sv a-form?: #t))
  (test-equal "femhundratjugonionde"     (number->string-ordinal 529 'sv a-form?: #t))
  (test-equal "femhundratrettionde"      (number->string-ordinal 530 'sv a-form?: #t))
  (test-equal "femhundratrettioförsta"   (number->string-ordinal 531 'sv a-form?: #t))
  (test-equal "femhundratrettioandra"    (number->string-ordinal 532 'sv a-form?: #t))
  (test-equal "femhundratrettiotredje"   (number->string-ordinal 533 'sv a-form?: #t))
  (test-equal "femhundratrettiofjärde"   (number->string-ordinal 534 'sv a-form?: #t))
  (test-equal "femhundratrettiofemte"    (number->string-ordinal 535 'sv a-form?: #t))
  (test-equal "femhundratrettiosjätte"   (number->string-ordinal 536 'sv a-form?: #t))
  (test-equal "femhundratrettiosjunde"   (number->string-ordinal 537 'sv a-form?: #t))
  (test-equal "femhundratrettioåttonde"  (number->string-ordinal 538 'sv a-form?: #t))
  (test-equal "femhundratrettionionde"   (number->string-ordinal 539 'sv a-form?: #t))
  (test-equal "femhundrafyrtionde"       (number->string-ordinal 540 'sv a-form?: #t))
  (test-equal "femhundrafyrtioförsta"    (number->string-ordinal 541 'sv a-form?: #t))
  (test-equal "femhundrafyrtioandra"     (number->string-ordinal 542 'sv a-form?: #t))
  (test-equal "femhundrafyrtiotredje"    (number->string-ordinal 543 'sv a-form?: #t))
  (test-equal "femhundrafyrtiofjärde"    (number->string-ordinal 544 'sv a-form?: #t))
  (test-equal "femhundrafyrtiofemte"     (number->string-ordinal 545 'sv a-form?: #t))
  (test-equal "femhundrafyrtiosjätte"    (number->string-ordinal 546 'sv a-form?: #t))
  (test-equal "femhundrafyrtiosjunde"    (number->string-ordinal 547 'sv a-form?: #t))
  (test-equal "femhundrafyrtioåttonde"   (number->string-ordinal 548 'sv a-form?: #t))
  (test-equal "femhundrafyrtionionde"    (number->string-ordinal 549 'sv a-form?: #t))
  (test-equal "femhundrafemtionde"       (number->string-ordinal 550 'sv a-form?: #t))
  (test-equal "femhundrafemtioförsta"    (number->string-ordinal 551 'sv a-form?: #t))
  (test-equal "femhundrafemtioandra"     (number->string-ordinal 552 'sv a-form?: #t))
  (test-equal "femhundrafemtiotredje"    (number->string-ordinal 553 'sv a-form?: #t))
  (test-equal "femhundrafemtiofjärde"    (number->string-ordinal 554 'sv a-form?: #t))
  (test-equal "femhundrafemtiofemte"     (number->string-ordinal 555 'sv a-form?: #t))
  (test-equal "femhundrafemtiosjätte"    (number->string-ordinal 556 'sv a-form?: #t))
  (test-equal "femhundrafemtiosjunde"    (number->string-ordinal 557 'sv a-form?: #t))
  (test-equal "femhundrafemtioåttonde"   (number->string-ordinal 558 'sv a-form?: #t))
  (test-equal "femhundrafemtionionde"    (number->string-ordinal 559 'sv a-form?: #t))
  (test-equal "femhundrasextionde"       (number->string-ordinal 560 'sv a-form?: #t))
  (test-equal "femhundrasextioförsta"    (number->string-ordinal 561 'sv a-form?: #t))
  (test-equal "femhundrasextioandra"     (number->string-ordinal 562 'sv a-form?: #t))
  (test-equal "femhundrasextiotredje"    (number->string-ordinal 563 'sv a-form?: #t))
  (test-equal "femhundrasextiofjärde"    (number->string-ordinal 564 'sv a-form?: #t))
  (test-equal "femhundrasextiofemte"     (number->string-ordinal 565 'sv a-form?: #t))
  (test-equal "femhundrasextiosjätte"    (number->string-ordinal 566 'sv a-form?: #t))
  (test-equal "femhundrasextiosjunde"    (number->string-ordinal 567 'sv a-form?: #t))
  (test-equal "femhundrasextioåttonde"   (number->string-ordinal 568 'sv a-form?: #t))
  (test-equal "femhundrasextionionde"    (number->string-ordinal 569 'sv a-form?: #t))
  (test-equal "femhundrasjuttionde"      (number->string-ordinal 570 'sv a-form?: #t))
  (test-equal "femhundrasjuttioförsta"   (number->string-ordinal 571 'sv a-form?: #t))
  (test-equal "femhundrasjuttioandra"    (number->string-ordinal 572 'sv a-form?: #t))
  (test-equal "femhundrasjuttiotredje"   (number->string-ordinal 573 'sv a-form?: #t))
  (test-equal "femhundrasjuttiofjärde"   (number->string-ordinal 574 'sv a-form?: #t))
  (test-equal "femhundrasjuttiofemte"    (number->string-ordinal 575 'sv a-form?: #t))
  (test-equal "femhundrasjuttiosjätte"   (number->string-ordinal 576 'sv a-form?: #t))
  (test-equal "femhundrasjuttiosjunde"   (number->string-ordinal 577 'sv a-form?: #t))
  (test-equal "femhundrasjuttioåttonde"  (number->string-ordinal 578 'sv a-form?: #t))
  (test-equal "femhundrasjuttionionde"   (number->string-ordinal 579 'sv a-form?: #t))
  (test-equal "femhundraåttionde"        (number->string-ordinal 580 'sv a-form?: #t))
  (test-equal "femhundraåttioförsta"     (number->string-ordinal 581 'sv a-form?: #t))
  (test-equal "femhundraåttioandra"      (number->string-ordinal 582 'sv a-form?: #t))
  (test-equal "femhundraåttiotredje"     (number->string-ordinal 583 'sv a-form?: #t))
  (test-equal "femhundraåttiofjärde"     (number->string-ordinal 584 'sv a-form?: #t))
  (test-equal "femhundraåttiofemte"      (number->string-ordinal 585 'sv a-form?: #t))
  (test-equal "femhundraåttiosjätte"     (number->string-ordinal 586 'sv a-form?: #t))
  (test-equal "femhundraåttiosjunde"     (number->string-ordinal 587 'sv a-form?: #t))
  (test-equal "femhundraåttioåttonde"    (number->string-ordinal 588 'sv a-form?: #t))
  (test-equal "femhundraåttionionde"     (number->string-ordinal 589 'sv a-form?: #t))
  (test-equal "femhundranittionde"       (number->string-ordinal 590 'sv a-form?: #t))
  (test-equal "femhundranittioförsta"    (number->string-ordinal 591 'sv a-form?: #t))
  (test-equal "femhundranittioandra"     (number->string-ordinal 592 'sv a-form?: #t))
  (test-equal "femhundranittiotredje"    (number->string-ordinal 593 'sv a-form?: #t))
  (test-equal "femhundranittiofjärde"    (number->string-ordinal 594 'sv a-form?: #t))
  (test-equal "femhundranittiofemte"     (number->string-ordinal 595 'sv a-form?: #t))
  (test-equal "femhundranittiosjätte"    (number->string-ordinal 596 'sv a-form?: #t))
  (test-equal "femhundranittiosjunde"    (number->string-ordinal 597 'sv a-form?: #t))
  (test-equal "femhundranittioåttonde"   (number->string-ordinal 598 'sv a-form?: #t))
  (test-equal "femhundranittionionde"    (number->string-ordinal 599 'sv a-form?: #t))
  (test-equal "sexhundrade"              (number->string-ordinal 600 'sv a-form?: #t))
  (test-equal "sexhundraförsta"          (number->string-ordinal 601 'sv a-form?: #t))
  (test-equal "sexhundraandra"           (number->string-ordinal 602 'sv a-form?: #t))
  (test-equal "sexhundratredje"          (number->string-ordinal 603 'sv a-form?: #t))
  (test-equal "sexhundrafjärde"          (number->string-ordinal 604 'sv a-form?: #t))
  (test-equal "sexhundrafemte"           (number->string-ordinal 605 'sv a-form?: #t))
  (test-equal "sexhundrasjätte"          (number->string-ordinal 606 'sv a-form?: #t))
  (test-equal "sexhundrasjunde"          (number->string-ordinal 607 'sv a-form?: #t))
  (test-equal "sexhundraåttonde"         (number->string-ordinal 608 'sv a-form?: #t))
  (test-equal "sexhundranionde"          (number->string-ordinal 609 'sv a-form?: #t))
  (test-equal "sexhundrationde"          (number->string-ordinal 610 'sv a-form?: #t))
  (test-equal "sexhundraelfte"           (number->string-ordinal 611 'sv a-form?: #t))
  (test-equal "sexhundratolfte"          (number->string-ordinal 612 'sv a-form?: #t))
  (test-equal "sexhundratrettonde"       (number->string-ordinal 613 'sv a-form?: #t))
  (test-equal "sexhundrafjortonde"       (number->string-ordinal 614 'sv a-form?: #t))
  (test-equal "sexhundrafemtonde"        (number->string-ordinal 615 'sv a-form?: #t))
  (test-equal "sexhundrasextonde"        (number->string-ordinal 616 'sv a-form?: #t))
  (test-equal "sexhundrasjuttonde"       (number->string-ordinal 617 'sv a-form?: #t))
  (test-equal "sexhundraartonde"         (number->string-ordinal 618 'sv a-form?: #t))
  (test-equal "sexhundranittonde"        (number->string-ordinal 619 'sv a-form?: #t))
  (test-equal "sexhundratjugonde"        (number->string-ordinal 620 'sv a-form?: #t))
  (test-equal "sexhundratjugoförsta"     (number->string-ordinal 621 'sv a-form?: #t))
  (test-equal "sexhundratjugoandra"      (number->string-ordinal 622 'sv a-form?: #t))
  (test-equal "sexhundratjugotredje"     (number->string-ordinal 623 'sv a-form?: #t))
  (test-equal "sexhundratjugofjärde"     (number->string-ordinal 624 'sv a-form?: #t))
  (test-equal "sexhundratjugofemte"      (number->string-ordinal 625 'sv a-form?: #t))
  (test-equal "sexhundratjugosjätte"     (number->string-ordinal 626 'sv a-form?: #t))
  (test-equal "sexhundratjugosjunde"     (number->string-ordinal 627 'sv a-form?: #t))
  (test-equal "sexhundratjugoåttonde"    (number->string-ordinal 628 'sv a-form?: #t))
  (test-equal "sexhundratjugonionde"     (number->string-ordinal 629 'sv a-form?: #t))
  (test-equal "sexhundratrettionde"      (number->string-ordinal 630 'sv a-form?: #t))
  (test-equal "sexhundratrettioförsta"   (number->string-ordinal 631 'sv a-form?: #t))
  (test-equal "sexhundratrettioandra"    (number->string-ordinal 632 'sv a-form?: #t))
  (test-equal "sexhundratrettiotredje"   (number->string-ordinal 633 'sv a-form?: #t))
  (test-equal "sexhundratrettiofjärde"   (number->string-ordinal 634 'sv a-form?: #t))
  (test-equal "sexhundratrettiofemte"    (number->string-ordinal 635 'sv a-form?: #t))
  (test-equal "sexhundratrettiosjätte"   (number->string-ordinal 636 'sv a-form?: #t))
  (test-equal "sexhundratrettiosjunde"   (number->string-ordinal 637 'sv a-form?: #t))
  (test-equal "sexhundratrettioåttonde"  (number->string-ordinal 638 'sv a-form?: #t))
  (test-equal "sexhundratrettionionde"   (number->string-ordinal 639 'sv a-form?: #t))
  (test-equal "sexhundrafyrtionde"       (number->string-ordinal 640 'sv a-form?: #t))
  (test-equal "sexhundrafyrtioförsta"    (number->string-ordinal 641 'sv a-form?: #t))
  (test-equal "sexhundrafyrtioandra"     (number->string-ordinal 642 'sv a-form?: #t))
  (test-equal "sexhundrafyrtiotredje"    (number->string-ordinal 643 'sv a-form?: #t))
  (test-equal "sexhundrafyrtiofjärde"    (number->string-ordinal 644 'sv a-form?: #t))
  (test-equal "sexhundrafyrtiofemte"     (number->string-ordinal 645 'sv a-form?: #t))
  (test-equal "sexhundrafyrtiosjätte"    (number->string-ordinal 646 'sv a-form?: #t))
  (test-equal "sexhundrafyrtiosjunde"    (number->string-ordinal 647 'sv a-form?: #t))
  (test-equal "sexhundrafyrtioåttonde"   (number->string-ordinal 648 'sv a-form?: #t))
  (test-equal "sexhundrafyrtionionde"    (number->string-ordinal 649 'sv a-form?: #t))
  (test-equal "sexhundrafemtionde"       (number->string-ordinal 650 'sv a-form?: #t))
  (test-equal "sexhundrafemtioförsta"    (number->string-ordinal 651 'sv a-form?: #t))
  (test-equal "sexhundrafemtioandra"     (number->string-ordinal 652 'sv a-form?: #t))
  (test-equal "sexhundrafemtiotredje"    (number->string-ordinal 653 'sv a-form?: #t))
  (test-equal "sexhundrafemtiofjärde"    (number->string-ordinal 654 'sv a-form?: #t))
  (test-equal "sexhundrafemtiofemte"     (number->string-ordinal 655 'sv a-form?: #t))
  (test-equal "sexhundrafemtiosjätte"    (number->string-ordinal 656 'sv a-form?: #t))
  (test-equal "sexhundrafemtiosjunde"    (number->string-ordinal 657 'sv a-form?: #t))
  (test-equal "sexhundrafemtioåttonde"   (number->string-ordinal 658 'sv a-form?: #t))
  (test-equal "sexhundrafemtionionde"    (number->string-ordinal 659 'sv a-form?: #t))
  (test-equal "sexhundrasextionde"       (number->string-ordinal 660 'sv a-form?: #t))
  (test-equal "sexhundrasextioförsta"    (number->string-ordinal 661 'sv a-form?: #t))
  (test-equal "sexhundrasextioandra"     (number->string-ordinal 662 'sv a-form?: #t))
  (test-equal "sexhundrasextiotredje"    (number->string-ordinal 663 'sv a-form?: #t))
  (test-equal "sexhundrasextiofjärde"    (number->string-ordinal 664 'sv a-form?: #t))
  (test-equal "sexhundrasextiofemte"     (number->string-ordinal 665 'sv a-form?: #t))
  (test-equal "sexhundrasextiosjätte"    (number->string-ordinal 666 'sv a-form?: #t))
  (test-equal "sexhundrasextiosjunde"    (number->string-ordinal 667 'sv a-form?: #t))
  (test-equal "sexhundrasextioåttonde"   (number->string-ordinal 668 'sv a-form?: #t))
  (test-equal "sexhundrasextionionde"    (number->string-ordinal 669 'sv a-form?: #t))
  (test-equal "sexhundrasjuttionde"      (number->string-ordinal 670 'sv a-form?: #t))
  (test-equal "sexhundrasjuttioförsta"   (number->string-ordinal 671 'sv a-form?: #t))
  (test-equal "sexhundrasjuttioandra"    (number->string-ordinal 672 'sv a-form?: #t))
  (test-equal "sexhundrasjuttiotredje"   (number->string-ordinal 673 'sv a-form?: #t))
  (test-equal "sexhundrasjuttiofjärde"   (number->string-ordinal 674 'sv a-form?: #t))
  (test-equal "sexhundrasjuttiofemte"    (number->string-ordinal 675 'sv a-form?: #t))
  (test-equal "sexhundrasjuttiosjätte"   (number->string-ordinal 676 'sv a-form?: #t))
  (test-equal "sexhundrasjuttiosjunde"   (number->string-ordinal 677 'sv a-form?: #t))
  (test-equal "sexhundrasjuttioåttonde"  (number->string-ordinal 678 'sv a-form?: #t))
  (test-equal "sexhundrasjuttionionde"   (number->string-ordinal 679 'sv a-form?: #t))
  (test-equal "sexhundraåttionde"        (number->string-ordinal 680 'sv a-form?: #t))
  (test-equal "sexhundraåttioförsta"     (number->string-ordinal 681 'sv a-form?: #t))
  (test-equal "sexhundraåttioandra"      (number->string-ordinal 682 'sv a-form?: #t))
  (test-equal "sexhundraåttiotredje"     (number->string-ordinal 683 'sv a-form?: #t))
  (test-equal "sexhundraåttiofjärde"     (number->string-ordinal 684 'sv a-form?: #t))
  (test-equal "sexhundraåttiofemte"      (number->string-ordinal 685 'sv a-form?: #t))
  (test-equal "sexhundraåttiosjätte"     (number->string-ordinal 686 'sv a-form?: #t))
  (test-equal "sexhundraåttiosjunde"     (number->string-ordinal 687 'sv a-form?: #t))
  (test-equal "sexhundraåttioåttonde"    (number->string-ordinal 688 'sv a-form?: #t))
  (test-equal "sexhundraåttionionde"     (number->string-ordinal 689 'sv a-form?: #t))
  (test-equal "sexhundranittionde"       (number->string-ordinal 690 'sv a-form?: #t))
  (test-equal "sexhundranittioförsta"    (number->string-ordinal 691 'sv a-form?: #t))
  (test-equal "sexhundranittioandra"     (number->string-ordinal 692 'sv a-form?: #t))
  (test-equal "sexhundranittiotredje"    (number->string-ordinal 693 'sv a-form?: #t))
  (test-equal "sexhundranittiofjärde"    (number->string-ordinal 694 'sv a-form?: #t))
  (test-equal "sexhundranittiofemte"     (number->string-ordinal 695 'sv a-form?: #t))
  (test-equal "sexhundranittiosjätte"    (number->string-ordinal 696 'sv a-form?: #t))
  (test-equal "sexhundranittiosjunde"    (number->string-ordinal 697 'sv a-form?: #t))
  (test-equal "sexhundranittioåttonde"   (number->string-ordinal 698 'sv a-form?: #t))
  (test-equal "sexhundranittionionde"    (number->string-ordinal 699 'sv a-form?: #t))
  (test-equal "sjuhundrade"              (number->string-ordinal 700 'sv a-form?: #t))
  (test-equal "sjuhundraförsta"          (number->string-ordinal 701 'sv a-form?: #t))
  (test-equal "sjuhundraandra"           (number->string-ordinal 702 'sv a-form?: #t))
  (test-equal "sjuhundratredje"          (number->string-ordinal 703 'sv a-form?: #t))
  (test-equal "sjuhundrafjärde"          (number->string-ordinal 704 'sv a-form?: #t))
  (test-equal "sjuhundrafemte"           (number->string-ordinal 705 'sv a-form?: #t))
  (test-equal "sjuhundrasjätte"          (number->string-ordinal 706 'sv a-form?: #t))
  (test-equal "sjuhundrasjunde"          (number->string-ordinal 707 'sv a-form?: #t))
  (test-equal "sjuhundraåttonde"         (number->string-ordinal 708 'sv a-form?: #t))
  (test-equal "sjuhundranionde"          (number->string-ordinal 709 'sv a-form?: #t))
  (test-equal "sjuhundrationde"          (number->string-ordinal 710 'sv a-form?: #t))
  (test-equal "sjuhundraelfte"           (number->string-ordinal 711 'sv a-form?: #t))
  (test-equal "sjuhundratolfte"          (number->string-ordinal 712 'sv a-form?: #t))
  (test-equal "sjuhundratrettonde"       (number->string-ordinal 713 'sv a-form?: #t))
  (test-equal "sjuhundrafjortonde"       (number->string-ordinal 714 'sv a-form?: #t))
  (test-equal "sjuhundrafemtonde"        (number->string-ordinal 715 'sv a-form?: #t))
  (test-equal "sjuhundrasextonde"        (number->string-ordinal 716 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttonde"       (number->string-ordinal 717 'sv a-form?: #t))
  (test-equal "sjuhundraartonde"         (number->string-ordinal 718 'sv a-form?: #t))
  (test-equal "sjuhundranittonde"        (number->string-ordinal 719 'sv a-form?: #t))
  (test-equal "sjuhundratjugonde"        (number->string-ordinal 720 'sv a-form?: #t))
  (test-equal "sjuhundratjugoförsta"     (number->string-ordinal 721 'sv a-form?: #t))
  (test-equal "sjuhundratjugoandra"      (number->string-ordinal 722 'sv a-form?: #t))
  (test-equal "sjuhundratjugotredje"     (number->string-ordinal 723 'sv a-form?: #t))
  (test-equal "sjuhundratjugofjärde"     (number->string-ordinal 724 'sv a-form?: #t))
  (test-equal "sjuhundratjugofemte"      (number->string-ordinal 725 'sv a-form?: #t))
  (test-equal "sjuhundratjugosjätte"     (number->string-ordinal 726 'sv a-form?: #t))
  (test-equal "sjuhundratjugosjunde"     (number->string-ordinal 727 'sv a-form?: #t))
  (test-equal "sjuhundratjugoåttonde"    (number->string-ordinal 728 'sv a-form?: #t))
  (test-equal "sjuhundratjugonionde"     (number->string-ordinal 729 'sv a-form?: #t))
  (test-equal "sjuhundratrettionde"      (number->string-ordinal 730 'sv a-form?: #t))
  (test-equal "sjuhundratrettioförsta"   (number->string-ordinal 731 'sv a-form?: #t))
  (test-equal "sjuhundratrettioandra"    (number->string-ordinal 732 'sv a-form?: #t))
  (test-equal "sjuhundratrettiotredje"   (number->string-ordinal 733 'sv a-form?: #t))
  (test-equal "sjuhundratrettiofjärde"   (number->string-ordinal 734 'sv a-form?: #t))
  (test-equal "sjuhundratrettiofemte"    (number->string-ordinal 735 'sv a-form?: #t))
  (test-equal "sjuhundratrettiosjätte"   (number->string-ordinal 736 'sv a-form?: #t))
  (test-equal "sjuhundratrettiosjunde"   (number->string-ordinal 737 'sv a-form?: #t))
  (test-equal "sjuhundratrettioåttonde"  (number->string-ordinal 738 'sv a-form?: #t))
  (test-equal "sjuhundratrettionionde"   (number->string-ordinal 739 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtionde"       (number->string-ordinal 740 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtioförsta"    (number->string-ordinal 741 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtioandra"     (number->string-ordinal 742 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtiotredje"    (number->string-ordinal 743 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtiofjärde"    (number->string-ordinal 744 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtiofemte"     (number->string-ordinal 745 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtiosjätte"    (number->string-ordinal 746 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtiosjunde"    (number->string-ordinal 747 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtioåttonde"   (number->string-ordinal 748 'sv a-form?: #t))
  (test-equal "sjuhundrafyrtionionde"    (number->string-ordinal 749 'sv a-form?: #t))
  (test-equal "sjuhundrafemtionde"       (number->string-ordinal 750 'sv a-form?: #t))
  (test-equal "sjuhundrafemtioförsta"    (number->string-ordinal 751 'sv a-form?: #t))
  (test-equal "sjuhundrafemtioandra"     (number->string-ordinal 752 'sv a-form?: #t))
  (test-equal "sjuhundrafemtiotredje"    (number->string-ordinal 753 'sv a-form?: #t))
  (test-equal "sjuhundrafemtiofjärde"    (number->string-ordinal 754 'sv a-form?: #t))
  (test-equal "sjuhundrafemtiofemte"     (number->string-ordinal 755 'sv a-form?: #t))
  (test-equal "sjuhundrafemtiosjätte"    (number->string-ordinal 756 'sv a-form?: #t))
  (test-equal "sjuhundrafemtiosjunde"    (number->string-ordinal 757 'sv a-form?: #t))
  (test-equal "sjuhundrafemtioåttonde"   (number->string-ordinal 758 'sv a-form?: #t))
  (test-equal "sjuhundrafemtionionde"    (number->string-ordinal 759 'sv a-form?: #t))
  (test-equal "sjuhundrasextionde"       (number->string-ordinal 760 'sv a-form?: #t))
  (test-equal "sjuhundrasextioförsta"    (number->string-ordinal 761 'sv a-form?: #t))
  (test-equal "sjuhundrasextioandra"     (number->string-ordinal 762 'sv a-form?: #t))
  (test-equal "sjuhundrasextiotredje"    (number->string-ordinal 763 'sv a-form?: #t))
  (test-equal "sjuhundrasextiofjärde"    (number->string-ordinal 764 'sv a-form?: #t))
  (test-equal "sjuhundrasextiofemte"     (number->string-ordinal 765 'sv a-form?: #t))
  (test-equal "sjuhundrasextiosjätte"    (number->string-ordinal 766 'sv a-form?: #t))
  (test-equal "sjuhundrasextiosjunde"    (number->string-ordinal 767 'sv a-form?: #t))
  (test-equal "sjuhundrasextioåttonde"   (number->string-ordinal 768 'sv a-form?: #t))
  (test-equal "sjuhundrasextionionde"    (number->string-ordinal 769 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttionde"      (number->string-ordinal 770 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttioförsta"   (number->string-ordinal 771 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttioandra"    (number->string-ordinal 772 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttiotredje"   (number->string-ordinal 773 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttiofjärde"   (number->string-ordinal 774 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttiofemte"    (number->string-ordinal 775 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttiosjätte"   (number->string-ordinal 776 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttiosjunde"   (number->string-ordinal 777 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttioåttonde"  (number->string-ordinal 778 'sv a-form?: #t))
  (test-equal "sjuhundrasjuttionionde"   (number->string-ordinal 779 'sv a-form?: #t))
  (test-equal "sjuhundraåttionde"        (number->string-ordinal 780 'sv a-form?: #t))
  (test-equal "sjuhundraåttioförsta"     (number->string-ordinal 781 'sv a-form?: #t))
  (test-equal "sjuhundraåttioandra"      (number->string-ordinal 782 'sv a-form?: #t))
  (test-equal "sjuhundraåttiotredje"     (number->string-ordinal 783 'sv a-form?: #t))
  (test-equal "sjuhundraåttiofjärde"     (number->string-ordinal 784 'sv a-form?: #t))
  (test-equal "sjuhundraåttiofemte"      (number->string-ordinal 785 'sv a-form?: #t))
  (test-equal "sjuhundraåttiosjätte"     (number->string-ordinal 786 'sv a-form?: #t))
  (test-equal "sjuhundraåttiosjunde"     (number->string-ordinal 787 'sv a-form?: #t))
  (test-equal "sjuhundraåttioåttonde"    (number->string-ordinal 788 'sv a-form?: #t))
  (test-equal "sjuhundraåttionionde"     (number->string-ordinal 789 'sv a-form?: #t))
  (test-equal "sjuhundranittionde"       (number->string-ordinal 790 'sv a-form?: #t))
  (test-equal "sjuhundranittioförsta"    (number->string-ordinal 791 'sv a-form?: #t))
  (test-equal "sjuhundranittioandra"     (number->string-ordinal 792 'sv a-form?: #t))
  (test-equal "sjuhundranittiotredje"    (number->string-ordinal 793 'sv a-form?: #t))
  (test-equal "sjuhundranittiofjärde"    (number->string-ordinal 794 'sv a-form?: #t))
  (test-equal "sjuhundranittiofemte"     (number->string-ordinal 795 'sv a-form?: #t))
  (test-equal "sjuhundranittiosjätte"    (number->string-ordinal 796 'sv a-form?: #t))
  (test-equal "sjuhundranittiosjunde"    (number->string-ordinal 797 'sv a-form?: #t))
  (test-equal "sjuhundranittioåttonde"   (number->string-ordinal 798 'sv a-form?: #t))
  (test-equal "sjuhundranittionionde"    (number->string-ordinal 799 'sv a-form?: #t))
  (test-equal "åttahundrade"             (number->string-ordinal 800 'sv a-form?: #t))
  (test-equal "åttahundraförsta"         (number->string-ordinal 801 'sv a-form?: #t))
  (test-equal "åttahundraandra"          (number->string-ordinal 802 'sv a-form?: #t))
  (test-equal "åttahundratredje"         (number->string-ordinal 803 'sv a-form?: #t))
  (test-equal "åttahundrafjärde"         (number->string-ordinal 804 'sv a-form?: #t))
  (test-equal "åttahundrafemte"          (number->string-ordinal 805 'sv a-form?: #t))
  (test-equal "åttahundrasjätte"         (number->string-ordinal 806 'sv a-form?: #t))
  (test-equal "åttahundrasjunde"         (number->string-ordinal 807 'sv a-form?: #t))
  (test-equal "åttahundraåttonde"        (number->string-ordinal 808 'sv a-form?: #t))
  (test-equal "åttahundranionde"         (number->string-ordinal 809 'sv a-form?: #t))
  (test-equal "åttahundrationde"         (number->string-ordinal 810 'sv a-form?: #t))
  (test-equal "åttahundraelfte"          (number->string-ordinal 811 'sv a-form?: #t))
  (test-equal "åttahundratolfte"         (number->string-ordinal 812 'sv a-form?: #t))
  (test-equal "åttahundratrettonde"      (number->string-ordinal 813 'sv a-form?: #t))
  (test-equal "åttahundrafjortonde"      (number->string-ordinal 814 'sv a-form?: #t))
  (test-equal "åttahundrafemtonde"       (number->string-ordinal 815 'sv a-form?: #t))
  (test-equal "åttahundrasextonde"       (number->string-ordinal 816 'sv a-form?: #t))
  (test-equal "åttahundrasjuttonde"      (number->string-ordinal 817 'sv a-form?: #t))
  (test-equal "åttahundraartonde"        (number->string-ordinal 818 'sv a-form?: #t))
  (test-equal "åttahundranittonde"       (number->string-ordinal 819 'sv a-form?: #t))
  (test-equal "åttahundratjugonde"       (number->string-ordinal 820 'sv a-form?: #t))
  (test-equal "åttahundratjugoförsta"    (number->string-ordinal 821 'sv a-form?: #t))
  (test-equal "åttahundratjugoandra"     (number->string-ordinal 822 'sv a-form?: #t))
  (test-equal "åttahundratjugotredje"    (number->string-ordinal 823 'sv a-form?: #t))
  (test-equal "åttahundratjugofjärde"    (number->string-ordinal 824 'sv a-form?: #t))
  (test-equal "åttahundratjugofemte"     (number->string-ordinal 825 'sv a-form?: #t))
  (test-equal "åttahundratjugosjätte"    (number->string-ordinal 826 'sv a-form?: #t))
  (test-equal "åttahundratjugosjunde"    (number->string-ordinal 827 'sv a-form?: #t))
  (test-equal "åttahundratjugoåttonde"   (number->string-ordinal 828 'sv a-form?: #t))
  (test-equal "åttahundratjugonionde"    (number->string-ordinal 829 'sv a-form?: #t))
  (test-equal "åttahundratrettionde"     (number->string-ordinal 830 'sv a-form?: #t))
  (test-equal "åttahundratrettioförsta"  (number->string-ordinal 831 'sv a-form?: #t))
  (test-equal "åttahundratrettioandra"   (number->string-ordinal 832 'sv a-form?: #t))
  (test-equal "åttahundratrettiotredje"  (number->string-ordinal 833 'sv a-form?: #t))
  (test-equal "åttahundratrettiofjärde"  (number->string-ordinal 834 'sv a-form?: #t))
  (test-equal "åttahundratrettiofemte"   (number->string-ordinal 835 'sv a-form?: #t))
  (test-equal "åttahundratrettiosjätte"  (number->string-ordinal 836 'sv a-form?: #t))
  (test-equal "åttahundratrettiosjunde"  (number->string-ordinal 837 'sv a-form?: #t))
  (test-equal "åttahundratrettioåttonde" (number->string-ordinal 838 'sv a-form?: #t))
  (test-equal "åttahundratrettionionde"  (number->string-ordinal 839 'sv a-form?: #t))
  (test-equal "åttahundrafyrtionde"      (number->string-ordinal 840 'sv a-form?: #t))
  (test-equal "åttahundrafyrtioförsta"   (number->string-ordinal 841 'sv a-form?: #t))
  (test-equal "åttahundrafyrtioandra"    (number->string-ordinal 842 'sv a-form?: #t))
  (test-equal "åttahundrafyrtiotredje"   (number->string-ordinal 843 'sv a-form?: #t))
  (test-equal "åttahundrafyrtiofjärde"   (number->string-ordinal 844 'sv a-form?: #t))
  (test-equal "åttahundrafyrtiofemte"    (number->string-ordinal 845 'sv a-form?: #t))
  (test-equal "åttahundrafyrtiosjätte"   (number->string-ordinal 846 'sv a-form?: #t))
  (test-equal "åttahundrafyrtiosjunde"   (number->string-ordinal 847 'sv a-form?: #t))
  (test-equal "åttahundrafyrtioåttonde"  (number->string-ordinal 848 'sv a-form?: #t))
  (test-equal "åttahundrafyrtionionde"   (number->string-ordinal 849 'sv a-form?: #t))
  (test-equal "åttahundrafemtionde"      (number->string-ordinal 850 'sv a-form?: #t))
  (test-equal "åttahundrafemtioförsta"   (number->string-ordinal 851 'sv a-form?: #t))
  (test-equal "åttahundrafemtioandra"    (number->string-ordinal 852 'sv a-form?: #t))
  (test-equal "åttahundrafemtiotredje"   (number->string-ordinal 853 'sv a-form?: #t))
  (test-equal "åttahundrafemtiofjärde"   (number->string-ordinal 854 'sv a-form?: #t))
  (test-equal "åttahundrafemtiofemte"    (number->string-ordinal 855 'sv a-form?: #t))
  (test-equal "åttahundrafemtiosjätte"   (number->string-ordinal 856 'sv a-form?: #t))
  (test-equal "åttahundrafemtiosjunde"   (number->string-ordinal 857 'sv a-form?: #t))
  (test-equal "åttahundrafemtioåttonde"  (number->string-ordinal 858 'sv a-form?: #t))
  (test-equal "åttahundrafemtionionde"   (number->string-ordinal 859 'sv a-form?: #t))
  (test-equal "åttahundrasextionde"      (number->string-ordinal 860 'sv a-form?: #t))
  (test-equal "åttahundrasextioförsta"   (number->string-ordinal 861 'sv a-form?: #t))
  (test-equal "åttahundrasextioandra"    (number->string-ordinal 862 'sv a-form?: #t))
  (test-equal "åttahundrasextiotredje"   (number->string-ordinal 863 'sv a-form?: #t))
  (test-equal "åttahundrasextiofjärde"   (number->string-ordinal 864 'sv a-form?: #t))
  (test-equal "åttahundrasextiofemte"    (number->string-ordinal 865 'sv a-form?: #t))
  (test-equal "åttahundrasextiosjätte"   (number->string-ordinal 866 'sv a-form?: #t))
  (test-equal "åttahundrasextiosjunde"   (number->string-ordinal 867 'sv a-form?: #t))
  (test-equal "åttahundrasextioåttonde"  (number->string-ordinal 868 'sv a-form?: #t))
  (test-equal "åttahundrasextionionde"   (number->string-ordinal 869 'sv a-form?: #t))
  (test-equal "åttahundrasjuttionde"     (number->string-ordinal 870 'sv a-form?: #t))
  (test-equal "åttahundrasjuttioförsta"  (number->string-ordinal 871 'sv a-form?: #t))
  (test-equal "åttahundrasjuttioandra"   (number->string-ordinal 872 'sv a-form?: #t))
  (test-equal "åttahundrasjuttiotredje"  (number->string-ordinal 873 'sv a-form?: #t))
  (test-equal "åttahundrasjuttiofjärde"  (number->string-ordinal 874 'sv a-form?: #t))
  (test-equal "åttahundrasjuttiofemte"   (number->string-ordinal 875 'sv a-form?: #t))
  (test-equal "åttahundrasjuttiosjätte"  (number->string-ordinal 876 'sv a-form?: #t))
  (test-equal "åttahundrasjuttiosjunde"  (number->string-ordinal 877 'sv a-form?: #t))
  (test-equal "åttahundrasjuttioåttonde" (number->string-ordinal 878 'sv a-form?: #t))
  (test-equal "åttahundrasjuttionionde"  (number->string-ordinal 879 'sv a-form?: #t))
  (test-equal "åttahundraåttionde"       (number->string-ordinal 880 'sv a-form?: #t))
  (test-equal "åttahundraåttioförsta"    (number->string-ordinal 881 'sv a-form?: #t))
  (test-equal "åttahundraåttioandra"     (number->string-ordinal 882 'sv a-form?: #t))
  (test-equal "åttahundraåttiotredje"    (number->string-ordinal 883 'sv a-form?: #t))
  (test-equal "åttahundraåttiofjärde"    (number->string-ordinal 884 'sv a-form?: #t))
  (test-equal "åttahundraåttiofemte"     (number->string-ordinal 885 'sv a-form?: #t))
  (test-equal "åttahundraåttiosjätte"    (number->string-ordinal 886 'sv a-form?: #t))
  (test-equal "åttahundraåttiosjunde"    (number->string-ordinal 887 'sv a-form?: #t))
  (test-equal "åttahundraåttioåttonde"   (number->string-ordinal 888 'sv a-form?: #t))
  (test-equal "åttahundraåttionionde"    (number->string-ordinal 889 'sv a-form?: #t))
  (test-equal "åttahundranittionde"      (number->string-ordinal 890 'sv a-form?: #t))
  (test-equal "åttahundranittioförsta"   (number->string-ordinal 891 'sv a-form?: #t))
  (test-equal "åttahundranittioandra"    (number->string-ordinal 892 'sv a-form?: #t))
  (test-equal "åttahundranittiotredje"   (number->string-ordinal 893 'sv a-form?: #t))
  (test-equal "åttahundranittiofjärde"   (number->string-ordinal 894 'sv a-form?: #t))
  (test-equal "åttahundranittiofemte"    (number->string-ordinal 895 'sv a-form?: #t))
  (test-equal "åttahundranittiosjätte"   (number->string-ordinal 896 'sv a-form?: #t))
  (test-equal "åttahundranittiosjunde"   (number->string-ordinal 897 'sv a-form?: #t))
  (test-equal "åttahundranittioåttonde"  (number->string-ordinal 898 'sv a-form?: #t))
  (test-equal "åttahundranittionionde"   (number->string-ordinal 899 'sv a-form?: #t))
  (test-equal "niohundrade"              (number->string-ordinal 900 'sv a-form?: #t))
  (test-equal "niohundraförsta"          (number->string-ordinal 901 'sv a-form?: #t))
  (test-equal "niohundraandra"           (number->string-ordinal 902 'sv a-form?: #t))
  (test-equal "niohundratredje"          (number->string-ordinal 903 'sv a-form?: #t))
  (test-equal "niohundrafjärde"          (number->string-ordinal 904 'sv a-form?: #t))
  (test-equal "niohundrafemte"           (number->string-ordinal 905 'sv a-form?: #t))
  (test-equal "niohundrasjätte"          (number->string-ordinal 906 'sv a-form?: #t))
  (test-equal "niohundrasjunde"          (number->string-ordinal 907 'sv a-form?: #t))
  (test-equal "niohundraåttonde"         (number->string-ordinal 908 'sv a-form?: #t))
  (test-equal "niohundranionde"          (number->string-ordinal 909 'sv a-form?: #t))
  (test-equal "niohundrationde"          (number->string-ordinal 910 'sv a-form?: #t))
  (test-equal "niohundraelfte"           (number->string-ordinal 911 'sv a-form?: #t))
  (test-equal "niohundratolfte"          (number->string-ordinal 912 'sv a-form?: #t))
  (test-equal "niohundratrettonde"       (number->string-ordinal 913 'sv a-form?: #t))
  (test-equal "niohundrafjortonde"       (number->string-ordinal 914 'sv a-form?: #t))
  (test-equal "niohundrafemtonde"        (number->string-ordinal 915 'sv a-form?: #t))
  (test-equal "niohundrasextonde"        (number->string-ordinal 916 'sv a-form?: #t))
  (test-equal "niohundrasjuttonde"       (number->string-ordinal 917 'sv a-form?: #t))
  (test-equal "niohundraartonde"         (number->string-ordinal 918 'sv a-form?: #t))
  (test-equal "niohundranittonde"        (number->string-ordinal 919 'sv a-form?: #t))
  (test-equal "niohundratjugonde"        (number->string-ordinal 920 'sv a-form?: #t))
  (test-equal "niohundratjugoförsta"     (number->string-ordinal 921 'sv a-form?: #t))
  (test-equal "niohundratjugoandra"      (number->string-ordinal 922 'sv a-form?: #t))
  (test-equal "niohundratjugotredje"     (number->string-ordinal 923 'sv a-form?: #t))
  (test-equal "niohundratjugofjärde"     (number->string-ordinal 924 'sv a-form?: #t))
  (test-equal "niohundratjugofemte"      (number->string-ordinal 925 'sv a-form?: #t))
  (test-equal "niohundratjugosjätte"     (number->string-ordinal 926 'sv a-form?: #t))
  (test-equal "niohundratjugosjunde"     (number->string-ordinal 927 'sv a-form?: #t))
  (test-equal "niohundratjugoåttonde"    (number->string-ordinal 928 'sv a-form?: #t))
  (test-equal "niohundratjugonionde"     (number->string-ordinal 929 'sv a-form?: #t))
  (test-equal "niohundratrettionde"      (number->string-ordinal 930 'sv a-form?: #t))
  (test-equal "niohundratrettioförsta"   (number->string-ordinal 931 'sv a-form?: #t))
  (test-equal "niohundratrettioandra"    (number->string-ordinal 932 'sv a-form?: #t))
  (test-equal "niohundratrettiotredje"   (number->string-ordinal 933 'sv a-form?: #t))
  (test-equal "niohundratrettiofjärde"   (number->string-ordinal 934 'sv a-form?: #t))
  (test-equal "niohundratrettiofemte"    (number->string-ordinal 935 'sv a-form?: #t))
  (test-equal "niohundratrettiosjätte"   (number->string-ordinal 936 'sv a-form?: #t))
  (test-equal "niohundratrettiosjunde"   (number->string-ordinal 937 'sv a-form?: #t))
  (test-equal "niohundratrettioåttonde"  (number->string-ordinal 938 'sv a-form?: #t))
  (test-equal "niohundratrettionionde"   (number->string-ordinal 939 'sv a-form?: #t))
  (test-equal "niohundrafyrtionde"       (number->string-ordinal 940 'sv a-form?: #t))
  (test-equal "niohundrafyrtioförsta"    (number->string-ordinal 941 'sv a-form?: #t))
  (test-equal "niohundrafyrtioandra"     (number->string-ordinal 942 'sv a-form?: #t))
  (test-equal "niohundrafyrtiotredje"    (number->string-ordinal 943 'sv a-form?: #t))
  (test-equal "niohundrafyrtiofjärde"    (number->string-ordinal 944 'sv a-form?: #t))
  (test-equal "niohundrafyrtiofemte"     (number->string-ordinal 945 'sv a-form?: #t))
  (test-equal "niohundrafyrtiosjätte"    (number->string-ordinal 946 'sv a-form?: #t))
  (test-equal "niohundrafyrtiosjunde"    (number->string-ordinal 947 'sv a-form?: #t))
  (test-equal "niohundrafyrtioåttonde"   (number->string-ordinal 948 'sv a-form?: #t))
  (test-equal "niohundrafyrtionionde"    (number->string-ordinal 949 'sv a-form?: #t))
  (test-equal "niohundrafemtionde"       (number->string-ordinal 950 'sv a-form?: #t))
  (test-equal "niohundrafemtioförsta"    (number->string-ordinal 951 'sv a-form?: #t))
  (test-equal "niohundrafemtioandra"     (number->string-ordinal 952 'sv a-form?: #t))
  (test-equal "niohundrafemtiotredje"    (number->string-ordinal 953 'sv a-form?: #t))
  (test-equal "niohundrafemtiofjärde"    (number->string-ordinal 954 'sv a-form?: #t))
  (test-equal "niohundrafemtiofemte"     (number->string-ordinal 955 'sv a-form?: #t))
  (test-equal "niohundrafemtiosjätte"    (number->string-ordinal 956 'sv a-form?: #t))
  (test-equal "niohundrafemtiosjunde"    (number->string-ordinal 957 'sv a-form?: #t))
  (test-equal "niohundrafemtioåttonde"   (number->string-ordinal 958 'sv a-form?: #t))
  (test-equal "niohundrafemtionionde"    (number->string-ordinal 959 'sv a-form?: #t))
  (test-equal "niohundrasextionde"       (number->string-ordinal 960 'sv a-form?: #t))
  (test-equal "niohundrasextioförsta"    (number->string-ordinal 961 'sv a-form?: #t))
  (test-equal "niohundrasextioandra"     (number->string-ordinal 962 'sv a-form?: #t))
  (test-equal "niohundrasextiotredje"    (number->string-ordinal 963 'sv a-form?: #t))
  (test-equal "niohundrasextiofjärde"    (number->string-ordinal 964 'sv a-form?: #t))
  (test-equal "niohundrasextiofemte"     (number->string-ordinal 965 'sv a-form?: #t))
  (test-equal "niohundrasextiosjätte"    (number->string-ordinal 966 'sv a-form?: #t))
  (test-equal "niohundrasextiosjunde"    (number->string-ordinal 967 'sv a-form?: #t))
  (test-equal "niohundrasextioåttonde"   (number->string-ordinal 968 'sv a-form?: #t))
  (test-equal "niohundrasextionionde"    (number->string-ordinal 969 'sv a-form?: #t))
  (test-equal "niohundrasjuttionde"      (number->string-ordinal 970 'sv a-form?: #t))
  (test-equal "niohundrasjuttioförsta"   (number->string-ordinal 971 'sv a-form?: #t))
  (test-equal "niohundrasjuttioandra"    (number->string-ordinal 972 'sv a-form?: #t))
  (test-equal "niohundrasjuttiotredje"   (number->string-ordinal 973 'sv a-form?: #t))
  (test-equal "niohundrasjuttiofjärde"   (number->string-ordinal 974 'sv a-form?: #t))
  (test-equal "niohundrasjuttiofemte"    (number->string-ordinal 975 'sv a-form?: #t))
  (test-equal "niohundrasjuttiosjätte"   (number->string-ordinal 976 'sv a-form?: #t))
  (test-equal "niohundrasjuttiosjunde"   (number->string-ordinal 977 'sv a-form?: #t))
  (test-equal "niohundrasjuttioåttonde"  (number->string-ordinal 978 'sv a-form?: #t))
  (test-equal "niohundrasjuttionionde"   (number->string-ordinal 979 'sv a-form?: #t))
  (test-equal "niohundraåttionde"        (number->string-ordinal 980 'sv a-form?: #t))
  (test-equal "niohundraåttioförsta"     (number->string-ordinal 981 'sv a-form?: #t))
  (test-equal "niohundraåttioandra"      (number->string-ordinal 982 'sv a-form?: #t))
  (test-equal "niohundraåttiotredje"     (number->string-ordinal 983 'sv a-form?: #t))
  (test-equal "niohundraåttiofjärde"     (number->string-ordinal 984 'sv a-form?: #t))
  (test-equal "niohundraåttiofemte"      (number->string-ordinal 985 'sv a-form?: #t))
  (test-equal "niohundraåttiosjätte"     (number->string-ordinal 986 'sv a-form?: #t))
  (test-equal "niohundraåttiosjunde"     (number->string-ordinal 987 'sv a-form?: #t))
  (test-equal "niohundraåttioåttonde"    (number->string-ordinal 988 'sv a-form?: #t))
  (test-equal "niohundraåttionionde"     (number->string-ordinal 989 'sv a-form?: #t))
  (test-equal "niohundranittionde"       (number->string-ordinal 990 'sv a-form?: #t))
  (test-equal "niohundranittioförsta"    (number->string-ordinal 991 'sv a-form?: #t))
  (test-equal "niohundranittioandra"     (number->string-ordinal 992 'sv a-form?: #t))
  (test-equal "niohundranittiotredje"    (number->string-ordinal 993 'sv a-form?: #t))
  (test-equal "niohundranittiofjärde"    (number->string-ordinal 994 'sv a-form?: #t))
  (test-equal "niohundranittiofemte"     (number->string-ordinal 995 'sv a-form?: #t))
  (test-equal "niohundranittiosjätte"    (number->string-ordinal 996 'sv a-form?: #t))
  (test-equal "niohundranittiosjunde"    (number->string-ordinal 997 'sv a-form?: #t))
  (test-equal "niohundranittioåttonde"   (number->string-ordinal 998 'sv a-form?: #t))
  (test-equal "niohundranittionionde"    (number->string-ordinal 999 'sv a-form?: #t))

  (test-equal "etttusende"                       (number->string-ordinal 1000 'sv a-form?: #t))
  (test-equal "ettusen första"                   (number->string-ordinal 1001 'sv a-form?: #t))
  (test-equal "ettusen andra"                    (number->string-ordinal 1002 'sv a-form?: #t))
  (test-equal "ettusen tredje"                   (number->string-ordinal 1003 'sv a-form?: #t))
  (test-equal "ettusen fjärde"                   (number->string-ordinal 1004 'sv a-form?: #t))
  (test-equal "ettusen femte"                    (number->string-ordinal 1005 'sv a-form?: #t))
  (test-equal "ettusen sjätte"                   (number->string-ordinal 1006 'sv a-form?: #t))
  (test-equal "ettusen sjunde"                   (number->string-ordinal 1007 'sv a-form?: #t))
  (test-equal "ettusen åttonde"                  (number->string-ordinal 1008 'sv a-form?: #t))
  (test-equal "ettusen nionde"                   (number->string-ordinal 1009 'sv a-form?: #t))
  (test-equal "ettusen tionde"                   (number->string-ordinal 1010 'sv a-form?: #t))
  (test-equal "ettusen etthundrade"              (number->string-ordinal 1100 'sv a-form?: #t))
  (test-equal "ettusen tvåhundrade"              (number->string-ordinal 1200 'sv a-form?: #t))
  (test-equal "ettusen trehundrade"              (number->string-ordinal 1300 'sv a-form?: #t))
  (test-equal "ettusen fyrahundrade"             (number->string-ordinal 1400 'sv a-form?: #t))
  (test-equal "ettusen femhundrade"              (number->string-ordinal 1500 'sv a-form?: #t))
  (test-equal "ettusen sexhundrade"              (number->string-ordinal 1600 'sv a-form?: #t))
  (test-equal "ettusen sjuhundrade"              (number->string-ordinal 1700 'sv a-form?: #t))
  (test-equal "ettusen åttahundrade"             (number->string-ordinal 1800 'sv a-form?: #t))
  (test-equal "ettusen niohundrade"              (number->string-ordinal 1900 'sv a-form?: #t))
  (test-equal "ettusen niohundraförsta"          (number->string-ordinal 1901 'sv a-form?: #t))
  (test-equal "ettusen niohundraandra"           (number->string-ordinal 1902 'sv a-form?: #t))
  (test-equal "ettusen niohundratredje"          (number->string-ordinal 1903 'sv a-form?: #t))
  (test-equal "ettusen niohundrafjärde"          (number->string-ordinal 1904 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemte"           (number->string-ordinal 1905 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjätte"          (number->string-ordinal 1906 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjunde"          (number->string-ordinal 1907 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttonde"         (number->string-ordinal 1908 'sv a-form?: #t))
  (test-equal "ettusen niohundranionde"          (number->string-ordinal 1909 'sv a-form?: #t))
  (test-equal "ettusen niohundrationde"          (number->string-ordinal 1910 'sv a-form?: #t))
  (test-equal "ettusen niohundraelfte"           (number->string-ordinal 1911 'sv a-form?: #t))
  (test-equal "ettusen niohundratolfte"          (number->string-ordinal 1912 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettonde"       (number->string-ordinal 1913 'sv a-form?: #t))
  (test-equal "ettusen niohundrafjortonde"       (number->string-ordinal 1914 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtonde"        (number->string-ordinal 1915 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextonde"        (number->string-ordinal 1916 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttonde"       (number->string-ordinal 1917 'sv a-form?: #t))
  (test-equal "ettusen niohundraartonde"         (number->string-ordinal 1918 'sv a-form?: #t))
  (test-equal "ettusen niohundranittonde"        (number->string-ordinal 1919 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugonde"        (number->string-ordinal 1920 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugoförsta"     (number->string-ordinal 1921 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugoandra"      (number->string-ordinal 1922 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugotredje"     (number->string-ordinal 1923 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugofjärde"     (number->string-ordinal 1924 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugofemte"      (number->string-ordinal 1925 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugosjätte"     (number->string-ordinal 1926 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugosjunde"     (number->string-ordinal 1927 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugoåttonde"    (number->string-ordinal 1928 'sv a-form?: #t))
  (test-equal "ettusen niohundratjugonionde"     (number->string-ordinal 1929 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettionde"      (number->string-ordinal 1930 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettioförsta"   (number->string-ordinal 1931 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettioandra"    (number->string-ordinal 1932 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettiotredje"   (number->string-ordinal 1933 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettiofjärde"   (number->string-ordinal 1934 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettiofemte"    (number->string-ordinal 1935 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettiosjätte"   (number->string-ordinal 1936 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettiosjunde"   (number->string-ordinal 1937 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettioåttonde"  (number->string-ordinal 1938 'sv a-form?: #t))
  (test-equal "ettusen niohundratrettionionde"   (number->string-ordinal 1939 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtionde"       (number->string-ordinal 1940 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtioförsta"    (number->string-ordinal 1941 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtioandra"     (number->string-ordinal 1942 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtiotredje"    (number->string-ordinal 1943 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtiofjärde"    (number->string-ordinal 1944 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtiofemte"     (number->string-ordinal 1945 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtiosjätte"    (number->string-ordinal 1946 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtiosjunde"    (number->string-ordinal 1947 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtioåttonde"   (number->string-ordinal 1948 'sv a-form?: #t))
  (test-equal "ettusen niohundrafyrtionionde"    (number->string-ordinal 1949 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtionde"       (number->string-ordinal 1950 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtioförsta"    (number->string-ordinal 1951 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtioandra"     (number->string-ordinal 1952 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtiotredje"    (number->string-ordinal 1953 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtiofjärde"    (number->string-ordinal 1954 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtiofemte"     (number->string-ordinal 1955 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtiosjätte"    (number->string-ordinal 1956 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtiosjunde"    (number->string-ordinal 1957 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtioåttonde"   (number->string-ordinal 1958 'sv a-form?: #t))
  (test-equal "ettusen niohundrafemtionionde"    (number->string-ordinal 1959 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextionde"       (number->string-ordinal 1960 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextioförsta"    (number->string-ordinal 1961 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextioandra"     (number->string-ordinal 1962 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextiotredje"    (number->string-ordinal 1963 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextiofjärde"    (number->string-ordinal 1964 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextiofemte"     (number->string-ordinal 1965 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextiosjätte"    (number->string-ordinal 1966 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextiosjunde"    (number->string-ordinal 1967 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextioåttonde"   (number->string-ordinal 1968 'sv a-form?: #t))
  (test-equal "ettusen niohundrasextionionde"    (number->string-ordinal 1969 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttionde"      (number->string-ordinal 1970 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttioförsta"   (number->string-ordinal 1971 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttioandra"    (number->string-ordinal 1972 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttiotredje"   (number->string-ordinal 1973 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttiofjärde"   (number->string-ordinal 1974 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttiofemte"    (number->string-ordinal 1975 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttiosjätte"   (number->string-ordinal 1976 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttiosjunde"   (number->string-ordinal 1977 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttioåttonde"  (number->string-ordinal 1978 'sv a-form?: #t))
  (test-equal "ettusen niohundrasjuttionionde"   (number->string-ordinal 1979 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttionde"        (number->string-ordinal 1980 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttioförsta"     (number->string-ordinal 1981 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttioandra"      (number->string-ordinal 1982 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttiotredje"     (number->string-ordinal 1983 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttiofjärde"     (number->string-ordinal 1984 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttiofemte"      (number->string-ordinal 1985 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttiosjätte"     (number->string-ordinal 1986 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttiosjunde"     (number->string-ordinal 1987 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttioåttonde"    (number->string-ordinal 1988 'sv a-form?: #t))
  (test-equal "ettusen niohundraåttionionde"     (number->string-ordinal 1989 'sv a-form?: #t))
  (test-equal "ettusen niohundranittionde"       (number->string-ordinal 1990 'sv a-form?: #t))
  (test-equal "ettusen niohundranittioförsta"    (number->string-ordinal 1991 'sv a-form?: #t))
  (test-equal "ettusen niohundranittioandra"     (number->string-ordinal 1992 'sv a-form?: #t))
  (test-equal "ettusen niohundranittiotredje"    (number->string-ordinal 1993 'sv a-form?: #t))
  (test-equal "ettusen niohundranittiofjärde"    (number->string-ordinal 1994 'sv a-form?: #t))
  (test-equal "ettusen niohundranittiofemte"     (number->string-ordinal 1995 'sv a-form?: #t))
  (test-equal "ettusen niohundranittiosjätte"    (number->string-ordinal 1996 'sv a-form?: #t))
  (test-equal "ettusen niohundranittiosjunde"    (number->string-ordinal 1997 'sv a-form?: #t))
  (test-equal "ettusen niohundranittioåttonde"   (number->string-ordinal 1998 'sv a-form?: #t))
  (test-equal "ettusen niohundranittionionde"    (number->string-ordinal 1999 'sv a-form?: #t))
  (test-equal "tvåtusende"                       (number->string-ordinal 2000 'sv a-form?: #t))
  (test-equal "tvåtusen första"                  (number->string-ordinal 2001 'sv a-form?: #t))
  (test-equal "tvåtusen andra"                   (number->string-ordinal 2002 'sv a-form?: #t))
  (test-equal "tvåtusen tredje"                  (number->string-ordinal 2003 'sv a-form?: #t))
  (test-equal "tvåtusen fjärde"                  (number->string-ordinal 2004 'sv a-form?: #t))
  (test-equal "tvåtusen femte"                   (number->string-ordinal 2005 'sv a-form?: #t))
  (test-equal "tvåtusen sjätte"                  (number->string-ordinal 2006 'sv a-form?: #t))
  (test-equal "tvåtusen sjunde"                  (number->string-ordinal 2007 'sv a-form?: #t))
  (test-equal "tvåtusen åttonde"                 (number->string-ordinal 2008 'sv a-form?: #t))
  (test-equal "tvåtusen nionde"                  (number->string-ordinal 2009 'sv a-form?: #t))
  (test-equal "tvåtusen tionde"                  (number->string-ordinal 2010 'sv a-form?: #t))
  (test-equal "tvåtusen elfte"                   (number->string-ordinal 2011 'sv a-form?: #t))
  (test-equal "tvåtusen tolfte"                  (number->string-ordinal 2012 'sv a-form?: #t))
  (test-equal "tvåtusen trettonde"               (number->string-ordinal 2013 'sv a-form?: #t))
  (test-equal "tvåtusen fjortonde"               (number->string-ordinal 2014 'sv a-form?: #t))
  (test-equal "tvåtusen femtonde"                (number->string-ordinal 2015 'sv a-form?: #t))
  (test-equal "tvåtusen sextonde"                (number->string-ordinal 2016 'sv a-form?: #t))
  (test-equal "tvåtusen sjuttonde"               (number->string-ordinal 2017 'sv a-form?: #t))
  (test-equal "tvåtusen artonde"                 (number->string-ordinal 2018 'sv a-form?: #t))
  (test-equal "tvåtusen nittonde"                (number->string-ordinal 2019 'sv a-form?: #t))
  (test-equal "tvåtusen tjugonde"                (number->string-ordinal 2020 'sv a-form?: #t))
  (test-equal "tvåtusen tjugoförsta"             (number->string-ordinal 2021 'sv a-form?: #t))
  (test-equal "tvåtusen tjugoandra"              (number->string-ordinal 2022 'sv a-form?: #t))
  (test-equal "tvåtusen tjugotredje"             (number->string-ordinal 2023 'sv a-form?: #t))
  (test-equal "tvåtusen tjugofjärde"             (number->string-ordinal 2024 'sv a-form?: #t))
  (test-equal "tvåtusen tjugofemte"              (number->string-ordinal 2025 'sv a-form?: #t))
  (test-equal "tvåtusen tjugosjätte"             (number->string-ordinal 2026 'sv a-form?: #t))
  (test-equal "tvåtusen tjugosjunde"             (number->string-ordinal 2027 'sv a-form?: #t))
  (test-equal "tvåtusen tjugoåttonde"            (number->string-ordinal 2028 'sv a-form?: #t))
  (test-equal "tvåtusen tjugonionde"             (number->string-ordinal 2029 'sv a-form?: #t))
  (test-equal "tvåtusen trettionde"              (number->string-ordinal 2030 'sv a-form?: #t))
  (test-equal "tvåtusen trettioförsta"           (number->string-ordinal 2031 'sv a-form?: #t))
  (test-equal "tvåtusen trettioandra"            (number->string-ordinal 2032 'sv a-form?: #t))
  (test-equal "tvåtusen trettiotredje"           (number->string-ordinal 2033 'sv a-form?: #t))
  (test-equal "tvåtusen trettiofjärde"           (number->string-ordinal 2034 'sv a-form?: #t))
  (test-equal "tvåtusen trettiofemte"            (number->string-ordinal 2035 'sv a-form?: #t))
  (test-equal "tvåtusen trettiosjätte"           (number->string-ordinal 2036 'sv a-form?: #t))
  (test-equal "tvåtusen trettiosjunde"           (number->string-ordinal 2037 'sv a-form?: #t))
  (test-equal "tvåtusen trettioåttonde"          (number->string-ordinal 2038 'sv a-form?: #t))
  (test-equal "tvåtusen trettionionde"           (number->string-ordinal 2039 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtionde"               (number->string-ordinal 2040 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtioförsta"            (number->string-ordinal 2041 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtioandra"             (number->string-ordinal 2042 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtiotredje"            (number->string-ordinal 2043 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtiofjärde"            (number->string-ordinal 2044 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtiofemte"             (number->string-ordinal 2045 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtiosjätte"            (number->string-ordinal 2046 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtiosjunde"            (number->string-ordinal 2047 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtioåttonde"           (number->string-ordinal 2048 'sv a-form?: #t))
  (test-equal "tvåtusen fyrtionionde"            (number->string-ordinal 2049 'sv a-form?: #t))
  (test-equal "tvåtusen femtionde"               (number->string-ordinal 2050 'sv a-form?: #t))
  (test-equal "tvåtusen femtioförsta"            (number->string-ordinal 2051 'sv a-form?: #t))
  (test-equal "tvåtusen femtioandra"             (number->string-ordinal 2052 'sv a-form?: #t))
  (test-equal "tvåtusen femtiotredje"            (number->string-ordinal 2053 'sv a-form?: #t))
  (test-equal "tretusende"                       (number->string-ordinal 3000 'sv a-form?: #t))
  (test-equal "fyratusende"                      (number->string-ordinal 4000 'sv a-form?: #t))
  (test-equal "femtusende"                       (number->string-ordinal 5000 'sv a-form?: #t))
  (test-equal "sextusende"                       (number->string-ordinal 6000 'sv a-form?: #t))
  (test-equal "sjutusende"                       (number->string-ordinal 7000 'sv a-form?: #t))
  (test-equal "åttatusende"                      (number->string-ordinal 8000 'sv a-form?: #t))
  (test-equal "niotusende"                       (number->string-ordinal 9000 'sv a-form?: #t))
  (test-equal "niotusen åttahundrasjuttiosjätte" (number->string-ordinal 9876 'sv a-form?: #t))

  (test-equal "tiotusende"     (number->string-ordinal 10000 'sv a-form?: #t))
  (test-equal "tjugotusende"   (number->string-ordinal 20000 'sv a-form?: #t))
  (test-equal "trettiotusende" (number->string-ordinal 30000 'sv a-form?: #t))
  (test-equal "fyrtiotusende"  (number->string-ordinal 40000 'sv a-form?: #t))
  (test-equal "femtiotusende"  (number->string-ordinal 50000 'sv a-form?: #t))
  (test-equal "sextiotusende"  (number->string-ordinal 60000 'sv a-form?: #t))
  (test-equal "sjuttiotusende" (number->string-ordinal 70000 'sv a-form?: #t))
  (test-equal "åttiotusende"   (number->string-ordinal 80000 'sv a-form?: #t))
  (test-equal "nittiotusende"  (number->string-ordinal 90000 'sv a-form?: #t))
  (test-equal "nittioåttatusen sjuhundrasextiofemte" (number->string-ordinal 98765 'sv a-form?: #t))

  (test-equal "etthundratusende"  (number->string-ordinal 100000 'sv a-form?: #t))
  (test-equal "tvåhundratusende"  (number->string-ordinal 200000 'sv a-form?: #t))
  (test-equal "trehundratusende"  (number->string-ordinal 300000 'sv a-form?: #t))
  (test-equal "fyrahundratusende" (number->string-ordinal 400000 'sv a-form?: #t))
  (test-equal "femhundratusende"  (number->string-ordinal 500000 'sv a-form?: #t))
  (test-equal "sexhundratusende"  (number->string-ordinal 600000 'sv a-form?: #t))
  (test-equal "sjuhundratusende"  (number->string-ordinal 700000 'sv a-form?: #t))
  (test-equal "åttahundratusende" (number->string-ordinal 800000 'sv a-form?: #t))
  (test-equal "niohundratusende"  (number->string-ordinal 900000 'sv a-form?: #t))
  (test-equal "niohundraåttiosjutusen sexhundrafemtiofjärde" (number->string-ordinal 987654 'sv a-form?: #t))

  (test-equal "miljonte"      (number->string-ordinal 1000000 'sv a-form?: #t))
  (test-equal "två miljonte"  (number->string-ordinal 2000000 'sv a-form?: #t))
  (test-equal "tre miljonte"  (number->string-ordinal 3000000 'sv a-form?: #t))
  (test-equal "fyra miljonte" (number->string-ordinal 4000000 'sv a-form?: #t))
  (test-equal "fem miljonte"  (number->string-ordinal 5000000 'sv a-form?: #t))
  (test-equal "sex miljonte"  (number->string-ordinal 6000000 'sv a-form?: #t))
  (test-equal "sju miljonte"  (number->string-ordinal 7000000 'sv a-form?: #t))
  (test-equal "åtta miljonte" (number->string-ordinal 8000000 'sv a-form?: #t))
  (test-equal "nio miljonte"  (number->string-ordinal 9000000 'sv a-form?: #t))
  (test-equal "nio miljoner åttahundrasjuttiosex tusen femhundrafyrtiotredje" (number->string-ordinal 9876543 'sv a-form?: #t))

  (test-equal "tio miljonte"       (number->string-ordinal 10000000 'sv a-form?: #t))
  (test-equal "etthundra miljonte" (number->string-ordinal 100000000 'sv a-form?: #t))
  (test-equal "niohundraåttiosju miljoner sexhundrafemtiofyra tusen trehundratjugoförsta" (number->string-ordinal 987654321 'sv a-form?: #t))
  (test-equal "miljarde"           (number->string-ordinal 1000000000 'sv a-form?: #t))
  (test-equal "biljonte"           (number->string-ordinal 1000000000000 'sv a-form?: #t))
  (test-equal "etthundra deciljarde" (number->string-ordinal #e1e65 'sv a-form?: #t))
 (test-equal "etthundra deciljarde" (number->string-ordinal #e1e66 'sv a-form?: #t))
  )



;;; Bråktal – Fractional numbers

;;; 1/2	en halv
;;; 1 1/2	en och en halv
;;; 2 1/2	två och en halv
;;; 	 
;;; 1/3	en tredjedel
;;; 2/3	två tredjedelar
;;; 	 
;;; 1/4	en fjärdedel
;;; 2/4	två fjärdedelar
;;; 3/4	tre fjärdedelar
;;; 	 
;;; 1/5	en femtedel
;;; 4 3/5	fyra och tre femtedelar
;;; 	 
;;; 1/6	en sjättedel
;;; 1/7	en sjundedel
;;; 1/8	en åttondel
;;; 1/9	en niondel
;;; 1/10	en tiondel
;;; 1/11	en elftedel
;;; 1/12	en tolftedel
;;; 1/13	en trettondedel
;;; 1/14	en fjortondedel
;;; 1/15	en femtondedel
;;; 1/16	en sextondedel
;;; 1/17	en sjuttondedel
;;; 1/18	en artondedel
;;; 1/19	en nittondedel
;;; 1/20	en tjugondedel
;;; 1/30	en trettiondedel
;;; 1/40	en fyrtiondedel
;;; 1/50	en femtiondedel
;;; 1/60	en sextiondedel
;;; 1/70	en sjuttiondedel
;;; 1/80	en åttiondedel
;;; 1/90	en nittiondedel
;;; 1/100	en hundradel
;;; 1/1 000	en tusendel
;;; 1/10 000	en tiotusendel
;;; 1/100 000	en hundratusendel
;;; 1/1 000 000	en miljondel
;;; 1/1 000 000 000	en miljarddel
;;; 10-12	en biljondel
;;; 10-15	en biljarddel
;;; 10-18	en triljondel
;;; 10-21	en triljarddel
;;; 10-24	en kvadriljondel
;;; 10-27	en kvadriljarddel
;;; 10-30	en kvintiljondel

'((text numbers)
  (text numbers sv))