diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-01 00:31:33 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
| commit | 5da91e2c4390db35e260d2b82768185b82d9b481 (patch) | |
| tree | 1fda0b47fe9389a9f91aa4a15e692c2a334609f3 | |
| parent | Forward extra kw args to number->string-{ordinal,cardinal}. (diff) | |
| download | calp-5da91e2c4390db35e260d2b82768185b82d9b481.tar.gz calp-5da91e2c4390db35e260d2b82768185b82d9b481.tar.xz | |
Add test suite for swedish numbers.
This test is gigantic, and takes way to long to run. Preferably disable
it during regular operations, and instead write a simpler one which
simply fulfills the coverage.
| -rw-r--r-- | tests/unit/text/numbers-sv.scm | 2524 |
1 files changed, 2524 insertions, 0 deletions
diff --git a/tests/unit/text/numbers-sv.scm b/tests/unit/text/numbers-sv.scm new file mode 100644 index 00000000..31048ba1 --- /dev/null +++ b/tests/unit/text/numbers-sv.scm @@ -0,0 +1,2524 @@ +;;; 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 #e10e15 'sv)) + (test-equal "en triljon" (number->string-cardinal #e10e18 'sv)) + (test-equal "en triljard" (number->string-cardinal #e10e21 'sv)) + (test-equal "en kvadriljon" (number->string-cardinal #e10e24 'sv)) + (test-equal "en kvadriljard" (number->string-cardinal #e10e27 'sv)) + (test-equal "en kvintiljon" (number->string-cardinal #e10e30 '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 hundrade" (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))) + + + +;;; 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)) |