root/qd-const.lisp @ 405df618a38d3b8ddaae691f865bbf068e931ac5

Revision 405df618a38d3b8ddaae691f865bbf068e931ac5, 202.8 KB (checked in by Raymond Toy <toy.raymond@…>, 2 years ago)

Add Euler's constant and fix dependencies.

oct.asd:
o qd-const2 depends on qd-const.

qd-const.lisp:
o Add qd value for Euler's constant

qd-const2.lisp:
o Add qd-real value for Euler's constant.

  • Property mode set to 100644
Line 
1;;;; -*- Mode: lisp -*-
2;;;;
3;;;; Copyright (c) 2007, 2008, 2011 Raymond Toy
4;;;;
5;;;; Permission is hereby granted, free of charge, to any person
6;;;; obtaining a copy of this software and associated documentation
7;;;; files (the "Software"), to deal in the Software without
8;;;; restriction, including without limitation the rights to use,
9;;;; copy, modify, merge, publish, distribute, sublicense, and/or sell
10;;;; copies of the Software, and to permit persons to whom the
11;;;; Software is furnished to do so, subject to the following
12;;;; conditions:
13;;;;
14;;;; The above copyright notice and this permission notice shall be
15;;;; included in all copies or substantial portions of the Software.
16;;;;
17;;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
18;;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
19;;;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20;;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
21;;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
22;;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
23;;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
24;;;; OTHER DEALINGS IN THE SOFTWARE.
25
26(in-package #:octi)
27
28(defconstant +qd-zero+
29  (make-qd-d 0d0)
30  "%QUAD-DOUBLE representation of 0")
31
32(defconstant +qd-one+
33  (make-qd-d 1d0)
34  "%QUAD-DOUBLE representation of 1")
35
36;; The bits of 2/pi. Scale these bits by 2^(-1584) and you'll get
37;; 2/pi.  These are used for accurate argument reduction for the trig
38;; functions.
39(defconstant +2/pi-bits+
40  #xA2F9836E4E441529FC2757D1F534DDC0DB6295993C439041FE5163ABDEBBC561B7246E3A424DD2E006492EEA09D1921CFE1DEB1CB129A73EE88235F52EBB4484E99C7026B45F7E413991D639835339F49C845F8BBDF9283B1FF897FFDE05980FEF2F118B5A0A6D1F6D367ECF27CB09B74F463F669E5FEA2D7527BAC7EBE5F17B3D0739F78A5292EA6BFB5FB11F8D5D0856033046FC7B6BABF0CFBC209AF4361DA9E391615EE61B086599855F14A068408DFFD8804D73273106061556CA73A8C960E27BC08C6B)
41
42;;   3.1415926535897932384626433832795028841971693993751058209749445923078L0
43;; #q3.1415926535897932384626433832795028841971693993751058209749445923q0
44(defconstant +qd-pi+
45  (multiple-value-bind (q0 q1 q2 q3)
46      (renorm-5 (scale-float (float 7074237752028440 1.0d0) -51)
47                (scale-float (float 4967757600021511 1.0d0) -105)
48                (scale-float (float -8753721960665020 1.0d0) -161)
49                (scale-float (float 5857755168774013 1.0d0) -215)
50                (scale-float (float 5380502254059520 1.0d0) -269))
51    (%make-qd-d q0 q1 q2 q3))
52  "%QUAD-DOUBLE representation of pi")
53
54;;   6.2831853071795864769252867665590057683943387987502116419498891846156328125724L0
55;; #q6.2831853071795864769252867665590057683943387987502116419498891846q0
56(defconstant +qd-2pi+
57  (multiple-value-bind (q0 q1 q2 q3)
58      (renorm-5 (scale-float (float 7074237752028440 1.0d0) -50)
59                (scale-float (float 4967757600021511 1.0d0) -104)
60                (scale-float (float -8753721960665020 1.0d0) -160)
61                (scale-float (float 5857755168774013 1.0d0) -214)
62                (scale-float (float 5380502254059520 1.0d0) -268))
63    (%make-qd-d q0 q1 q2 q3))
64  "%QUAD-DOUBLE representation of 2*pi")
65
66;;   1.5707963267948966192313216916397514420985846996875529104874722961539082031431L0
67;; #q1.57079632679489661923132169163975144209858469968755291048747229615q0
68(defconstant +qd-pi/2+
69  (multiple-value-bind (q0 q1 q2 q3)
70      (renorm-5 (scale-float (float 7074237752028440 1.0d0) -52)
71                (scale-float (float 4967757600021511 1.0d0) -106)
72                (scale-float (float -8753721960665020 1.0d0) -162)
73                (scale-float (float 5857755168774013 1.0d0) -216)
74                (scale-float (float 5380502254059520 1.0d0) -270))
75    (%make-qd-d q0 q1 q2 q3))
76  "%QUAD-DOUBLE representation of pi/2")
77
78;;   0.78539816339744830961566084581987572104929234984377645524373614807695410157155L0
79;; #q0.785398163397448309615660845819875721049292349843776455243736148076q0
80(defconstant +qd-pi/4+
81  (multiple-value-bind (q0 q1 q2 q3)
82      (renorm-5 (scale-float (float 7074237752028440 1.0d0) -53)
83                (scale-float (float 4967757600021511 1.0d0) -107)
84                (scale-float (float -8753721960665020 1.0d0) -163)
85                (scale-float (float 5857755168774013 1.0d0) -217)
86                (scale-float (float 5380502254059520 1.0d0) -271))
87    (%make-qd-d q0 q1 q2 q3))
88  "%QUAD-DOUBLE representation of pi/4")
89
90;;   2.35619449019234492884698253745962716314787704953132936573120844423086230471467L0
91;; #q2.35619449019234492884698253745962716314787704953132936573120844423q0
92(defconstant +qd-3pi/4+
93  (multiple-value-bind (q0 q1 q2 q3)
94      (renorm-5 (scale-float (float 5305678314021330 1.0d0) -51)
95                (scale-float (float 7451636400032266 1.0d0) -106)
96                (scale-float (float 5724553519491610 1.0d0) -160)
97                (scale-float (float -6810541066450737 1.0d0) -214)
98                (scale-float (float -7491566988951552 1.0d0) -273))
99    (%make-qd-d q0 q1 q2 q3))
100  "%QUAD-DOUBLE representation of 3*pi/4")
101
102;;   0.00306796157577128245943617517898388953534879824157725177829584432842560195926387L0
103;; #q0.00306796157577128245943617517898388953534879824157725177829584432842q0
104(defconstant +qd-pi/1024+
105  (multiple-value-bind (q0 q1 q2 q3)
106      (renorm-5 (scale-float (float 7074237752028440 1.0d0) -61)
107                (scale-float (float 4967757600021511 1.0d0) -115)
108                (scale-float (float -8753721960665020 1.0d0) -171)
109                (scale-float (float 5857755168774013 1.0d0) -225)
110                (scale-float (float 5380502254059520 1.0d0) -279))
111    (%make-qd-d q0 q1 q2 q3)))
112
113;;   2.71828182845904523536028747135266249775724709369995957496696762772407663035355L0
114;; #q2.71828182845904523536028747135266249775724709369995957496696762773q0
115(defconstant +qd-e+
116  (multiple-value-bind (q0 q1 q2 q3)
117      (renorm-5 (scale-float (float 6121026514868073 1.0d0) -51)
118                (scale-float (float 5864240480059706 1.0d0) -105)
119                (scale-float (float -6219324074349538 1.0d0) -161)
120                (scale-float (float 7980724272743021 1.0d0) -215)
121                (scale-float (float -8855251465666560 1.0d0) -269))
122    (%make-qd-d q0 q1 q2 q3)))
123
124;;   0.693147180559945309417232121458176568075500134360255254120680009493393621969696L0
125;; #q0.693147180559945309417232121458176568075500134360255254120680009495q0
126(defconstant +qd-log2+
127  #+nil
128  (make-qd-d 6.931471805599452862d-01
129             2.319046813846299558d-17
130             5.707708438416212066d-34
131             -3.582432210601811423d-50)
132  (%make-qd-d (scale-float (float 6243314768165359 1.0d0) -53)
133              (scale-float (float 7525737178955839 1.0d0) -108)
134              (scale-float (float 6673460182522164 1.0d0) -163)
135              (scale-float (float -7545482916914641 1.0d0) -217))
136  "%QUAD-DOUBLE representation of log(2) (natural log)")
137
138;; The rest of log(2) such that (+ +qd-log2+ +qd-log2-extra+) is
139;; log(2) to twice the precision of a quad-double.
140(defconstant +qd-log2-extra+
141  (%make-qd-d (scale-float (float -5130503840205860 1.0d0) -271)
142              (scale-float (float 8312425932334613 1.0d0) -326)
143              (scale-float (float 7130537800999345 1.0d0) -380)
144              (scale-float (float 8345111905183492 1.0d0) -437)))
145
146;; Log(10)
147;;   2.30258509299404568401799145468436420760110148862877297603332790096757260967737L0
148;; #q2.30258509299404568401799145468436420760110148862877297603332790095q0
149(defconstant +qd-log10+
150  (multiple-value-bind (q0 q1 q2 q3)
151      (renorm-5 (scale-float (float 5184960683398422 1.0d0) -51)
152                (scale-float (float -8805633374462953 1.0d0) -105)
153                (scale-float (float -7296007962371596 1.0d0) -159)
154                (scale-float (float -5296362421624049 1.0d0) -213)
155                (scale-float (float 4574234754834432 1.0d0) -267))
156    (%make-qd-d q0 q1 q2 q3)))
157
158(defconstant +qd-eps+
159  (scale-float 1d0 -209))
160
161(defconstant +qd-sin-table+
162  (make-array 256 :initial-contents
163              (list
164               #.(multiple-value-bind (q0 q1 q2 q3)
165                     (renorm-5 (scale-float (float 7074226654454970 1.0d0) -61)
166                               (scale-float (float 5271335698347442 1.0d0) -115)
167                               (scale-float (float 7913822574154586 1.0d0) -170)
168                               (scale-float (float -4804352564403217 1.0d0) -224)
169                               (scale-float (float 6064389487591424 1.0d0) -278))
170                   (%make-qd-d q0 q1 q2 q3))
171               #.(multiple-value-bind (q0 q1 q2 q3)
172                     (renorm-5 (scale-float (float 7074193361797233 1.0d0) -60)
173                               (scale-float (float 7522205695703707 1.0d0) -116)
174                               (scale-float (float 7787047147324868 1.0d0) -175)
175                               (scale-float (float -6728650631839117 1.0d0) -232)
176                               (scale-float (float 5184626653921280 1.0d0) -286))
177                   (%make-qd-d q0 q1 q2 q3))
178               #.(multiple-value-bind (q0 q1 q2 q3)
179                     (renorm-5 (scale-float (float 5305603405682435 1.0d0) -59)
180                               (scale-float (float -5041342953893321 1.0d0) -115)
181                               (scale-float (float 8335474310793984 1.0d0) -170)
182                               (scale-float (float 6743025479788607 1.0d0) -225)
183                               (scale-float (float -6023389004300288 1.0d0) -279))
184                   (%make-qd-d q0 q1 q2 q3))
185               #.(multiple-value-bind (q0 q1 q2 q3)
186                     (renorm-5 (scale-float (float 7074060192106372 1.0d0) -59)
187                               (scale-float (float 7185921569156509 1.0d0) -113)
188                               (scale-float (float -6016799991653399 1.0d0) -170)
189                               (scale-float (float -5577663458559350 1.0d0) -224)
190                               (scale-float (float -7969393573560320 1.0d0) -278))
191                   (%make-qd-d q0 q1 q2 q3))
192               #.(multiple-value-bind (q0 q1 q2 q3)
193                     (renorm-5 (scale-float (float 8842450394781643 1.0d0) -59)
194                               (scale-float (float -8771095658131507 1.0d0) -113)
195                               (scale-float (float 8705573170983202 1.0d0) -167)
196                               (scale-float (float -4692271881407162 1.0d0) -221)
197                               (scale-float (float 8141919777882112 1.0d0) -275))
198                   (%make-qd-d q0 q1 q2 q3))
199               #.(multiple-value-bind (q0 q1 q2 q3)
200                     (renorm-5 (scale-float (float 5305378684473085 1.0d0) -58)
201                               (scale-float (float 7704904742673764 1.0d0) -113)
202                               (scale-float (float 7308626221243388 1.0d0) -167)
203                               (scale-float (float 4905810005485122 1.0d0) -223)
204                               (scale-float (float -5326632406941696 1.0d0) -277))
205                   (%make-qd-d q0 q1 q2 q3))
206               #.(multiple-value-bind (q0 q1 q2 q3)
207                     (renorm-5 (scale-float (float 6189482235310630 1.0d0) -58)
208                               (scale-float (float -4715432182777116 1.0d0) -113)
209                               (scale-float (float -8243063834437948 1.0d0) -168)
210                               (scale-float (float 8566398131092182 1.0d0) -222)
211                               (scale-float (float -6086611201163264 1.0d0) -277))
212                   (%make-qd-d q0 q1 q2 q3))
213               #.(multiple-value-bind (q0 q1 q2 q3)
214                     (renorm-5 (scale-float (float 7073527528384126 1.0d0) -58)
215                               (scale-float (float -7632135562854704 1.0d0) -116)
216                               (scale-float (float 7289253486557291 1.0d0) -170)
217                               (scale-float (float -7590289326531904 1.0d0) -224)
218                               (scale-float (float 7722148853710848 1.0d0) -279))
219                   (%make-qd-d q0 q1 q2 q3))
220               #.(multiple-value-bind (q0 q1 q2 q3)
221                     (renorm-5 (scale-float (float 7957506242722589 1.0d0) -58)
222                               (scale-float (float -8272553670927212 1.0d0) -112)
223                               (scale-float (float -6591995918745221 1.0d0) -166)
224                               (scale-float (float -4636857096009409 1.0d0) -220)
225                               (scale-float (float 7183488739295232 1.0d0) -275))
226                   (%make-qd-d q0 q1 q2 q3))
227               #.(multiple-value-bind (q0 q1 q2 q3)
228                     (renorm-5 (scale-float (float 8841410057981697 1.0d0) -58)
229                               (scale-float (float -5627969559234247 1.0d0) -118)
230                               (scale-float (float 6018105389463175 1.0d0) -172)
231                               (scale-float (float 7544891264015395 1.0d0) -230)
232                               (scale-float (float 6209179752595456 1.0d0) -284))
233                   (%make-qd-d q0 q1 q2 q3))
234               #.(multiple-value-bind (q0 q1 q2 q3)
235                     (renorm-5 (scale-float (float 4862615327261055 1.0d0) -57)
236                               (scale-float (float -5217239170857332 1.0d0) -111)
237                               (scale-float (float -6336246586437174 1.0d0) -165)
238                               (scale-float (float 5522987872330073 1.0d0) -219)
239                               (scale-float (float -5649337847988224 1.0d0) -273))
240                   (%make-qd-d q0 q1 q2 q3))
241               #.(multiple-value-bind (q0 q1 q2 q3)
242                     (renorm-5 (scale-float (float 5304479856743885 1.0d0) -57)
243                               (scale-float (float 6340842145528512 1.0d0) -113)
244                               (scale-float (float -7566831660699656 1.0d0) -167)
245                               (scale-float (float -7114412056121165 1.0d0) -221)
246                               (scale-float (float -8974201406881792 1.0d0) -279))
247                   (%make-qd-d q0 q1 q2 q3))
248               #.(multiple-value-bind (q0 q1 q2 q3)
249                     (renorm-5 (scale-float (float 5746294458442105 1.0d0) -57)
250                               (scale-float (float 4845186982751657 1.0d0) -113)
251                               (scale-float (float 6382779118838290 1.0d0) -167)
252                               (scale-float (float 8090523197847278 1.0d0) -221)
253                               (scale-float (float 6384881576181760 1.0d0) -276))
254                   (%make-qd-d q0 q1 q2 q3))
255               #.(multiple-value-bind (q0 q1 q2 q3)
256                     (renorm-5 (scale-float (float 6188054973828419 1.0d0) -57)
257                               (scale-float (float 7360584602593505 1.0d0) -111)
258                               (scale-float (float 7946504576809704 1.0d0) -165)
259                               (scale-float (float 5731224328660037 1.0d0) -219)
260                               (scale-float (float 6575748996808704 1.0d0) -273))
261                   (%make-qd-d q0 q1 q2 q3))
262               #.(multiple-value-bind (q0 q1 q2 q3)
263                     (renorm-5 (scale-float (float 6629757244884614 1.0d0) -57)
264                               (scale-float (float -5806448969106076 1.0d0) -112)
265                               (scale-float (float 7037190739826080 1.0d0) -166)
266                               (scale-float (float 5552037724818900 1.0d0) -223)
267                               (scale-float (float 6596791471308800 1.0d0) -277))
268                   (%make-qd-d q0 q1 q2 q3))
269               #.(multiple-value-bind (q0 q1 q2 q3)
270                     (renorm-5 (scale-float (float 7071397114140692 1.0d0) -57)
271                               (scale-float (float -7057477599664784 1.0d0) -113)
272                               (scale-float (float -8290828586102809 1.0d0) -167)
273                               (scale-float (float -6697971486035361 1.0d0) -222)
274                               (scale-float (float -7883618700230656 1.0d0) -277))
275                   (%make-qd-d q0 q1 q2 q3))
276               #.(multiple-value-bind (q0 q1 q2 q3)
277                     (renorm-5 (scale-float (float 7512970424714007 1.0d0) -57)
278                               (scale-float (float -6294023145184360 1.0d0) -111)
279                               (scale-float (float -6395720725273163 1.0d0) -165)
280                               (scale-float (float -7071774105018818 1.0d0) -219)
281                               (scale-float (float -5298326162341888 1.0d0) -274))
282                   (%make-qd-d q0 q1 q2 q3))
283               #.(multiple-value-bind (q0 q1 q2 q3)
284                     (renorm-5 (scale-float (float 7954473020348387 1.0d0) -57)
285                               (scale-float (float -6926679705961747 1.0d0) -112)
286                               (scale-float (float -6427721451859560 1.0d0) -167)
287                               (scale-float (float 8028310015339695 1.0d0) -222)
288                               (scale-float (float 6198625664499712 1.0d0) -277))
289                   (%make-qd-d q0 q1 q2 q3))
290               #.(multiple-value-bind (q0 q1 q2 q3)
291                     (renorm-5 (scale-float (float 8395900745453257 1.0d0) -57)
292                               (scale-float (float 4839201044457661 1.0d0) -114)
293                               (scale-float (float 5799570435052711 1.0d0) -171)
294                               (scale-float (float -5529353034270453 1.0d0) -226)
295                               (scale-float (float 6823048531410944 1.0d0) -280))
296                   (%make-qd-d q0 q1 q2 q3))
297               #.(multiple-value-bind (q0 q1 q2 q3)
298                     (renorm-5 (scale-float (float 8837249445142752 1.0d0) -57)
299                               (scale-float (float -5314952832401406 1.0d0) -113)
300                               (scale-float (float -7992910057771694 1.0d0) -167)
301                               (scale-float (float 8886165424019995 1.0d0) -221)
302                               (scale-float (float 8017893964447744 1.0d0) -276))
303                   (%make-qd-d q0 q1 q2 q3))
304               #.(multiple-value-bind (q0 q1 q2 q3)
305                     (renorm-5 (scale-float (float 4639257482637412 1.0d0) -56)
306                               (scale-float (float -5494228531443205 1.0d0) -110)
307                               (scale-float (float 6222043711193090 1.0d0) -167)
308                               (scale-float (float 4966112393074763 1.0d0) -221)
309                               (scale-float (float 6647651906093056 1.0d0) -275))
310                   (%make-qd-d q0 q1 q2 q3))
311               #.(multiple-value-bind (q0 q1 q2 q3)
312                     (renorm-5 (scale-float (float 4859846576245171 1.0d0) -56)
313                               (scale-float (float -8985502920124077 1.0d0) -110)
314                               (scale-float (float 7440463379940699 1.0d0) -165)
315                               (scale-float (float -6641325637598524 1.0d0) -219)
316                               (scale-float (float -5163628344082432 1.0d0) -273))
317                   (%make-qd-d q0 q1 q2 q3))
318               #.(multiple-value-bind (q0 q1 q2 q3)
319                     (renorm-5 (scale-float (float 5080389927126093 1.0d0) -56)
320                               (scale-float (float -8898661047761268 1.0d0) -110)
321                               (scale-float (float -4667727006484474 1.0d0) -164)
322                               (scale-float (float 8478536563323652 1.0d0) -218)
323                               (scale-float (float 8774483460931584 1.0d0) -273))
324                   (%make-qd-d q0 q1 q2 q3))
325               #.(multiple-value-bind (q0 q1 q2 q3)
326                     (renorm-5 (scale-float (float 5300885459442166 1.0d0) -56)
327                               (scale-float (float -7213383224879916 1.0d0) -111)
328                               (scale-float (float -8534269322822802 1.0d0) -166)
329                               (scale-float (float -6601733372219099 1.0d0) -221)
330                               (scale-float (float 8396826690453504 1.0d0) -278))
331                   (%make-qd-d q0 q1 q2 q3))
332               #.(multiple-value-bind (q0 q1 q2 q3)
333                     (renorm-5 (scale-float (float 5521331097805465 1.0d0) -56)
334                               (scale-float (float 4829604598179156 1.0d0) -114)
335                               (scale-float (float -7893599535446481 1.0d0) -172)
336                               (scale-float (float -5384211130874634 1.0d0) -226)
337                               (scale-float (float -5250039492378624 1.0d0) -282))
338                   (%make-qd-d q0 q1 q2 q3))
339               #.(multiple-value-bind (q0 q1 q2 q3)
340                     (renorm-5 (scale-float (float 5741724767297686 1.0d0) -56)
341                               (scale-float (float -5824155811343436 1.0d0) -110)
342                               (scale-float (float 6673985610265747 1.0d0) -164)
343                               (scale-float (float 4800782739249759 1.0d0) -220)
344                               (scale-float (float 7109827096051712 1.0d0) -274))
345                   (%make-qd-d q0 q1 q2 q3))
346               #.(multiple-value-bind (q0 q1 q2 q3)
347                     (renorm-5 (scale-float (float 5962064393489674 1.0d0) -56)
348                               (scale-float (float 7651360099479755 1.0d0) -112)
349                               (scale-float (float 6974817744235260 1.0d0) -167)
350                               (scale-float (float 7824970858345265 1.0d0) -224)
351                               (scale-float (float -7627319001219072 1.0d0) -278))
352                   (%make-qd-d q0 q1 q2 q3))
353               #.(multiple-value-bind (q0 q1 q2 q3)
354                     (renorm-5 (scale-float (float 6182347902460953 1.0d0) -56)
355                               (scale-float (float -8796242544913562 1.0d0) -111)
356                               (scale-float (float -7546272905440146 1.0d0) -165)
357                               (scale-float (float 6512061516709508 1.0d0) -219)
358                               (scale-float (float 5909873078861824 1.0d0) -273))
359                   (%make-qd-d q0 q1 q2 q3))
360               #.(multiple-value-bind (q0 q1 q2 q3)
361                     (renorm-5 (scale-float (float 6402573220819241 1.0d0) -56)
362                               (scale-float (float -4868008820827392 1.0d0) -110)
363                               (scale-float (float 8779206749884591 1.0d0) -164)
364                               (scale-float (float -8648470131210884 1.0d0) -218)
365                               (scale-float (float -7064277529821184 1.0d0) -273))
366                   (%make-qd-d q0 q1 q2 q3))
367               #.(multiple-value-bind (q0 q1 q2 q3)
368                     (renorm-5 (scale-float (float 6622738275719969 1.0d0) -56)
369                               (scale-float (float 6182934508221337 1.0d0) -110)
370                               (scale-float (float 7353282250945404 1.0d0) -165)
371                               (scale-float (float -8166192353391047 1.0d0) -220)
372                               (scale-float (float -8567002520092672 1.0d0) -277))
373                   (%make-qd-d q0 q1 q2 q3))
374               #.(multiple-value-bind (q0 q1 q2 q3)
375                     (renorm-5 (scale-float (float 6842840994885793 1.0d0) -56)
376                               (scale-float (float -8552477024466766 1.0d0) -110)
377                               (scale-float (float -4997427595980002 1.0d0) -164)
378                               (scale-float (float 5821398332046138 1.0d0) -218)
379                               (scale-float (float 6922342312886272 1.0d0) -273))
380                   (%make-qd-d q0 q1 q2 q3))
381               #.(multiple-value-bind (q0 q1 q2 q3)
382                     (renorm-5 (scale-float (float 7062879306626092 1.0d0) -56)
383                               (scale-float (float -8487236864497288 1.0d0) -112)
384                               (scale-float (float -4942162982072151 1.0d0) -168)
385                               (scale-float (float -4811145377091453 1.0d0) -223)
386                               (scale-float (float -8730216008515584 1.0d0) -284))
387                   (%make-qd-d q0 q1 q2 q3))
388               #.(multiple-value-bind (q0 q1 q2 q3)
389                     (renorm-5 (scale-float (float 7282851139856476 1.0d0) -56)
390                               (scale-float (float 8609951212389606 1.0d0) -111)
391                               (scale-float (float -5614142183842944 1.0d0) -165)
392                               (scale-float (float 6068416796043208 1.0d0) -219)
393                               (scale-float (float 8196791178133504 1.0d0) -273))
394                   (%make-qd-d q0 q1 q2 q3))
395               #.(multiple-value-bind (q0 q1 q2 q3)
396                     (renorm-5 (scale-float (float 7502754424118275 1.0d0) -56)
397                               (scale-float (float 8536169017599928 1.0d0) -110)
398                               (scale-float (float 7981550951145323 1.0d0) -165)
399                               (scale-float (float -8340622458345952 1.0d0) -220)
400                               (scale-float (float 6285858857648128 1.0d0) -274))
401                   (%make-qd-d q0 q1 q2 q3))
402               #.(multiple-value-bind (q0 q1 q2 q3)
403                     (renorm-5 (scale-float (float 7722587089598028 1.0d0) -56)
404                               (scale-float (float 8362719068102409 1.0d0) -110)
405                               (scale-float (float -7853008551658302 1.0d0) -166)
406                               (scale-float (float -6852498985157079 1.0d0) -220)
407                               (scale-float (float -4875056737550336 1.0d0) -274))
408                   (%make-qd-d q0 q1 q2 q3))
409               #.(multiple-value-bind (q0 q1 q2 q3)
410                     (renorm-5 (scale-float (float 7942347067146965 1.0d0) -56)
411                               (scale-float (float -5897359216343841 1.0d0) -113)
412                               (scale-float (float 7767443765766550 1.0d0) -169)
413                               (scale-float (float 8203371449514667 1.0d0) -225)
414                               (scale-float (float -8271467659657216 1.0d0) -279))
415                   (%make-qd-d q0 q1 q2 q3))
416               #.(multiple-value-bind (q0 q1 q2 q3)
417                     (renorm-5 (scale-float (float 8162032288300481 1.0d0) -56)
418                               (scale-float (float 7035687121204020 1.0d0) -111)
419                               (scale-float (float 5733124558862890 1.0d0) -168)
420                               (scale-float (float 6681272325774503 1.0d0) -223)
421                               (scale-float (float 8561939877724160 1.0d0) -281))
422                   (%make-qd-d q0 q1 q2 q3))
423               #.(multiple-value-bind (q0 q1 q2 q3)
424                     (renorm-5 (scale-float (float 8381640685297609 1.0d0) -56)
425                               (scale-float (float 5345425417737710 1.0d0) -112)
426                               (scale-float (float -8790124191829010 1.0d0) -166)
427                               (scale-float (float 7297964455931531 1.0d0) -225)
428                               (scale-float (float 6532791441293312 1.0d0) -279))
429                   (%make-qd-d q0 q1 q2 q3))
430               #.(multiple-value-bind (q0 q1 q2 q3)
431                     (renorm-5 (scale-float (float 8601170191100479 1.0d0) -56)
432                               (scale-float (float -5127404751534987 1.0d0) -110)
433                               (scale-float (float 8258618371098839 1.0d0) -164)
434                               (scale-float (float 6354475203379338 1.0d0) -221)
435                               (scale-float (float 6679197895688192 1.0d0) -275))
436                   (%make-qd-d q0 q1 q2 q3))
437               #.(multiple-value-bind (q0 q1 q2 q3)
438                     (renorm-5 (scale-float (float 8820618739413774 1.0d0) -56)
439                               (scale-float (float 7361249450583405 1.0d0) -111)
440                               (scale-float (float 8489175872343797 1.0d0) -165)
441                               (scale-float (float -4838736209868180 1.0d0) -220)
442                               (scale-float (float -8316549956370432 1.0d0) -277))
443                   (%make-qd-d q0 q1 q2 q3))
444               #.(multiple-value-bind (q0 q1 q2 q3)
445                     (renorm-5 (scale-float (float 4519992132352091 1.0d0) -55)
446                               (scale-float (float 6319901705801489 1.0d0) -110)
447                               (scale-float (float 5600764727998866 1.0d0) -166)
448                               (scale-float (float -5650573825026412 1.0d0) -220)
449                               (scale-float (float 8973806114308096 1.0d0) -274))
450                   (%make-qd-d q0 q1 q2 q3))
451               #.(multiple-value-bind (q0 q1 q2 q3)
452                     (renorm-5 (scale-float (float 4629632351109917 1.0d0) -55)
453                               (scale-float (float 4958462282897610 1.0d0) -110)
454                               (scale-float (float -8711719640720475 1.0d0) -165)
455                               (scale-float (float -8191834096705166 1.0d0) -221)
456                               (scale-float (float -5689038166556672 1.0d0) -275))
457                   (%make-qd-d q0 q1 q2 q3))
458               #.(multiple-value-bind (q0 q1 q2 q3)
459                     (renorm-5 (scale-float (float 4739228994004870 1.0d0) -55)
460                               (scale-float (float -6495525500297301 1.0d0) -110)
461                               (scale-float (float -6071898187587615 1.0d0) -165)
462                               (scale-float (float -7897922259441451 1.0d0) -220)
463                               (scale-float (float 8718132485029888 1.0d0) -275))
464                   (%make-qd-d q0 q1 q2 q3))
465               #.(multiple-value-bind (q0 q1 q2 q3)
466                     (renorm-5 (scale-float (float 4848781029471607 1.0d0) -55)
467                               (scale-float (float -5949746474335482 1.0d0) -109)
468                               (scale-float (float 7443833788929433 1.0d0) -165)
469                               (scale-float (float 6779921506403360 1.0d0) -220)
470                               (scale-float (float -6235838319558656 1.0d0) -275))
471                   (%make-qd-d q0 q1 q2 q3))
472               #.(multiple-value-bind (q0 q1 q2 q3)
473                     (renorm-5 (scale-float (float 4958287426364647 1.0d0) -55)
474                               (scale-float (float 8600164307618932 1.0d0) -110)
475                               (scale-float (float -5552907197025195 1.0d0) -164)
476                               (scale-float (float -6315628760329704 1.0d0) -222)
477                               (scale-float (float 5886558061723648 1.0d0) -277))
478                   (%make-qd-d q0 q1 q2 q3))
479               #.(multiple-value-bind (q0 q1 q2 q3)
480                     (renorm-5 (scale-float (float 5067747153968079 1.0d0) -55)
481                               (scale-float (float -5139980116898898 1.0d0) -109)
482                               (scale-float (float 7128908501078503 1.0d0) -163)
483                               (scale-float (float 5174334784143035 1.0d0) -217)
484                               (scale-float (float -7994959068307456 1.0d0) -271))
485                   (%make-qd-d q0 q1 q2 q3))
486               #.(multiple-value-bind (q0 q1 q2 q3)
487                     (renorm-5 (scale-float (float 5177159182005257 1.0d0) -55)
488                               (scale-float (float 7446222959753664 1.0d0) -109)
489                               (scale-float (float -4853116546479197 1.0d0) -166)
490                               (scale-float (float -7114171320789543 1.0d0) -220)
491                               (scale-float (float -6689741129777152 1.0d0) -275))
492                   (%make-qd-d q0 q1 q2 q3))
493               #.(multiple-value-bind (q0 q1 q2 q3)
494                     (renorm-5 (scale-float (float 5286522480648506 1.0d0) -55)
495                               (scale-float (float 4837853990883808 1.0d0) -110)
496                               (scale-float (float 8734494569006220 1.0d0) -164)
497                               (scale-float (float -6888573428631769 1.0d0) -220)
498                               (scale-float (float 7536408677842944 1.0d0) -278))
499                   (%make-qd-d q0 q1 q2 q3))
500               #.(multiple-value-bind (q0 q1 q2 q3)
501                     (renorm-5 (scale-float (float 5395836020528807 1.0d0) -55)
502                               (scale-float (float 5245006079192873 1.0d0) -109)
503                               (scale-float (float 6070092190452118 1.0d0) -165)
504                               (scale-float (float 8372804672547503 1.0d0) -219)
505                               (scale-float (float 6966171302363136 1.0d0) -276))
506                   (%make-qd-d q0 q1 q2 q3))
507               #.(multiple-value-bind (q0 q1 q2 q3)
508                     (renorm-5 (scale-float (float 5505098772745492 1.0d0) -55)
509                               (scale-float (float -4953034127800088 1.0d0) -109)
510                               (scale-float (float 6748009167290918 1.0d0) -163)
511                               (scale-float (float -7947104079128991 1.0d0) -217)
512                               (scale-float (float -8524610016018432 1.0d0) -272))
513                   (%make-qd-d q0 q1 q2 q3))
514               #.(multiple-value-bind (q0 q1 q2 q3)
515                     (renorm-5 (scale-float (float 5614309708875923 1.0d0) -55)
516                               (scale-float (float 7879649848150358 1.0d0) -111)
517                               (scale-float (float -5133702133285397 1.0d0) -165)
518                               (scale-float (float 6633380945160774 1.0d0) -219)
519                               (scale-float (float 6441044708917248 1.0d0) -273))
520                   (%make-qd-d q0 q1 q2 q3))
521               #.(multiple-value-bind (q0 q1 q2 q3)
522                     (renorm-5 (scale-float (float 5723467800985178 1.0d0) -55)
523                               (scale-float (float -5213481504208817 1.0d0) -110)
524                               (scale-float (float -8683946243665639 1.0d0) -166)
525                               (scale-float (float -4813600752545885 1.0d0) -220)
526                               (scale-float (float 5425715381862400 1.0d0) -274))
527                   (%make-qd-d q0 q1 q2 q3))
528               #.(multiple-value-bind (q0 q1 q2 q3)
529                     (renorm-5 (scale-float (float 5832572021635720 1.0d0) -55)
530                               (scale-float (float 7691426989666512 1.0d0) -109)
531                               (scale-float (float -5897567218587937 1.0d0) -163)
532                               (scale-float (float 6426162084210735 1.0d0) -217)
533                               (scale-float (float -6540530815762432 1.0d0) -273))
534                   (%make-qd-d q0 q1 q2 q3))
535               #.(multiple-value-bind (q0 q1 q2 q3)
536                     (renorm-5 (scale-float (float 5941621343897074 1.0d0) -55)
537                               (scale-float (float -7311303147276965 1.0d0) -113)
538                               (scale-float (float 6212875260931578 1.0d0) -167)
539                               (scale-float (float 5841094814764128 1.0d0) -222)
540                               (scale-float (float 8143620349362176 1.0d0) -276))
541                   (%make-qd-d q0 q1 q2 q3))
542               #.(multiple-value-bind (q0 q1 q2 q3)
543                     (renorm-5 (scale-float (float 6050614741355486 1.0d0) -55)
544                               (scale-float (float 7046535347736856 1.0d0) -110)
545                               (scale-float (float -7778307984467600 1.0d0) -164)
546                               (scale-float (float -7808429293088315 1.0d0) -218)
547                               (scale-float (float 4835521567211520 1.0d0) -272))
548                   (%make-qd-d q0 q1 q2 q3))
549               #.(multiple-value-bind (q0 q1 q2 q3)
550                     (renorm-5 (scale-float (float 6159551188123590 1.0d0) -55)
551                               (scale-float (float 5965947804179142 1.0d0) -109)
552                               (scale-float (float -7914176807889465 1.0d0) -163)
553                               (scale-float (float -8743204545259556 1.0d0) -219)
554                               (scale-float (float 5663160515559424 1.0d0) -274))
555                   (%make-qd-d q0 q1 q2 q3))
556               #.(multiple-value-bind (q0 q1 q2 q3)
557                     (renorm-5 (scale-float (float 6268429658850061 1.0d0) -55)
558                               (scale-float (float 7548560474328400 1.0d0) -110)
559                               (scale-float (float -7834123143654772 1.0d0) -165)
560                               (scale-float (float -5643244224302487 1.0d0) -219)
561                               (scale-float (float 8164719771910144 1.0d0) -274))
562                   (%make-qd-d q0 q1 q2 q3))
563               #.(multiple-value-bind (q0 q1 q2 q3)
564                     (renorm-5 (scale-float (float 6377249128729266 1.0d0) -55)
565                               (scale-float (float 8739842904414420 1.0d0) -110)
566                               (scale-float (float 6557520883328920 1.0d0) -164)
567                               (scale-float (float 6198578405040918 1.0d0) -220)
568                               (scale-float (float 8421926009438208 1.0d0) -275))
569                   (%make-qd-d q0 q1 q2 q3))
570               #.(multiple-value-bind (q0 q1 q2 q3)
571                     (renorm-5 (scale-float (float 6486008573510911 1.0d0) -55)
572                               (scale-float (float 5172944262567044 1.0d0) -109)
573                               (scale-float (float -8273960648700810 1.0d0) -163)
574                               (scale-float (float 8265967084369073 1.0d0) -218)
575                               (scale-float (float 7699060397178880 1.0d0) -272))
576                   (%make-qd-d q0 q1 q2 q3))
577               #.(multiple-value-bind (q0 q1 q2 q3)
578                     (renorm-5 (scale-float (float 6594706969509681 1.0d0) -55)
579                               (scale-float (float 5020296747686703 1.0d0) -109)
580                               (scale-float (float -5238462653363294 1.0d0) -163)
581                               (scale-float (float 4718474594983838 1.0d0) -218)
582                               (scale-float (float -6926646404186112 1.0d0) -276))
583                   (%make-qd-d q0 q1 q2 q3))
584               #.(multiple-value-bind (q0 q1 q2 q3)
585                     (renorm-5 (scale-float (float 6703343293614876 1.0d0) -55)
586                               (scale-float (float -8155081811450095 1.0d0) -109)
587                               (scale-float (float 8880533418464333 1.0d0) -163)
588                               (scale-float (float -6482467806029927 1.0d0) -220)
589                               (scale-float (float 8908780907528192 1.0d0) -274))
590                   (%make-qd-d q0 q1 q2 q3))
591               #.(multiple-value-bind (q0 q1 q2 q3)
592                     (renorm-5 (scale-float (float 6811916523300038 1.0d0) -55)
593                               (scale-float (float -4946244022635960 1.0d0) -109)
594                               (scale-float (float -5237121426122221 1.0d0) -163)
595                               (scale-float (float 8718098324302620 1.0d0) -217)
596                               (scale-float (float -5334437152194560 1.0d0) -272))
597                   (%make-qd-d q0 q1 q2 q3))
598               #.(multiple-value-bind (q0 q1 q2 q3)
599                     (renorm-5 (scale-float (float 6920425636632580 1.0d0) -55)
600                               (scale-float (float 5626936751711242 1.0d0) -110)
601                               (scale-float (float -5472825984215756 1.0d0) -164)
602                               (scale-float (float 6651512109810514 1.0d0) -218)
603                               (scale-float (float -5422089080733696 1.0d0) -273))
604                   (%make-qd-d q0 q1 q2 q3))
605               #.(multiple-value-bind (q0 q1 q2 q3)
606                     (renorm-5 (scale-float (float 7028869612283403 1.0d0) -55)
607                               (scale-float (float -5186506842934658 1.0d0) -109)
608                               (scale-float (float 7231073992256617 1.0d0) -163)
609                               (scale-float (float -7548842128799985 1.0d0) -217)
610                               (scale-float (float -6885880199282688 1.0d0) -272))
611                   (%make-qd-d q0 q1 q2 q3))
612               #.(multiple-value-bind (q0 q1 q2 q3)
613                     (renorm-5 (scale-float (float 7137247429536506 1.0d0) -55)
614                               (scale-float (float -4785846924082858 1.0d0) -111)
615                               (scale-float (float 6612549575000546 1.0d0) -165)
616                               (scale-float (float 8882300801909735 1.0d0) -219)
617                               (scale-float (float 7661200690282496 1.0d0) -273))
618                   (%make-qd-d q0 q1 q2 q3))
619               #.(multiple-value-bind (q0 q1 q2 q3)
620                     (renorm-5 (scale-float (float 7245558068298598 1.0d0) -55)
621                               (scale-float (float 7145919755147006 1.0d0) -109)
622                               (scale-float (float -4574333719136121 1.0d0) -163)
623                               (scale-float (float 8116579236098782 1.0d0) -221)
624                               (scale-float (float 6201037847003136 1.0d0) -276))
625                   (%make-qd-d q0 q1 q2 q3))
626               #.(multiple-value-bind (q0 q1 q2 q3)
627                     (renorm-5 (scale-float (float 7353800509108698 1.0d0) -55)
628                               (scale-float (float 7910632724668908 1.0d0) -110)
629                               (scale-float (float -6611929274882350 1.0d0) -164)
630                               (scale-float (float 7768004576091902 1.0d0) -220)
631                               (scale-float (float -7107771239563264 1.0d0) -274))
632                   (%make-qd-d q0 q1 q2 q3))
633               #.(multiple-value-bind (q0 q1 q2 q3)
634                     (renorm-5 (scale-float (float 7461973733147729 1.0d0) -55)
635                               (scale-float (float -6888466114708653 1.0d0) -109)
636                               (scale-float (float 5251305190626995 1.0d0) -164)
637                               (scale-float (float 5680012606429775 1.0d0) -218)
638                               (scale-float (float 6897724502097920 1.0d0) -272))
639                   (%make-qd-d q0 q1 q2 q3))
640               #.(multiple-value-bind (q0 q1 q2 q3)
641                     (renorm-5 (scale-float (float 7570076722248107 1.0d0) -55)
642                               (scale-float (float 7503873979299470 1.0d0) -109)
643                               (scale-float (float 7056820389775269 1.0d0) -163)
644                               (scale-float (float 7020098326040376 1.0d0) -217)
645                               (scale-float (float -8422007318265856 1.0d0) -271))
646                   (%make-qd-d q0 q1 q2 q3))
647               #.(multiple-value-bind (q0 q1 q2 q3)
648                     (renorm-5 (scale-float (float 7678108458903330 1.0d0) -55)
649                               (scale-float (float 7809132580424664 1.0d0) -109)
650                               (scale-float (float -7983937846917205 1.0d0) -164)
651                               (scale-float (float -5238765332718576 1.0d0) -218)
652                               (scale-float (float -8059861090435072 1.0d0) -274))
653                   (%make-qd-d q0 q1 q2 q3))
654               #.(multiple-value-bind (q0 q1 q2 q3)
655                     (renorm-5 (scale-float (float 7786067926277549 1.0d0) -55)
656                               (scale-float (float -6562541456970122 1.0d0) -109)
657                               (scale-float (float 8510563175036132 1.0d0) -163)
658                               (scale-float (float -6181313461401740 1.0d0) -217)
659                               (scale-float (float 4510744032436224 1.0d0) -271))
660                   (%make-qd-d q0 q1 q2 q3))
661               #.(multiple-value-bind (q0 q1 q2 q3)
662                     (renorm-5 (scale-float (float 7893954108215139 1.0d0) -55)
663                               (scale-float (float -7583622115760437 1.0d0) -114)
664                               (scale-float (float -8739826341766039 1.0d0) -168)
665                               (scale-float (float 8569299442299246 1.0d0) -224)
666                               (scale-float (float 7953143845355520 1.0d0) -278))
667                   (%make-qd-d q0 q1 q2 q3))
668               #.(multiple-value-bind (q0 q1 q2 q3)
669                     (renorm-5 (scale-float (float 8001765989250269 1.0d0) -55)
670                               (scale-float (float -7875990267513186 1.0d0) -111)
671                               (scale-float (float 6234618013881755 1.0d0) -166)
672                               (scale-float (float 6777347195615505 1.0d0) -221)
673                               (scale-float (float 7479102375460864 1.0d0) -276))
674                   (%make-qd-d q0 q1 q2 q3))
675               #.(multiple-value-bind (q0 q1 q2 q3)
676                     (renorm-5 (scale-float (float 8109502554616454 1.0d0) -55)
677                               (scale-float (float 5128307098824184 1.0d0) -110)
678                               (scale-float (float 4543608696005937 1.0d0) -167)
679                               (scale-float (float 7638129994812919 1.0d0) -223)
680                               (scale-float (float 7328067514007552 1.0d0) -278))
681                   (%make-qd-d q0 q1 q2 q3))
682               #.(multiple-value-bind (q0 q1 q2 q3)
683                     (renorm-5 (scale-float (float 8217162790256110 1.0d0) -55)
684                               (scale-float (float 5345588865997323 1.0d0) -109)
685                               (scale-float (float 8159479612637540 1.0d0) -163)
686                               (scale-float (float -5402348902098945 1.0d0) -219)
687                               (scale-float (float -6129953259257856 1.0d0) -273))
688                   (%make-qd-d q0 q1 q2 q3))
689               #.(multiple-value-bind (q0 q1 q2 q3)
690                     (renorm-5 (scale-float (float 8324745682830097 1.0d0) -55)
691                               (scale-float (float 6574607749416877 1.0d0) -109)
692                               (scale-float (float -8109490796402671 1.0d0) -163)
693                               (scale-float (float -6082280992156331 1.0d0) -217)
694                               (scale-float (float 6059016873918464 1.0d0) -271))
695                   (%make-qd-d q0 q1 q2 q3))
696               #.(multiple-value-bind (q0 q1 q2 q3)
697                     (renorm-5 (scale-float (float 8432250219727258 1.0d0) -55)
698                               (scale-float (float -4538223398252166 1.0d0) -109)
699                               (scale-float (float -6702216400949692 1.0d0) -163)
700                               (scale-float (float 8946082027051995 1.0d0) -220)
701                               (scale-float (float -8078529194885120 1.0d0) -275))
702                   (%make-qd-d q0 q1 q2 q3))
703               #.(multiple-value-bind (q0 q1 q2 q3)
704                     (renorm-5 (scale-float (float 8539675389073947 1.0d0) -55)
705                               (scale-float (float 5746889479488039 1.0d0) -109)
706                               (scale-float (float 6355067832497967 1.0d0) -165)
707                               (scale-float (float 8745994171732987 1.0d0) -219)
708                               (scale-float (float -7260136702705664 1.0d0) -273))
709                   (%make-qd-d q0 q1 q2 q3))
710               #.(multiple-value-bind (q0 q1 q2 q3)
711                     (renorm-5 (scale-float (float 8647020179743560 1.0d0) -55)
712                               (scale-float (float -7877855974853474 1.0d0) -109)
713                               (scale-float (float -6184796128853677 1.0d0) -164)
714                               (scale-float (float -6716307004457317 1.0d0) -221)
715                               (scale-float (float -4679972601069568 1.0d0) -275))
716                   (%make-qd-d q0 q1 q2 q3))
717               #.(multiple-value-bind (q0 q1 q2 q3)
718                     (renorm-5 (scale-float (float 8754283581366043 1.0d0) -55)
719                               (scale-float (float -5680003804930756 1.0d0) -109)
720                               (scale-float (float -7684372211678467 1.0d0) -163)
721                               (scale-float (float -8705668463298701 1.0d0) -219)
722                               (scale-float (float -4658178006188032 1.0d0) -275))
723                   (%make-qd-d q0 q1 q2 q3))
724               #.(multiple-value-bind (q0 q1 q2 q3)
725                     (renorm-5 (scale-float (float 8861464584337410 1.0d0) -55)
726                               (scale-float (float -7223162559193390 1.0d0) -109)
727                               (scale-float (float 5121803047874294 1.0d0) -163)
728                               (scale-float (float 5147411879671042 1.0d0) -218)
729                               (scale-float (float 4588877908574208 1.0d0) -273))
730                   (%make-qd-d q0 q1 q2 q3))
731               #.(multiple-value-bind (q0 q1 q2 q3)
732                     (renorm-5 (scale-float (float 8968562179829241 1.0d0) -55)
733                               (scale-float (float -5308048479279035 1.0d0) -109)
734                               (scale-float (float 6508578347136807 1.0d0) -163)
735                               (scale-float (float 8020683771279042 1.0d0) -217)
736                               (scale-float (float -8358038240133120 1.0d0) -272))
737                   (%make-qd-d q0 q1 q2 q3))
738               #.(multiple-value-bind (q0 q1 q2 q3)
739                     (renorm-5 (scale-float (float 4537787679899090 1.0d0) -54)
740                               (scale-float (float -5708747378047162 1.0d0) -108)
741                               (scale-float (float -6407036826384189 1.0d0) -162)
742                               (scale-float (float 5919543467564908 1.0d0) -216)
743                               (scale-float (float -8121882668752896 1.0d0) -270))
744                   (%make-qd-d q0 q1 q2 q3))
745               #.(multiple-value-bind (q0 q1 q2 q3)
746                     (renorm-5 (scale-float (float 4591251558497710 1.0d0) -54)
747                               (scale-float (float -5650174284497868 1.0d0) -115)
748                               (scale-float (float -8990517484150757 1.0d0) -170)
749                               (scale-float (float -8107597715031434 1.0d0) -224)
750                               (scale-float (float -5959355159543808 1.0d0) -278))
751                   (%make-qd-d q0 q1 q2 q3))
752               #.(multiple-value-bind (q0 q1 q2 q3)
753                     (renorm-5 (scale-float (float 4644672222488094 1.0d0) -54)
754                               (scale-float (float 5997115408045016 1.0d0) -108)
755                               (scale-float (float 7763885974670757 1.0d0) -164)
756                               (scale-float (float -4679894517345222 1.0d0) -219)
757                               (scale-float (float 5603403843633152 1.0d0) -273))
758                   (%make-qd-d q0 q1 q2 q3))
759               #.(multiple-value-bind (q0 q1 q2 q3)
760                     (renorm-5 (scale-float (float 4698049169054608 1.0d0) -54)
761                               (scale-float (float 5545557499125773 1.0d0) -110)
762                               (scale-float (float 5311178975123782 1.0d0) -166)
763                               (scale-float (float 5295664491197940 1.0d0) -220)
764                               (scale-float (float 5581004062720000 1.0d0) -274))
765                   (%make-qd-d q0 q1 q2 q3))
766               #.(multiple-value-bind (q0 q1 q2 q3)
767                     (renorm-5 (scale-float (float 4751381895793102 1.0d0) -54)
768                               (scale-float (float -6113263535019274 1.0d0) -108)
769                               (scale-float (float 8020796425904764 1.0d0) -162)
770                               (scale-float (float -8716004022289625 1.0d0) -216)
771                               (scale-float (float 7649880035377152 1.0d0) -270))
772                   (%make-qd-d q0 q1 q2 q3))
773               #.(multiple-value-bind (q0 q1 q2 q3)
774                     (renorm-5 (scale-float (float 4804669900715639 1.0d0) -54)
775                               (scale-float (float 6795815263120026 1.0d0) -108)
776                               (scale-float (float -6608013933362003 1.0d0) -162)
777                               (scale-float (float 8405700252907754 1.0d0) -218)
778                               (scale-float (float -8728274539773952 1.0d0) -272))
779                   (%make-qd-d q0 q1 q2 q3))
780               #.(multiple-value-bind (q0 q1 q2 q3)
781                     (renorm-5 (scale-float (float 4857912682255224 1.0d0) -54)
782                               (scale-float (float 5116248407710562 1.0d0) -108)
783                               (scale-float (float -8148882072162222 1.0d0) -163)
784                               (scale-float (float -8520890580178720 1.0d0) -217)
785                               (scale-float (float -5398325126758400 1.0d0) -271))
786                   (%make-qd-d q0 q1 q2 q3))
787               #.(multiple-value-bind (q0 q1 q2 q3)
788                     (renorm-5 (scale-float (float 4911109739270519 1.0d0) -54)
789                               (scale-float (float 5107738102425278 1.0d0) -109)
790                               (scale-float (float 6190162227247694 1.0d0) -166)
791                               (scale-float (float -4657820058623469 1.0d0) -220)
792                               (scale-float (float 5044535082876928 1.0d0) -274))
793                   (%make-qd-d q0 q1 q2 q3))
794               #.(multiple-value-bind (q0 q1 q2 q3)
795                     (renorm-5 (scale-float (float 4964260571050563 1.0d0) -54)
796                               (scale-float (float 6269805211133874 1.0d0) -108)
797                               (scale-float (float 8144711382265961 1.0d0) -162)
798                               (scale-float (float 5736256866199006 1.0d0) -218)
799                               (scale-float (float -6525423926870016 1.0d0) -272))
800                   (%make-qd-d q0 q1 q2 q3))
801               #.(multiple-value-bind (q0 q1 q2 q3)
802                     (renorm-5 (scale-float (float 5017364677319486 1.0d0) -54)
803                               (scale-float (float -6510019840528798 1.0d0) -109)
804                               (scale-float (float 8487479632464686 1.0d0) -163)
805                               (scale-float (float -8482708199224338 1.0d0) -219)
806                               (scale-float (float -6883346636800000 1.0d0) -273))
807                   (%make-qd-d q0 q1 q2 q3))
808               #.(multiple-value-bind (q0 q1 q2 q3)
809                     (renorm-5 (scale-float (float 5070421558241214 1.0d0) -54)
810                               (scale-float (float -7997629714663984 1.0d0) -109)
811                               (scale-float (float -4940945917580418 1.0d0) -165)
812                               (scale-float (float 6330315470378748 1.0d0) -219)
813                               (scale-float (float 5443507329499136 1.0d0) -273))
814                   (%make-qd-d q0 q1 q2 q3))
815               #.(multiple-value-bind (q0 q1 q2 q3)
816                     (renorm-5 (scale-float (float 5123430714424177 1.0d0) -54)
817                               (scale-float (float 7207319694891503 1.0d0) -108)
818                               (scale-float (float -5367984184293639 1.0d0) -162)
819                               (scale-float (float -5496551307550694 1.0d0) -216)
820                               (scale-float (float -7850046943559680 1.0d0) -272))
821                   (%make-qd-d q0 q1 q2 q3))
822               #.(multiple-value-bind (q0 q1 q2 q3)
823                     (renorm-5 (scale-float (float 5176391646926010 1.0d0) -54)
824                               (scale-float (float 5017419446091570 1.0d0) -108)
825                               (scale-float (float -7396832087454611 1.0d0) -163)
826                               (scale-float (float -4840687577999527 1.0d0) -217)
827                               (scale-float (float -5841829911068672 1.0d0) -275))
828                   (%make-qd-d q0 q1 q2 q3))
829               #.(multiple-value-bind (q0 q1 q2 q3)
830                     (renorm-5 (scale-float (float 5229303857258246 1.0d0) -54)
831                               (scale-float (float -6142480273924397 1.0d0) -108)
832                               (scale-float (float 6736325962420316 1.0d0) -162)
833                               (scale-float (float 7870899103225375 1.0d0) -216)
834                               (scale-float (float -6481337268527104 1.0d0) -270))
835                   (%make-qd-d q0 q1 q2 q3))
836               #.(multiple-value-bind (q0 q1 q2 q3)
837                     (renorm-5 (scale-float (float 5282166847391008 1.0d0) -54)
838                               (scale-float (float 7264487630099164 1.0d0) -108)
839                               (scale-float (float 7987097472370426 1.0d0) -162)
840                               (scale-float (float -8941292693731426 1.0d0) -217)
841                               (scale-float (float -5269253683658752 1.0d0) -271))
842                   (%make-qd-d q0 q1 q2 q3))
843               #.(multiple-value-bind (q0 q1 q2 q3)
844                     (renorm-5 (scale-float (float 5334980119757703 1.0d0) -54)
845                               (scale-float (float -6562004117740143 1.0d0) -108)
846                               (scale-float (float -7412943256346969 1.0d0) -166)
847                               (scale-float (float -4884902683994743 1.0d0) -220)
848                               (scale-float (float 6498418964824064 1.0d0) -282))
849                   (%make-qd-d q0 q1 q2 q3))
850               #.(multiple-value-bind (q0 q1 q2 q3)
851                     (renorm-5 (scale-float (float 5387743177259695 1.0d0) -54)
852                               (scale-float (float 8671749280336977 1.0d0) -112)
853                               (scale-float (float 8052630932330237 1.0d0) -166)
854                               (scale-float (float 5382726735559265 1.0d0) -223)
855                               (scale-float (float 8322033028956160 1.0d0) -277))
856                   (%make-qd-d q0 q1 q2 q3))
857               #.(multiple-value-bind (q0 q1 q2 q3)
858                     (renorm-5 (scale-float (float 5440455523270994 1.0d0) -54)
859                               (scale-float (float -5571226216357986 1.0d0) -108)
860                               (scale-float (float 5456938947172397 1.0d0) -164)
861                               (scale-float (float 6994870598847095 1.0d0) -219)
862                               (scale-float (float -5157268310982656 1.0d0) -275))
863                   (%make-qd-d q0 q1 q2 q3))
864               #.(multiple-value-bind (q0 q1 q2 q3)
865                     (renorm-5 (scale-float (float 5493116661642923 1.0d0) -54)
866                               (scale-float (float -7460368030645572 1.0d0) -108)
867                               (scale-float (float -6827621715323733 1.0d0) -165)
868                               (scale-float (float 6362629589576016 1.0d0) -220)
869                               (scale-float (float -5304207807086592 1.0d0) -276))
870                   (%make-qd-d q0 q1 q2 q3))
871               #.(multiple-value-bind (q0 q1 q2 q3)
872                     (renorm-5 (scale-float (float 5545726096708791 1.0d0) -54)
873                               (scale-float (float 8786044050481812 1.0d0) -108)
874                               (scale-float (float 7347762739505304 1.0d0) -162)
875                               (scale-float (float 7680616584349999 1.0d0) -216)
876                               (scale-float (float -8241241114238976 1.0d0) -270))
877                   (%make-qd-d q0 q1 q2 q3))
878               #.(multiple-value-bind (q0 q1 q2 q3)
879                     (renorm-5 (scale-float (float 5598283333288561 1.0d0) -54)
880                               (scale-float (float 6778243811814134 1.0d0) -108)
881                               (scale-float (float -7045745243982448 1.0d0) -164)
882                               (scale-float (float 4676451795272765 1.0d0) -221)
883                               (scale-float (float 8570209083850752 1.0d0) -276))
884                   (%make-qd-d q0 q1 q2 q3))
885               #.(multiple-value-bind (q0 q1 q2 q3)
886                     (renorm-5 (scale-float (float 5650787876693505 1.0d0) -54)
887                               (scale-float (float 4725135298405656 1.0d0) -108)
888                               (scale-float (float 8550179043058735 1.0d0) -164)
889                               (scale-float (float 4909349307819338 1.0d0) -218)
890                               (scale-float (float 6696986363297792 1.0d0) -274))
891                   (%make-qd-d q0 q1 q2 q3))
892               #.(multiple-value-bind (q0 q1 q2 q3)
893                     (renorm-5 (scale-float (float 5703239232730864 1.0d0) -54)
894                               (scale-float (float 6956150123475237 1.0d0) -108)
895                               (scale-float (float 7212901813329486 1.0d0) -162)
896                               (scale-float (float 7153556903673412 1.0d0) -217)
897                               (scale-float (float -7350582136963072 1.0d0) -271))
898                   (%make-qd-d q0 q1 q2 q3))
899               #.(multiple-value-bind (q0 q1 q2 q3)
900                     (renorm-5 (scale-float (float 5755636907708500 1.0d0) -54)
901                               (scale-float (float -4537276437495587 1.0d0) -108)
902                               (scale-float (float 4777941193532901 1.0d0) -162)
903                               (scale-float (float -8179721144625040 1.0d0) -216)
904                               (scale-float (float 7659081222668288 1.0d0) -271))
905                   (%make-qd-d q0 q1 q2 q3))
906               #.(multiple-value-bind (q0 q1 q2 q3)
907                     (renorm-5 (scale-float (float 5807980408439539 1.0d0) -54)
908                               (scale-float (float -5259672094517845 1.0d0) -110)
909                               (scale-float (float 8754582529967018 1.0d0) -164)
910                               (scale-float (float 7408654934690508 1.0d0) -219)
911                               (scale-float (float -5191954652200960 1.0d0) -275))
912                   (%make-qd-d q0 q1 q2 q3))
913               #.(multiple-value-bind (q0 q1 q2 q3)
914                     (renorm-5 (scale-float (float 5860269242247018 1.0d0) -54)
915                               (scale-float (float 5138507873462360 1.0d0) -109)
916                               (scale-float (float -6320854003064805 1.0d0) -166)
917                               (scale-float (float 7758282409924483 1.0d0) -221)
918                               (scale-float (float -7239829310668800 1.0d0) -275))
919                   (%make-qd-d q0 q1 q2 q3))
920               #.(multiple-value-bind (q0 q1 q2 q3)
921                     (renorm-5 (scale-float (float 5912502916968520 1.0d0) -54)
922                               (scale-float (float -8662419418939044 1.0d0) -108)
923                               (scale-float (float 4614185824928788 1.0d0) -162)
924                               (scale-float (float 8601963191388429 1.0d0) -221)
925                               (scale-float (float -7236690074664960 1.0d0) -275))
926                   (%make-qd-d q0 q1 q2 q3))
927               #.(multiple-value-bind (q0 q1 q2 q3)
928                     (renorm-5 (scale-float (float 5964680940960804 1.0d0) -54)
929                               (scale-float (float -8914351205645270 1.0d0) -108)
930                               (scale-float (float -7834377139759957 1.0d0) -162)
931                               (scale-float (float 6901300084898985 1.0d0) -216)
932                               (scale-float (float 7894019060555776 1.0d0) -270))
933                   (%make-qd-d q0 q1 q2 q3))
934               #.(multiple-value-bind (q0 q1 q2 q3)
935                     (renorm-5 (scale-float (float 6016802823104436 1.0d0) -54)
936                               (scale-float (float 7333790512522496 1.0d0) -108)
937                               (scale-float (float 4563571436080821 1.0d0) -162)
938                               (scale-float (float 8605109854377494 1.0d0) -218)
939                               (scale-float (float -7597538248097792 1.0d0) -273))
940                   (%make-qd-d q0 q1 q2 q3))
941               #.(multiple-value-bind (q0 q1 q2 q3)
942                     (renorm-5 (scale-float (float 6068868072808413 1.0d0) -54)
943                               (scale-float (float -8723253959652896 1.0d0) -114)
944                               (scale-float (float -8733624133784357 1.0d0) -171)
945                               (scale-float (float -6253293004427605 1.0d0) -225)
946                               (scale-float (float 7903885175816192 1.0d0) -279))
947                   (%make-qd-d q0 q1 q2 q3))
948               #.(multiple-value-bind (q0 q1 q2 q3)
949                     (renorm-5 (scale-float (float 6120876200014774 1.0d0) -54)
950                               (scale-float (float 8571012628450813 1.0d0) -110)
951                               (scale-float (float 5881087260125824 1.0d0) -165)
952                               (scale-float (float 8616758768675350 1.0d0) -221)
953                               (scale-float (float -6485427212255232 1.0d0) -275))
954                   (%make-qd-d q0 q1 q2 q3))
955               #.(multiple-value-bind (q0 q1 q2 q3)
956                     (renorm-5 (scale-float (float 6172826715203219 1.0d0) -54)
957                               (scale-float (float 6250720108433989 1.0d0) -108)
958                               (scale-float (float -5422415971662036 1.0d0) -162)
959                               (scale-float (float 8997881851302993 1.0d0) -216)
960                               (scale-float (float 5663871216648192 1.0d0) -275))
961                   (%make-qd-d q0 q1 q2 q3))
962               #.(multiple-value-bind (q0 q1 q2 q3)
963                     (renorm-5 (scale-float (float 6224719129395714 1.0d0) -54)
964                               (scale-float (float 8843501730272727 1.0d0) -108)
965                               (scale-float (float 8200563275489647 1.0d0) -163)
966                               (scale-float (float -5971751274707875 1.0d0) -218)
967                               (scale-float (float 7152787190022144 1.0d0) -272))
968                   (%make-qd-d q0 q1 q2 q3))
969               #.(multiple-value-bind (q0 q1 q2 q3)
970                     (renorm-5 (scale-float (float 6276552954161094 1.0d0) -54)
971                               (scale-float (float 4799554187051297 1.0d0) -110)
972                               (scale-float (float 8308846534529580 1.0d0) -164)
973                               (scale-float (float 8241934792467017 1.0d0) -218)
974                               (scale-float (float 6142252833701888 1.0d0) -274))
975                   (%make-qd-d q0 q1 q2 q3))
976               #.(multiple-value-bind (q0 q1 q2 q3)
977                     (renorm-5 (scale-float (float 6328327701619659 1.0d0) -54)
978                               (scale-float (float -7357066700707823 1.0d0) -108)
979                               (scale-float (float -7947864157743905 1.0d0) -165)
980                               (scale-float (float 7675632966777644 1.0d0) -219)
981                               (scale-float (float -7859656524824576 1.0d0) -273))
982                   (%make-qd-d q0 q1 q2 q3))
983               #.(multiple-value-bind (q0 q1 q2 q3)
984                     (renorm-5 (scale-float (float 6380042884447767 1.0d0) -54)
985                               (scale-float (float -5501161709946803 1.0d0) -108)
986                               (scale-float (float 7466713522323834 1.0d0) -162)
987                               (scale-float (float -7098845764308001 1.0d0) -217)
988                               (scale-float (float 6821858551332864 1.0d0) -271))
989                   (%make-qd-d q0 q1 q2 q3))
990               #.(multiple-value-bind (q0 q1 q2 q3)
991                     (renorm-5 (scale-float (float 6431698015882422 1.0d0) -54)
992                               (scale-float (float -5007263247392991 1.0d0) -113)
993                               (scale-float (float -7795754867074493 1.0d0) -167)
994                               (scale-float (float -4821191128464752 1.0d0) -222)
995                               (scale-float (float 7539590174343168 1.0d0) -276))
996                   (%make-qd-d q0 q1 q2 q3))
997               #.(multiple-value-bind (q0 q1 q2 q3)
998                     (renorm-5 (scale-float (float 6483292609725855 1.0d0) -54)
999                               (scale-float (float -5712074047376477 1.0d0) -108)
1000                               (scale-float (float 7819107111345661 1.0d0) -162)
1001                               (scale-float (float 8368937774054671 1.0d0) -216)
1002                               (scale-float (float -6753988863688704 1.0d0) -270))
1003                   (%make-qd-d q0 q1 q2 q3))
1004               #.(multiple-value-bind (q0 q1 q2 q3)
1005                     (renorm-5 (scale-float (float 6534826180350098 1.0d0) -54)
1006                               (scale-float (float -5949616244538138 1.0d0) -109)
1007                               (scale-float (float -8689252050077247 1.0d0) -163)
1008                               (scale-float (float -8509057300264997 1.0d0) -218)
1009                               (scale-float (float -8943610587250688 1.0d0) -272))
1010                   (%make-qd-d q0 q1 q2 q3))
1011               #.(multiple-value-bind (q0 q1 q2 q3)
1012                     (renorm-5 (scale-float (float 6586298242701558 1.0d0) -54)
1013                               (scale-float (float 5263009052367660 1.0d0) -108)
1014                               (scale-float (float 6598370143038445 1.0d0) -162)
1015                               (scale-float (float -7564085607225777 1.0d0) -216)
1016                               (scale-float (float 4742479682797568 1.0d0) -270))
1017                   (%make-qd-d q0 q1 q2 q3))
1018               #.(multiple-value-bind (q0 q1 q2 q3)
1019                     (renorm-5 (scale-float (float 6637708312305582 1.0d0) -54)
1020                               (scale-float (float 6791291154341829 1.0d0) -109)
1021                               (scale-float (float 7690532825767619 1.0d0) -168)
1022                               (scale-float (float 7037800597631649 1.0d0) -222)
1023                               (scale-float (float 8060966153486336 1.0d0) -276))
1024                   (%make-qd-d q0 q1 q2 q3))
1025               #.(multiple-value-bind (q0 q1 q2 q3)
1026                     (renorm-5 (scale-float (float 6689055905271015 1.0d0) -54)
1027                               (scale-float (float 7217134714480857 1.0d0) -114)
1028                               (scale-float (float -8997551068716333 1.0d0) -173)
1029                               (scale-float (float -6072128060810686 1.0d0) -227)
1030                               (scale-float (float 6009466801618944 1.0d0) -281))
1031                   (%make-qd-d q0 q1 q2 q3))
1032               #.(multiple-value-bind (q0 q1 q2 q3)
1033                     (renorm-5 (scale-float (float 6740340538294756 1.0d0) -54)
1034                               (scale-float (float 5199702616094614 1.0d0) -109)
1035                               (scale-float (float 6246995808738228 1.0d0) -163)
1036                               (scale-float (float 8721019383942846 1.0d0) -219)
1037                               (scale-float (float 7653531236958208 1.0d0) -275))
1038                   (%make-qd-d q0 q1 q2 q3))
1039               #.(multiple-value-bind (q0 q1 q2 q3)
1040                     (renorm-5 (scale-float (float 6791561728666308 1.0d0) -54)
1041                               (scale-float (float -7075880958543542 1.0d0) -111)
1042                               (scale-float (float 5953253779194679 1.0d0) -166)
1043                               (scale-float (float 5597468420642533 1.0d0) -222)
1044                               (scale-float (float -7151042605088768 1.0d0) -278))
1045                   (%make-qd-d q0 q1 q2 q3))
1046               #.(multiple-value-bind (q0 q1 q2 q3)
1047                     (renorm-5 (scale-float (float 6842718994272319 1.0d0) -54)
1048                               (scale-float (float 6435287673892967 1.0d0) -109)
1049                               (scale-float (float 5701190408884571 1.0d0) -163)
1050                               (scale-float (float 5908054947863245 1.0d0) -218)
1051                               (scale-float (float 4556920054480896 1.0d0) -274))
1052                   (%make-qd-d q0 q1 q2 q3))
1053               #.(multiple-value-bind (q0 q1 q2 q3)
1054                     (renorm-5 (scale-float (float 6893811853601123 1.0d0) -54)
1055                               (scale-float (float -6523324437210640 1.0d0) -109)
1056                               (scale-float (float -4818352562283701 1.0d0) -164)
1057                               (scale-float (float -5357330931060650 1.0d0) -218)
1058                               (scale-float (float 4611839504777216 1.0d0) -272))
1059                   (%make-qd-d q0 q1 q2 q3))
1060               #.(multiple-value-bind (q0 q1 q2 q3)
1061                     (renorm-5 (scale-float (float 6944839825747268 1.0d0) -54)
1062                               (scale-float (float 4925434022374747 1.0d0) -108)
1063                               (scale-float (float 8300294859713104 1.0d0) -162)
1064                               (scale-float (float 6208703759312379 1.0d0) -216)
1065                               (scale-float (float -5013140189642752 1.0d0) -272))
1066                   (%make-qd-d q0 q1 q2 q3))
1067               #.(multiple-value-bind (q0 q1 q2 q3)
1068                     (renorm-5 (scale-float (float 6995802430416048 1.0d0) -54)
1069                               (scale-float (float -6525270186811934 1.0d0) -109)
1070                               (scale-float (float 8879265420406843 1.0d0) -163)
1071                               (scale-float (float -6733241213708231 1.0d0) -217)
1072                               (scale-float (float -6737959053164544 1.0d0) -276))
1073                   (%make-qd-d q0 q1 q2 q3))
1074               #.(multiple-value-bind (q0 q1 q2 q3)
1075                     (renorm-5 (scale-float (float 7046699187928017 1.0d0) -54)
1076                               (scale-float (float 5840616084808535 1.0d0) -108)
1077                               (scale-float (float -6204648763678812 1.0d0) -162)
1078                               (scale-float (float -5748171176195803 1.0d0) -216)
1079                               (scale-float (float -7375070776360960 1.0d0) -272))
1080                   (%make-qd-d q0 q1 q2 q3))
1081               #.(multiple-value-bind (q0 q1 q2 q3)
1082                     (renorm-5 (scale-float (float 7097529619223511 1.0d0) -54)
1083                               (scale-float (float 6337798132651441 1.0d0) -109)
1084                               (scale-float (float -4965270455978562 1.0d0) -164)
1085                               (scale-float (float -4678379495118649 1.0d0) -219)
1086                               (scale-float (float 5929984816447488 1.0d0) -273))
1087                   (%make-qd-d q0 q1 q2 q3))
1088               #.(multiple-value-bind (q0 q1 q2 q3)
1089                     (renorm-5 (scale-float (float 7148293245867151 1.0d0) -54)
1090                               (scale-float (float 6667254347281325 1.0d0) -108)
1091                               (scale-float (float 7172706150755633 1.0d0) -163)
1092                               (scale-float (float 4521599313713307 1.0d0) -218)
1093                               (scale-float (float 6319153054941184 1.0d0) -273))
1094                   (%make-qd-d q0 q1 q2 q3))
1095               #.(multiple-value-bind (q0 q1 q2 q3)
1096                     (renorm-5 (scale-float (float 7198989590052351 1.0d0) -54)
1097                               (scale-float (float -4889033451117653 1.0d0) -108)
1098                               (scale-float (float -5825736040848376 1.0d0) -162)
1099                               (scale-float (float -6058018356871033 1.0d0) -216)
1100                               (scale-float (float 4719922365956096 1.0d0) -272))
1101                   (%make-qd-d q0 q1 q2 q3))
1102               #.(multiple-value-bind (q0 q1 q2 q3)
1103                     (renorm-5 (scale-float (float 7249618174605810 1.0d0) -54)
1104                               (scale-float (float 7076204518174404 1.0d0) -109)
1105                               (scale-float (float 8651917601296873 1.0d0) -163)
1106                               (scale-float (float 4790821447612866 1.0d0) -217)
1107                               (scale-float (float 6079401430253568 1.0d0) -271))
1108                   (%make-qd-d q0 q1 q2 q3))
1109               #.(multiple-value-bind (q0 q1 q2 q3)
1110                     (renorm-5 (scale-float (float 7300178522992010 1.0d0) -54)
1111                               (scale-float (float 6432697761913771 1.0d0) -109)
1112                               (scale-float (float -5885542131804050 1.0d0) -164)
1113                               (scale-float (float 5002309445714852 1.0d0) -225)
1114                               (scale-float (float 8157883497709568 1.0d0) -280))
1115                   (%make-qd-d q0 q1 q2 q3))
1116               #.(multiple-value-bind (q0 q1 q2 q3)
1117                     (renorm-5 (scale-float (float 7350670159317696 1.0d0) -54)
1118                               (scale-float (float -4543650155952635 1.0d0) -109)
1119                               (scale-float (float -6598133798027798 1.0d0) -165)
1120                               (scale-float (float 8182638753990352 1.0d0) -225)
1121                               (scale-float (float -8334158438858752 1.0d0) -279))
1122                   (%make-qd-d q0 q1 q2 q3))
1123               #.(multiple-value-bind (q0 q1 q2 q3)
1124                     (renorm-5 (scale-float (float 7401092608336357 1.0d0) -54)
1125                               (scale-float (float -7859785885819633 1.0d0) -108)
1126                               (scale-float (float -6675498128747218 1.0d0) -162)
1127                               (scale-float (float -8844902686085099 1.0d0) -218)
1128                               (scale-float (float -5439421702995968 1.0d0) -273))
1129                   (%make-qd-d q0 q1 q2 q3))
1130               #.(multiple-value-bind (q0 q1 q2 q3)
1131                     (renorm-5 (scale-float (float 7451445395452699 1.0d0) -54)
1132                               (scale-float (float -6746081919340579 1.0d0) -109)
1133                               (scale-float (float -5369758667471624 1.0d0) -165)
1134                               (scale-float (float -6834701290217458 1.0d0) -221)
1135                               (scale-float (float -8025543898300416 1.0d0) -275))
1136                   (%make-qd-d q0 q1 q2 q3))
1137               #.(multiple-value-bind (q0 q1 q2 q3)
1138                     (renorm-5 (scale-float (float 7501728046727114 1.0d0) -54)
1139                               (scale-float (float -8267298509278455 1.0d0) -108)
1140                               (scale-float (float -8063438575398244 1.0d0) -164)
1141                               (scale-float (float 6048179215733349 1.0d0) -219)
1142                               (scale-float (float 7101057283194880 1.0d0) -273))
1143                   (%make-qd-d q0 q1 q2 q3))
1144               #.(multiple-value-bind (q0 q1 q2 q3)
1145                     (renorm-5 (scale-float (float 7551940088880137 1.0d0) -54)
1146                               (scale-float (float -5482087221447130 1.0d0) -110)
1147                               (scale-float (float -8430648353819219 1.0d0) -164)
1148                               (scale-float (float 8658592177651743 1.0d0) -218)
1149                               (scale-float (float 7093572807426048 1.0d0) -275))
1150                   (%make-qd-d q0 q1 q2 q3))
1151               #.(multiple-value-bind (q0 q1 q2 q3)
1152                     (renorm-5 (scale-float (float 7602081049296905 1.0d0) -54)
1153                               (scale-float (float 5652239210598920 1.0d0) -110)
1154                               (scale-float (float 7420759427593921 1.0d0) -164)
1155                               (scale-float (float -5717719400948822 1.0d0) -218)
1156                               (scale-float (float 7916673537998848 1.0d0) -272))
1157                   (%make-qd-d q0 q1 q2 q3))
1158               #.(multiple-value-bind (q0 q1 q2 q3)
1159                     (renorm-5 (scale-float (float 7652150456031602 1.0d0) -54)
1160                               (scale-float (float 8912029836648224 1.0d0) -108)
1161                               (scale-float (float -5442965062816235 1.0d0) -163)
1162                               (scale-float (float 5557269064076599 1.0d0) -219)
1163                               (scale-float (float -8143037067689984 1.0d0) -275))
1164                   (%make-qd-d q0 q1 q2 q3))
1165               #.(multiple-value-bind (q0 q1 q2 q3)
1166                     (renorm-5 (scale-float (float 7702147837811904 1.0d0) -54)
1167                               (scale-float (float 6108211414778243 1.0d0) -109)
1168                               (scale-float (float -8159473578389260 1.0d0) -165)
1169                               (scale-float (float -7432349312262155 1.0d0) -221)
1170                               (scale-float (float -6255586292269056 1.0d0) -276))
1171                   (%make-qd-d q0 q1 q2 q3))
1172               #.(multiple-value-bind (q0 q1 q2 q3)
1173                     (renorm-5 (scale-float (float 7752072724043411 1.0d0) -54)
1174                               (scale-float (float 7223681421721881 1.0d0) -108)
1175                               (scale-float (float 5025963318844636 1.0d0) -162)
1176                               (scale-float (float -6196764359275049 1.0d0) -217)
1177                               (scale-float (float 6675143307739136 1.0d0) -271))
1178                   (%make-qd-d q0 q1 q2 q3))
1179               #.(multiple-value-bind (q0 q1 q2 q3)
1180                     (renorm-5 (scale-float (float 7801924644814081 1.0d0) -54)
1181                               (scale-float (float 7284976384109012 1.0d0) -109)
1182                               (scale-float (float 4978342074042849 1.0d0) -166)
1183                               (scale-float (float -8927853027064514 1.0d0) -220)
1184                               (scale-float (float 8209556624113664 1.0d0) -276))
1185                   (%make-qd-d q0 q1 q2 q3))
1186               #.(multiple-value-bind (q0 q1 q2 q3)
1187                     (renorm-5 (scale-float (float 7851703130898649 1.0d0) -54)
1188                               (scale-float (float 5267103399173910 1.0d0) -108)
1189                               (scale-float (float -6021054605042187 1.0d0) -166)
1190                               (scale-float (float 6370660996304786 1.0d0) -220)
1191                               (scale-float (float -6401332536410112 1.0d0) -275))
1192                   (%make-qd-d q0 q1 q2 q3))
1193               #.(multiple-value-bind (q0 q1 q2 q3)
1194                     (renorm-5 (scale-float (float 7901407713763047 1.0d0) -54)
1195                               (scale-float (float -6777023449092614 1.0d0) -108)
1196                               (scale-float (float -6668929501654487 1.0d0) -165)
1197                               (scale-float (float 8608953101571494 1.0d0) -223)
1198                               (scale-float (float 8586013985210368 1.0d0) -278))
1199                   (%make-qd-d q0 q1 q2 q3))
1200               #.(multiple-value-bind (q0 q1 q2 q3)
1201                     (renorm-5 (scale-float (float 7951037925568809 1.0d0) -54)
1202                               (scale-float (float 7256489245666525 1.0d0) -108)
1203                               (scale-float (float 5548921664669512 1.0d0) -165)
1204                               (scale-float (float -6417647354800337 1.0d0) -220)
1205                               (scale-float (float -5655827515965440 1.0d0) -275))
1206                   (%make-qd-d q0 q1 q2 q3))
1207               #.(multiple-value-bind (q0 q1 q2 q3)
1208                     (renorm-5 (scale-float (float 8000593299177483 1.0d0) -54)
1209                               (scale-float (float -7859474098720372 1.0d0) -108)
1210                               (scale-float (float 5192476996492227 1.0d0) -164)
1211                               (scale-float (float 7762192920165123 1.0d0) -219)
1212                               (scale-float (float 5315557988761600 1.0d0) -274))
1213                   (%make-qd-d q0 q1 q2 q3))
1214               #.(multiple-value-bind (q0 q1 q2 q3)
1215                     (renorm-5 (scale-float (float 8050073368155017 1.0d0) -54)
1216                               (scale-float (float -6237939819127611 1.0d0) -108)
1217                               (scale-float (float -8310809855799018 1.0d0) -167)
1218                               (scale-float (float -4607997215797586 1.0d0) -221)
1219                               (scale-float (float -8992526383972352 1.0d0) -276))
1220                   (%make-qd-d q0 q1 q2 q3))
1221               #.(multiple-value-bind (q0 q1 q2 q3)
1222                     (renorm-5 (scale-float (float 8099477666776158 1.0d0) -54)
1223                               (scale-float (float 6338746169655183 1.0d0) -110)
1224                               (scale-float (float 6349016711906624 1.0d0) -164)
1225                               (scale-float (float -6594231578666108 1.0d0) -218)
1226                               (scale-float (float -7469627433549824 1.0d0) -272))
1227                   (%make-qd-d q0 q1 q2 q3))
1228               #.(multiple-value-bind (q0 q1 q2 q3)
1229                     (renorm-5 (scale-float (float 8148805730028833 1.0d0) -54)
1230                               (scale-float (float -4811953802956820 1.0d0) -108)
1231                               (scale-float (float -8996711906404359 1.0d0) -163)
1232                               (scale-float (float 7437936247641814 1.0d0) -218)
1233                               (scale-float (float 7267646205329408 1.0d0) -273))
1234                   (%make-qd-d q0 q1 q2 q3))
1235               #.(multiple-value-bind (q0 q1 q2 q3)
1236                     (renorm-5 (scale-float (float 8198057093618523 1.0d0) -54)
1237                               (scale-float (float -8035018871140280 1.0d0) -109)
1238                               (scale-float (float 6464477674883353 1.0d0) -163)
1239                               (scale-float (float -7193445626531301 1.0d0) -219)
1240                               (scale-float (float 6613589106622464 1.0d0) -273))
1241                   (%make-qd-d q0 q1 q2 q3))
1242               #.(multiple-value-bind (q0 q1 q2 q3)
1243                     (renorm-5 (scale-float (float 8247231293972637 1.0d0) -54)
1244                               (scale-float (float -5487884902609878 1.0d0) -109)
1245                               (scale-float (float -7456042848390653 1.0d0) -163)
1246                               (scale-float (float 6693281418534385 1.0d0) -217)
1247                               (scale-float (float 6220894588780544 1.0d0) -271))
1248                   (%make-qd-d q0 q1 q2 q3))
1249               #.(multiple-value-bind (q0 q1 q2 q3)
1250                     (renorm-5 (scale-float (float 8296327868244873 1.0d0) -54)
1251                               (scale-float (float 5999951330674037 1.0d0) -108)
1252                               (scale-float (float -6154519112303483 1.0d0) -162)
1253                               (scale-float (float 7000233030992444 1.0d0) -217)
1254                               (scale-float (float 5649438551359488 1.0d0) -271))
1255                   (%make-qd-d q0 q1 q2 q3))
1256               #.(multiple-value-bind (q0 q1 q2 q3)
1257                     (renorm-5 (scale-float (float 8345346354319577 1.0d0) -54)
1258                               (scale-float (float -4771391396366549 1.0d0) -109)
1259                               (scale-float (float 7854156202477445 1.0d0) -163)
1260                               (scale-float (float 8339496630900022 1.0d0) -217)
1261                               (scale-float (float 4728827042594816 1.0d0) -272))
1262                   (%make-qd-d q0 q1 q2 q3))
1263               #.(multiple-value-bind (q0 q1 q2 q3)
1264                     (renorm-5 (scale-float (float 8394286290816088 1.0d0) -54)
1265                               (scale-float (float -8573403169330254 1.0d0) -111)
1266                               (scale-float (float 6529695060451631 1.0d0) -167)
1267                               (scale-float (float -6393362274584590 1.0d0) -221)
1268                               (scale-float (float -6254752461488128 1.0d0) -277))
1269                   (%make-qd-d q0 q1 q2 q3))
1270               #.(multiple-value-bind (q0 q1 q2 q3)
1271                     (renorm-5 (scale-float (float 8443147217093086 1.0d0) -54)
1272                               (scale-float (float -7447457963335574 1.0d0) -108)
1273                               (scale-float (float -6643844760557667 1.0d0) -162)
1274                               (scale-float (float 7249753184337927 1.0d0) -216)
1275                               (scale-float (float 4515101693927424 1.0d0) -270))
1276                   (%make-qd-d q0 q1 q2 q3))
1277               #.(multiple-value-bind (q0 q1 q2 q3)
1278                     (renorm-5 (scale-float (float 8491928673252923 1.0d0) -54)
1279                               (scale-float (float 8459131853498433 1.0d0) -110)
1280                               (scale-float (float 6888360499664938 1.0d0) -164)
1281                               (scale-float (float -5236945859638041 1.0d0) -219)
1282                               (scale-float (float 7442291196362752 1.0d0) -273))
1283                   (%make-qd-d q0 q1 q2 q3))
1284               #.(multiple-value-bind (q0 q1 q2 q3)
1285                     (renorm-5 (scale-float (float 8540630200145957 1.0d0) -54)
1286                               (scale-float (float -5286511185567367 1.0d0) -109)
1287                               (scale-float (float -8135173764139151 1.0d0) -164)
1288                               (scale-float (float -4921009164459924 1.0d0) -218)
1289                               (scale-float (float -7640091499790336 1.0d0) -272))
1290                   (%make-qd-d q0 q1 q2 q3))
1291               #.(multiple-value-bind (q0 q1 q2 q3)
1292                     (renorm-5 (scale-float (float 8589251339374868 1.0d0) -54)
1293                               (scale-float (float -6680873419295655 1.0d0) -109)
1294                               (scale-float (float -8554354988263275 1.0d0) -164)
1295                               (scale-float (float 7339900865625287 1.0d0) -218)
1296                               (scale-float (float 4639882940514304 1.0d0) -275))
1297                   (%make-qd-d q0 q1 q2 q3))
1298               #.(multiple-value-bind (q0 q1 q2 q3)
1299                     (renorm-5 (scale-float (float 8637791633298976 1.0d0) -54)
1300                               (scale-float (float 5977631648923170 1.0d0) -108)
1301                               (scale-float (float -7623682798863608 1.0d0) -162)
1302                               (scale-float (float 4624107632594484 1.0d0) -218)
1303                               (scale-float (float -7698762918789120 1.0d0) -272))
1304                   (%make-qd-d q0 q1 q2 q3))
1305               #.(multiple-value-bind (q0 q1 q2 q3)
1306                     (renorm-5 (scale-float (float 8686250625038550 1.0d0) -54)
1307                               (scale-float (float -8392536875785958 1.0d0) -108)
1308                               (scale-float (float -4707724355155067 1.0d0) -169)
1309                               (scale-float (float 5500147221680155 1.0d0) -223)
1310                               (scale-float (float -7943631934586880 1.0d0) -277))
1311                   (%make-qd-d q0 q1 q2 q3))
1312               #.(multiple-value-bind (q0 q1 q2 q3)
1313                     (renorm-5 (scale-float (float 8734627858479102 1.0d0) -54)
1314                               (scale-float (float -5852368960712652 1.0d0) -108)
1315                               (scale-float (float -8241530944970066 1.0d0) -164)
1316                               (scale-float (float -7219502451510509 1.0d0) -218)
1317                               (scale-float (float 8301579172839424 1.0d0) -274))
1318                   (%make-qd-d q0 q1 q2 q3))
1319               #.(multiple-value-bind (q0 q1 q2 q3)
1320                     (renorm-5 (scale-float (float 8782922878275687 1.0d0) -54)
1321                               (scale-float (float 4618253045998479 1.0d0) -108)
1322                               (scale-float (float -8548139780246601 1.0d0) -165)
1323                               (scale-float (float -5125184194605572 1.0d0) -221)
1324                               (scale-float (float 4634136227610624 1.0d0) -277))
1325                   (%make-qd-d q0 q1 q2 q3))
1326               #.(multiple-value-bind (q0 q1 q2 q3)
1327                     (renorm-5 (scale-float (float 8831135229857187 1.0d0) -54)
1328                               (scale-float (float -6684581881277189 1.0d0) -110)
1329                               (scale-float (float -8629413596046384 1.0d0) -164)
1330                               (scale-float (float 6391588371080480 1.0d0) -218)
1331                               (scale-float (float 7218057820504064 1.0d0) -272))
1332                   (%make-qd-d q0 q1 q2 q3))
1333               #.(multiple-value-bind (q0 q1 q2 q3)
1334                     (renorm-5 (scale-float (float 8879264459430586 1.0d0) -54)
1335                               (scale-float (float -5326170718959288 1.0d0) -112)
1336                               (scale-float (float 6502706495111478 1.0d0) -166)
1337                               (scale-float (float -8175927755321089 1.0d0) -221)
1338                               (scale-float (float 5117625807405056 1.0d0) -275))
1339                   (%make-qd-d q0 q1 q2 q3))
1340               #.(multiple-value-bind (q0 q1 q2 q3)
1341                     (renorm-5 (scale-float (float 8927310113985246 1.0d0) -54)
1342                               (scale-float (float -6121928410302052 1.0d0) -109)
1343                               (scale-float (float 5839069660685259 1.0d0) -167)
1344                               (scale-float (float 5662811753865077 1.0d0) -223)
1345                               (scale-float (float 8107771649064960 1.0d0) -277))
1346                   (%make-qd-d q0 q1 q2 q3))
1347               #.(multiple-value-bind (q0 q1 q2 q3)
1348                     (renorm-5 (scale-float (float 8975271741297168 1.0d0) -54)
1349                               (scale-float (float -5233310756427739 1.0d0) -108)
1350                               (scale-float (float -8823317657688998 1.0d0) -162)
1351                               (scale-float (float 4654507950124385 1.0d0) -218)
1352                               (scale-float (float -6216207424782336 1.0d0) -272))
1353                   (%make-qd-d q0 q1 q2 q3))
1354               #.(multiple-value-bind (q0 q1 q2 q3)
1355                     (renorm-5 (scale-float (float 4511574444966625 1.0d0) -53)
1356                               (scale-float (float -6426118857297543 1.0d0) -107)
1357                               (scale-float (float -6491521190013141 1.0d0) -161)
1358                               (scale-float (float 7186617536341604 1.0d0) -215)
1359                               (scale-float (float 6990809699385344 1.0d0) -271))
1360                   (%make-qd-d q0 q1 q2 q3))
1361               #.(multiple-value-bind (q0 q1 q2 q3)
1362                     (renorm-5 (scale-float (float 4535470554627767 1.0d0) -53)
1363                               (scale-float (float -5429619939489420 1.0d0) -108)
1364                               (scale-float (float -5927987229493283 1.0d0) -162)
1365                               (scale-float (float 8625723713246926 1.0d0) -217)
1366                               (scale-float (float 6472651296374784 1.0d0) -271))
1367                   (%make-qd-d q0 q1 q2 q3))
1368               #.(multiple-value-bind (q0 q1 q2 q3)
1369                     (renorm-5 (scale-float (float 4559323974712726 1.0d0) -53)
1370                               (scale-float (float -7840626733224058 1.0d0) -107)
1371                               (scale-float (float 5428491030047448 1.0d0) -162)
1372                               (scale-float (float 8993628089295535 1.0d0) -217)
1373                               (scale-float (float -4802179639607296 1.0d0) -271))
1374                   (%make-qd-d q0 q1 q2 q3))
1375               #.(multiple-value-bind (q0 q1 q2 q3)
1376                     (renorm-5 (scale-float (float 4583134480704026 1.0d0) -53)
1377                               (scale-float (float 7761991876870000 1.0d0) -107)
1378                               (scale-float (float -6271024629654463 1.0d0) -162)
1379                               (scale-float (float 5752025628139535 1.0d0) -217)
1380                               (scale-float (float 5915389374300160 1.0d0) -271))
1381                   (%make-qd-d q0 q1 q2 q3))
1382               #.(multiple-value-bind (q0 q1 q2 q3)
1383                     (renorm-5 (scale-float (float 4606901848488119 1.0d0) -53)
1384                               (scale-float (float -8494598453042205 1.0d0) -109)
1385                               (scale-float (float 4785427941994550 1.0d0) -163)
1386                               (scale-float (float -7993664237807223 1.0d0) -217)
1387                               (scale-float (float 5685423035973632 1.0d0) -272))
1388                   (%make-qd-d q0 q1 q2 q3))
1389               #.(multiple-value-bind (q0 q1 q2 q3)
1390                     (renorm-5 (scale-float (float 4630625854357486 1.0d0) -53)
1391                               (scale-float (float -7417310864687212 1.0d0) -107)
1392                               (scale-float (float 4527229152853963 1.0d0) -161)
1393                               (scale-float (float -5445479406340099 1.0d0) -217)
1394                               (scale-float (float -8528540161802240 1.0d0) -273))
1395                   (%make-qd-d q0 q1 q2 q3))
1396               #.(multiple-value-bind (q0 q1 q2 q3)
1397                     (renorm-5 (scale-float (float 4654306275012748 1.0d0) -53)
1398                               (scale-float (float 5388216318289433 1.0d0) -109)
1399                               (scale-float (float 6810717761619515 1.0d0) -163)
1400                               (scale-float (float -4804851653177209 1.0d0) -217)
1401                               (scale-float (float -5911309836353536 1.0d0) -271))
1402                   (%make-qd-d q0 q1 q2 q3))
1403               #.(multiple-value-bind (q0 q1 q2 q3)
1404                     (renorm-5 (scale-float (float 4677942887564769 1.0d0) -53)
1405                               (scale-float (float -8978008309930964 1.0d0) -107)
1406                               (scale-float (float -5916790110693661 1.0d0) -167)
1407                               (scale-float (float -8118978520081596 1.0d0) -221)
1408                               (scale-float (float -5330927914319872 1.0d0) -275))
1409                   (%make-qd-d q0 q1 q2 q3))
1410               #.(multiple-value-bind (q0 q1 q2 q3)
1411                     (renorm-5 (scale-float (float 4701535469536748 1.0d0) -53)
1412                               (scale-float (float -7554109741206949 1.0d0) -107)
1413                               (scale-float (float 5422636526155651 1.0d0) -163)
1414                               (scale-float (float -5639775327748784 1.0d0) -220)
1415                               (scale-float (float -4829205204828160 1.0d0) -275))
1416                   (%make-qd-d q0 q1 q2 q3))
1417               #.(multiple-value-bind (q0 q1 q2 q3)
1418                     (renorm-5 (scale-float (float 4725083798866319 1.0d0) -53)
1419                               (scale-float (float -6988323544295858 1.0d0) -107)
1420                               (scale-float (float -4912183619887695 1.0d0) -163)
1421                               (scale-float (float -6359206876678376 1.0d0) -218)
1422                               (scale-float (float -5407918016692224 1.0d0) -274))
1423                   (%make-qd-d q0 q1 q2 q3))
1424               #.(multiple-value-bind (q0 q1 q2 q3)
1425                     (renorm-5 (scale-float (float 4748587653907638 1.0d0) -53)
1426                               (scale-float (float -6847825579591004 1.0d0) -107)
1427                               (scale-float (float 5003358265465959 1.0d0) -162)
1428                               (scale-float (float 8422280950230119 1.0d0) -216)
1429                               (scale-float (float 8433490093867008 1.0d0) -271))
1430                   (%make-qd-d q0 q1 q2 q3))
1431               #.(multiple-value-bind (q0 q1 q2 q3)
1432                     (renorm-5 (scale-float (float 4772046813433470 1.0d0) -53)
1433                               (scale-float (float -7799453234034926 1.0d0) -107)
1434                               (scale-float (float 6817580222556671 1.0d0) -163)
1435                               (scale-float (float -7560644201550137 1.0d0) -219)
1436                               (scale-float (float 4511177827942400 1.0d0) -273))
1437                   (%make-qd-d q0 q1 q2 q3))
1438               #.(multiple-value-bind (q0 q1 q2 q3)
1439                     (renorm-5 (scale-float (float 4795461056637271 1.0d0) -53)
1440                               (scale-float (float -6655925208907997 1.0d0) -107)
1441                               (scale-float (float -5623857240635796 1.0d0) -161)
1442                               (scale-float (float -8070601107899198 1.0d0) -215)
1443                               (scale-float (float 7784203411095552 1.0d0) -269))
1444                   (%make-qd-d q0 q1 q2 q3))
1445               #.(multiple-value-bind (q0 q1 q2 q3)
1446                     (renorm-5 (scale-float (float 4818830163135267 1.0d0) -53)
1447                               (scale-float (float -8710586291184881 1.0d0) -107)
1448                               (scale-float (float -8126282278485839 1.0d0) -162)
1449                               (scale-float (float 5719317781414307 1.0d0) -217)
1450                               (scale-float (float 7015619784343552 1.0d0) -277))
1451                   (%make-qd-d q0 q1 q2 q3))
1452               #.(multiple-value-bind (q0 q1 q2 q3)
1453                     (renorm-5 (scale-float (float 4842153912968527 1.0d0) -53)
1454                               (scale-float (float -7339754703408720 1.0d0) -108)
1455                               (scale-float (float -6990336495915397 1.0d0) -163)
1456                               (scale-float (float 5257934322964996 1.0d0) -220)
1457                               (scale-float (float 5758322719588352 1.0d0) -274))
1458                   (%make-qd-d q0 q1 q2 q3))
1459               #.(multiple-value-bind (q0 q1 q2 q3)
1460                     (renorm-5 (scale-float (float 4865432086605035 1.0d0) -53)
1461                               (scale-float (float 8785511657898515 1.0d0) -108)
1462                               (scale-float (float 6839125971928921 1.0d0) -162)
1463                               (scale-float (float -6223394966801216 1.0d0) -216)
1464                               (scale-float (float -4552744967618560 1.0d0) -270))
1465                   (%make-qd-d q0 q1 q2 q3))
1466               #.(multiple-value-bind (q0 q1 q2 q3)
1467                     (renorm-5 (scale-float (float 4888664464941756 1.0d0) -53)
1468                               (scale-float (float 5564928859020974 1.0d0) -108)
1469                               (scale-float (float -7907253462425933 1.0d0) -162)
1470                               (scale-float (float 5236591704896374 1.0d0) -216)
1471                               (scale-float (float 7437180777906176 1.0d0) -270))
1472                   (%make-qd-d q0 q1 q2 q3))
1473               #.(multiple-value-bind (q0 q1 q2 q3)
1474                     (renorm-5 (scale-float (float 4911850829306697 1.0d0) -53)
1475                               (scale-float (float -6736651049305461 1.0d0) -107)
1476                               (scale-float (float -8955456639116160 1.0d0) -162)
1477                               (scale-float (float 6701012809879390 1.0d0) -216)
1478                               (scale-float (float 7989770023075840 1.0d0) -275))
1479                   (%make-qd-d q0 q1 q2 q3))
1480               #.(multiple-value-bind (q0 q1 q2 q3)
1481                     (renorm-5 (scale-float (float 4934990961460965 1.0d0) -53)
1482                               (scale-float (float -7809824017498950 1.0d0) -108)
1483                               (scale-float (float -5333685159010237 1.0d0) -170)
1484                               (scale-float (float -7013163948693077 1.0d0) -224)
1485                               (scale-float (float -7603687610384384 1.0d0) -280))
1486                   (%make-qd-d q0 q1 q2 q3))
1487               #.(multiple-value-bind (q0 q1 q2 q3)
1488                     (renorm-5 (scale-float (float 4958084643600824 1.0d0) -53)
1489                               (scale-float (float -5407770883530058 1.0d0) -109)
1490                               (scale-float (float -5391994932415003 1.0d0) -164)
1491                               (scale-float (float 8910660424091807 1.0d0) -218)
1492                               (scale-float (float -4742718246092800 1.0d0) -272))
1493                   (%make-qd-d q0 q1 q2 q3))
1494               #.(multiple-value-bind (q0 q1 q2 q3)
1495                     (renorm-5 (scale-float (float 4981131658359743 1.0d0) -53)
1496                               (scale-float (float -7636170899049036 1.0d0) -107)
1497                               (scale-float (float -6206770363233629 1.0d0) -162)
1498                               (scale-float (float -6822684679023966 1.0d0) -218)
1499                               (scale-float (float 7403295272861696 1.0d0) -273))
1500                   (%make-qd-d q0 q1 q2 q3))
1501               #.(multiple-value-bind (q0 q1 q2 q3)
1502                     (renorm-5 (scale-float (float 5004131788810440 1.0d0) -53)
1503                               (scale-float (float 7641456135071232 1.0d0) -107)
1504                               (scale-float (float -6033230867222893 1.0d0) -161)
1505                               (scale-float (float 6471526251842736 1.0d0) -215)
1506                               (scale-float (float 7371837832855552 1.0d0) -270))
1507                   (%make-qd-d q0 q1 q2 q3))
1508               #.(multiple-value-bind (q0 q1 q2 q3)
1509                     (renorm-5 (scale-float (float 5027084818466930 1.0d0) -53)
1510                               (scale-float (float 8749783685054072 1.0d0) -109)
1511                               (scale-float (float -6432564900081691 1.0d0) -163)
1512                               (scale-float (float -4946481004218511 1.0d0) -217)
1513                               (scale-float (float 7036909802094592 1.0d0) -271))
1514                   (%make-qd-d q0 q1 q2 q3))
1515               #.(multiple-value-bind (q0 q1 q2 q3)
1516                     (renorm-5 (scale-float (float 5049990531286555 1.0d0) -53)
1517                               (scale-float (float -4800045970584779 1.0d0) -109)
1518                               (scale-float (float 4639463359548121 1.0d0) -163)
1519                               (scale-float (float 6739134100775357 1.0d0) -217)
1520                               (scale-float (float -6512123275313152 1.0d0) -271))
1521                   (%make-qd-d q0 q1 q2 q3))
1522               #.(multiple-value-bind (q0 q1 q2 q3)
1523                     (renorm-5 (scale-float (float 5072848711672022 1.0d0) -53)
1524                               (scale-float (float 7735151275984803 1.0d0) -108)
1525                               (scale-float (float 6319202510957152 1.0d0) -165)
1526                               (scale-float (float 7852194967309185 1.0d0) -219)
1527                               (scale-float (float 8522408257650688 1.0d0) -273))
1528                   (%make-qd-d q0 q1 q2 q3))
1529               #.(multiple-value-bind (q0 q1 q2 q3)
1530                     (renorm-5 (scale-float (float 5095659144473433 1.0d0) -53)
1531                               (scale-float (float -5532405218054066 1.0d0) -107)
1532                               (scale-float (float -4990528183184909 1.0d0) -161)
1533                               (scale-float (float 4694142170446455 1.0d0) -215)
1534                               (scale-float (float 4959870619623424 1.0d0) -269))
1535                   (%make-qd-d q0 q1 q2 q3))
1536               #.(multiple-value-bind (q0 q1 q2 q3)
1537                     (renorm-5 (scale-float (float 5118421614990306 1.0d0) -53)
1538                               (scale-float (float -8264785570084562 1.0d0) -107)
1539                               (scale-float (float -4756999690706873 1.0d0) -161)
1540                               (scale-float (float 8271914155363375 1.0d0) -219)
1541                               (scale-float (float 8618867845365760 1.0d0) -273))
1542                   (%make-qd-d q0 q1 q2 q3))
1543               #.(multiple-value-bind (q0 q1 q2 q3)
1544                     (renorm-5 (scale-float (float 5141135908973599 1.0d0) -53)
1545                               (scale-float (float 7972820976421517 1.0d0) -108)
1546                               (scale-float (float -7508892149590212 1.0d0) -162)
1547                               (scale-float (float -7598338450058821 1.0d0) -218)
1548                               (scale-float (float -7523805491494912 1.0d0) -273))
1549                   (%make-qd-d q0 q1 q2 q3))
1550               #.(multiple-value-bind (q0 q1 q2 q3)
1551                     (renorm-5 (scale-float (float 5163801812627728 1.0d0) -53)
1552                               (scale-float (float 5528278164889757 1.0d0) -109)
1553                               (scale-float (float -7534708412684668 1.0d0) -163)
1554                               (scale-float (float 4748764085926481 1.0d0) -217)
1555                               (scale-float (float 7408881401200640 1.0d0) -273))
1556                   (%make-qd-d q0 q1 q2 q3))
1557               #.(multiple-value-bind (q0 q1 q2 q3)
1558                     (renorm-5 (scale-float (float 5186419112612575 1.0d0) -53)
1559                               (scale-float (float -6151167318128396 1.0d0) -107)
1560                               (scale-float (float -8018890614716932 1.0d0) -161)
1561                               (scale-float (float 5861072145574035 1.0d0) -215)
1562                               (scale-float (float -6777560767791104 1.0d0) -269))
1563                   (%make-qd-d q0 q1 q2 q3))
1564               #.(multiple-value-bind (q0 q1 q2 q3)
1565                     (renorm-5 (scale-float (float 5208987596045498 1.0d0) -53)
1566                               (scale-float (float -8514617700931210 1.0d0) -108)
1567                               (scale-float (float 7996782571413148 1.0d0) -162)
1568                               (scale-float (float -6615677919703496 1.0d0) -217)
1569                               (scale-float (float -8592814844411904 1.0d0) -274))
1570                   (%make-qd-d q0 q1 q2 q3))
1571               #.(multiple-value-bind (q0 q1 q2 q3)
1572                     (renorm-5 (scale-float (float 5231507050503336 1.0d0) -53)
1573                               (scale-float (float 6031287197379932 1.0d0) -108)
1574                               (scale-float (float 6471258723704346 1.0d0) -164)
1575                               (scale-float (float 8258737189713217 1.0d0) -218)
1576                               (scale-float (float 7567381847080960 1.0d0) -277))
1577                   (%make-qd-d q0 q1 q2 q3))
1578               #.(multiple-value-bind (q0 q1 q2 q3)
1579                     (renorm-5 (scale-float (float 5253977264024408 1.0d0) -53)
1580                               (scale-float (float 8961021967501223 1.0d0) -111)
1581                               (scale-float (float 8449105812948238 1.0d0) -165)
1582                               (scale-float (float -5388110305851105 1.0d0) -219)
1583                               (scale-float (float -7044177615388672 1.0d0) -278))
1584                   (%make-qd-d q0 q1 q2 q3))
1585               #.(multiple-value-bind (q0 q1 q2 q3)
1586                     (renorm-5 (scale-float (float 5276398025110506 1.0d0) -53)
1587                               (scale-float (float -4865896352247366 1.0d0) -110)
1588                               (scale-float (float 6539437345050652 1.0d0) -164)
1589                               (scale-float (float -6050564890654524 1.0d0) -219)
1590                               (scale-float (float 5949983326994432 1.0d0) -276))
1591                   (%make-qd-d q0 q1 q2 q3))
1592               #.(multiple-value-bind (q0 q1 q2 q3)
1593                     (renorm-5 (scale-float (float 5298769122728888 1.0d0) -53)
1594                               (scale-float (float -4752925789560358 1.0d0) -107)
1595                               (scale-float (float -6940658006329329 1.0d0) -161)
1596                               (scale-float (float -4874539996486145 1.0d0) -218)
1597                               (scale-float (float 7343781472239616 1.0d0) -272))
1598                   (%make-qd-d q0 q1 q2 q3))
1599               #.(multiple-value-bind (q0 q1 q2 q3)
1600                     (renorm-5 (scale-float (float 5321090346314263 1.0d0) -53)
1601                               (scale-float (float -7628390168680570 1.0d0) -107)
1602                               (scale-float (float 7251508591837652 1.0d0) -161)
1603                               (scale-float (float 5307279358527743 1.0d0) -218)
1604                               (scale-float (float -7589365976268800 1.0d0) -273))
1605                   (%make-qd-d q0 q1 q2 q3))
1606               #.(multiple-value-bind (q0 q1 q2 q3)
1607                     (renorm-5 (scale-float (float 5343361485770773 1.0d0) -53)
1608                               (scale-float (float 8367594692216948 1.0d0) -109)
1609                               (scale-float (float 6203590959579987 1.0d0) -163)
1610                               (scale-float (float 8665448091350130 1.0d0) -217)
1611                               (scale-float (float 7720213071331328 1.0d0) -272))
1612                   (%make-qd-d q0 q1 q2 q3))
1613               #.(multiple-value-bind (q0 q1 q2 q3)
1614                     (renorm-5 (scale-float (float 5365582331473973 1.0d0) -53)
1615                               (scale-float (float -8722177288784495 1.0d0) -109)
1616                               (scale-float (float -6349014528983703 1.0d0) -166)
1617                               (scale-float (float 8570508217536058 1.0d0) -220)
1618                               (scale-float (float 5525942506094592 1.0d0) -275))
1619                   (%make-qd-d q0 q1 q2 q3))
1620               #.(multiple-value-bind (q0 q1 q2 q3)
1621                     (renorm-5 (scale-float (float 5387752674272799 1.0d0) -53)
1622                               (scale-float (float 6295965926759422 1.0d0) -107)
1623                               (scale-float (float -7064411274953418 1.0d0) -162)
1624                               (scale-float (float -8521156802129240 1.0d0) -217)
1625                               (scale-float (float 7485998772518912 1.0d0) -276))
1626                   (%make-qd-d q0 q1 q2 q3))
1627               #.(multiple-value-bind (q0 q1 q2 q3)
1628                     (renorm-5 (scale-float (float 5409872305491543 1.0d0) -53)
1629                               (scale-float (float -7528538090890981 1.0d0) -107)
1630                               (scale-float (float -4873667464989738 1.0d0) -161)
1631                               (scale-float (float 5474430362703076 1.0d0) -216)
1632                               (scale-float (float 6624897617756160 1.0d0) -272))
1633                   (%make-qd-d q0 q1 q2 q3))
1634               #.(multiple-value-bind (q0 q1 q2 q3)
1635                     (renorm-5 (scale-float (float 5431941016931809 1.0d0) -53)
1636                               (scale-float (float 6056061026085675 1.0d0) -107)
1637                               (scale-float (float 8117741563781443 1.0d0) -161)
1638                               (scale-float (float -8527257181106372 1.0d0) -215)
1639                               (scale-float (float -6995774656077824 1.0d0) -269))
1640                   (%make-qd-d q0 q1 q2 q3))
1641               #.(multiple-value-bind (q0 q1 q2 q3)
1642                     (renorm-5 (scale-float (float 5453958600874483 1.0d0) -53)
1643                               (scale-float (float -5062923073902567 1.0d0) -107)
1644                               (scale-float (float 7460245243959813 1.0d0) -162)
1645                               (scale-float (float -8605987486451288 1.0d0) -217)
1646                               (scale-float (float 6674159906947072 1.0d0) -271))
1647                   (%make-qd-d q0 q1 q2 q3))
1648               #.(multiple-value-bind (q0 q1 q2 q3)
1649                     (renorm-5 (scale-float (float 5475924850081677 1.0d0) -53)
1650                               (scale-float (float 5705171231787006 1.0d0) -107)
1651                               (scale-float (float -5973740103346300 1.0d0) -164)
1652                               (scale-float (float -5933426595796939 1.0d0) -218)
1653                               (scale-float (float -7551225704611840 1.0d0) -273))
1654                   (%make-qd-d q0 q1 q2 q3))
1655               #.(multiple-value-bind (q0 q1 q2 q3)
1656                     (renorm-5 (scale-float (float 5497839557798690 1.0d0) -53)
1657                               (scale-float (float -7322198333974194 1.0d0) -108)
1658                               (scale-float (float 7708295787222922 1.0d0) -162)
1659                               (scale-float (float 8668959416020342 1.0d0) -216)
1660                               (scale-float (float 6087956852113408 1.0d0) -272))
1661                   (%make-qd-d q0 q1 q2 q3))
1662               #.(multiple-value-bind (q0 q1 q2 q3)
1663                     (renorm-5 (scale-float (float 5519702517755945 1.0d0) -53)
1664                               (scale-float (float -5541930106652097 1.0d0) -110)
1665                               (scale-float (float 6042424392306259 1.0d0) -164)
1666                               (scale-float (float 7112544487152837 1.0d0) -218)
1667                               (scale-float (float -5854708334592000 1.0d0) -272))
1668                   (%make-qd-d q0 q1 q2 q3))
1669               #.(multiple-value-bind (q0 q1 q2 q3)
1670                     (renorm-5 (scale-float (float 5541513524170937 1.0d0) -53)
1671                               (scale-float (float 8512581754243428 1.0d0) -108)
1672                               (scale-float (float -8240160558210729 1.0d0) -162)
1673                               (scale-float (float 7588665830274554 1.0d0) -216)
1674                               (scale-float (float -6504131954491392 1.0d0) -270))
1675                   (%make-qd-d q0 q1 q2 q3))
1676               #.(multiple-value-bind (q0 q1 q2 q3)
1677                     (renorm-5 (scale-float (float 5563272371750168 1.0d0) -53)
1678                               (scale-float (float -7703842410206491 1.0d0) -107)
1679                               (scale-float (float -8533597952376245 1.0d0) -163)
1680                               (scale-float (float -6350821420004830 1.0d0) -217)
1681                               (scale-float (float 7273129369075712 1.0d0) -271))
1682                   (%make-qd-d q0 q1 q2 q3))
1683               #.(multiple-value-bind (q0 q1 q2 q3)
1684                     (renorm-5 (scale-float (float 5584978855691076 1.0d0) -53)
1685                               (scale-float (float -4540568005736910 1.0d0) -107)
1686                               (scale-float (float 6810569017348767 1.0d0) -162)
1687                               (scale-float (float -5743636460441176 1.0d0) -216)
1688                               (scale-float (float -6502230776709120 1.0d0) -271))
1689                   (%make-qd-d q0 q1 q2 q3))
1690               #.(multiple-value-bind (q0 q1 q2 q3)
1691                     (renorm-5 (scale-float (float 5606632771683968 1.0d0) -53)
1692                               (scale-float (float 6872099470811347 1.0d0) -110)
1693                               (scale-float (float -4535230040345874 1.0d0) -166)
1694                               (scale-float (float 6845954161715752 1.0d0) -225)
1695                               (scale-float (float 5601564580380672 1.0d0) -280))
1696                   (%make-qd-d q0 q1 q2 q3))
1697               #.(multiple-value-bind (q0 q1 q2 q3)
1698                     (renorm-5 (scale-float (float 5628233915913940 1.0d0) -53)
1699                               (scale-float (float 5463569387507809 1.0d0) -107)
1700                               (scale-float (float -8139410524833584 1.0d0) -161)
1701                               (scale-float (float 5908305814053563 1.0d0) -216)
1702                               (scale-float (float 6734201719308288 1.0d0) -270))
1703                   (%make-qd-d q0 q1 q2 q3))
1704               #.(multiple-value-bind (q0 q1 q2 q3)
1705                     (renorm-5 (scale-float (float 5649782085062796 1.0d0) -53)
1706                               (scale-float (float 4991677084184053 1.0d0) -107)
1707                               (scale-float (float 6329805746482172 1.0d0) -164)
1708                               (scale-float (float -4706296920171159 1.0d0) -218)
1709                               (scale-float (float 4607403172560896 1.0d0) -273))
1710                   (%make-qd-d q0 q1 q2 q3))
1711               #.(multiple-value-bind (q0 q1 q2 q3)
1712                     (renorm-5 (scale-float (float 5671277076310961 1.0d0) -53)
1713                               (scale-float (float 6671344369483978 1.0d0) -107)
1714                               (scale-float (float -5602658804200812 1.0d0) -161)
1715                               (scale-float (float 5854533570742313 1.0d0) -215)
1716                               (scale-float (float 7577836945825792 1.0d0) -269))
1717                   (%make-qd-d q0 q1 q2 q3))
1718               #.(multiple-value-bind (q0 q1 q2 q3)
1719                     (renorm-5 (scale-float (float 5692718687339392 1.0d0) -53)
1720                               (scale-float (float -6517134490911270 1.0d0) -107)
1721                               (scale-float (float -8442644072947353 1.0d0) -163)
1722                               (scale-float (float 7967700612201239 1.0d0) -217)
1723                               (scale-float (float -5908403881443328 1.0d0) -272))
1724                   (%make-qd-d q0 q1 q2 q3))
1725               #.(multiple-value-bind (q0 q1 q2 q3)
1726                     (renorm-5 (scale-float (float 5714106716331478 1.0d0) -53)
1727                               (scale-float (float 6763552043812531 1.0d0) -109)
1728                               (scale-float (float 4814134823321695 1.0d0) -163)
1729                               (scale-float (float -4874409913813393 1.0d0) -221)
1730                               (scale-float (float 6265799002030080 1.0d0) -277))
1731                   (%make-qd-d q0 q1 q2 q3))
1732               #.(multiple-value-bind (q0 q1 q2 q3)
1733                     (renorm-5 (scale-float (float 5735440961974946 1.0d0) -53)
1734                               (scale-float (float 5098032122654983 1.0d0) -107)
1735                               (scale-float (float -6633387170173303 1.0d0) -161)
1736                               (scale-float (float -8437401866493263 1.0d0) -215)
1737                               (scale-float (float 8850482936709120 1.0d0) -270))
1738                   (%make-qd-d q0 q1 q2 q3))
1739               #.(multiple-value-bind (q0 q1 q2 q3)
1740                     (renorm-5 (scale-float (float 5756721223463751 1.0d0) -53)
1741                               (scale-float (float 8058961560658971 1.0d0) -109)
1742                               (scale-float (float -7260204596373573 1.0d0) -163)
1743                               (scale-float (float 5847373583723548 1.0d0) -217)
1744                               (scale-float (float -4857353439117312 1.0d0) -271))
1745                   (%make-qd-d q0 q1 q2 q3))
1746               #.(multiple-value-bind (q0 q1 q2 q3)
1747                     (renorm-5 (scale-float (float 5777947300499967 1.0d0) -53)
1748                               (scale-float (float -6482805255133693 1.0d0) -109)
1749                               (scale-float (float 4907047913048716 1.0d0) -163)
1750                               (scale-float (float 4800601318416331 1.0d0) -219)
1751                               (scale-float (float 8773454969962496 1.0d0) -275))
1752                   (%make-qd-d q0 q1 q2 q3))
1753               #.(multiple-value-bind (q0 q1 q2 q3)
1754                     (renorm-5 (scale-float (float 5799118993295673 1.0d0) -53)
1755                               (scale-float (float -5206056249695124 1.0d0) -107)
1756                               (scale-float (float -7363227589940729 1.0d0) -162)
1757                               (scale-float (float -8468347824445839 1.0d0) -217)
1758                               (scale-float (float -5240432990945280 1.0d0) -271))
1759                   (%make-qd-d q0 q1 q2 q3))
1760               #.(multiple-value-bind (q0 q1 q2 q3)
1761                     (renorm-5 (scale-float (float 5820236102574833 1.0d0) -53)
1762                               (scale-float (float -4828209332879607 1.0d0) -107)
1763                               (scale-float (float -6006988076989561 1.0d0) -162)
1764                               (scale-float (float 6811807852310658 1.0d0) -219)
1765                               (scale-float (float 5809724755279872 1.0d0) -274))
1766                   (%make-qd-d q0 q1 q2 q3))
1767               #.(multiple-value-bind (q0 q1 q2 q3)
1768                     (renorm-5 (scale-float (float 5841298429575172 1.0d0) -53)
1769                               (scale-float (float 5175456982428321 1.0d0) -110)
1770                               (scale-float (float 4538462653543703 1.0d0) -164)
1771                               (scale-float (float -8728016611215022 1.0d0) -220)
1772                               (scale-float (float 8118126690435072 1.0d0) -277))
1773                   (%make-qd-d q0 q1 q2 q3))
1774               #.(multiple-value-bind (q0 q1 q2 q3)
1775                     (renorm-5 (scale-float (float 5862305776050047 1.0d0) -53)
1776                               (scale-float (float 6444073748996113 1.0d0) -107)
1777                               (scale-float (float 6823119024662590 1.0d0) -164)
1778                               (scale-float (float 6426684369717617 1.0d0) -220)
1779                               (scale-float (float -6584771784998912 1.0d0) -274))
1780                   (%make-qd-d q0 q1 q2 q3))
1781               #.(multiple-value-bind (q0 q1 q2 q3)
1782                     (renorm-5 (scale-float (float 5883257944270313 1.0d0) -53)
1783                               (scale-float (float 5561965163229991 1.0d0) -109)
1784                               (scale-float (float -8086818543630428 1.0d0) -163)
1785                               (scale-float (float 5028398904287973 1.0d0) -217)
1786                               (scale-float (float -7931166882234368 1.0d0) -271))
1787                   (%make-qd-d q0 q1 q2 q3))
1788               #.(multiple-value-bind (q0 q1 q2 q3)
1789                     (renorm-5 (scale-float (float 5904154737026182 1.0d0) -53)
1790                               (scale-float (float 5782715275133621 1.0d0) -107)
1791                               (scale-float (float 7421719155960077 1.0d0) -162)
1792                               (scale-float (float 4632156185190014 1.0d0) -216)
1793                               (scale-float (float -5738789061853184 1.0d0) -271))
1794                   (%make-qd-d q0 q1 q2 q3))
1795               #.(multiple-value-bind (q0 q1 q2 q3)
1796                     (renorm-5 (scale-float (float 5924995957629083 1.0d0) -53)
1797                               (scale-float (float 6354379320602223 1.0d0) -108)
1798                               (scale-float (float -6982629383914688 1.0d0) -162)
1799                               (scale-float (float 6014680402693896 1.0d0) -217)
1800                               (scale-float (float -8539292463071232 1.0d0) -272))
1801                   (%make-qd-d q0 q1 q2 q3))
1802               #.(multiple-value-bind (q0 q1 q2 q3)
1803                     (renorm-5 (scale-float (float 5945781409913510 1.0d0) -53)
1804                               (scale-float (float -5798779723014377 1.0d0) -115)
1805                               (scale-float (float 4603157000630414 1.0d0) -169)
1806                               (scale-float (float 7213200979097056 1.0d0) -223)
1807                               (scale-float (float -8826565714509824 1.0d0) -277))
1808                   (%make-qd-d q0 q1 q2 q3))
1809               #.(multiple-value-bind (q0 q1 q2 q3)
1810                     (renorm-5 (scale-float (float 5966510898238870 1.0d0) -53)
1811                               (scale-float (float -7339152233857623 1.0d0) -108)
1812                               (scale-float (float 5866707295710201 1.0d0) -163)
1813                               (scale-float (float 6142346235706265 1.0d0) -217)
1814                               (scale-float (float 8313774792736768 1.0d0) -271))
1815                   (%make-qd-d q0 q1 q2 q3))
1816               #.(multiple-value-bind (q0 q1 q2 q3)
1817                     (renorm-5 (scale-float (float 5987184227491324 1.0d0) -53)
1818                               (scale-float (float -5878295590335062 1.0d0) -107)
1819                               (scale-float (float -5296945800600359 1.0d0) -162)
1820                               (scale-float (float 6511887897632255 1.0d0) -217)
1821                               (scale-float (float 5276882688147456 1.0d0) -271))
1822                   (%make-qd-d q0 q1 q2 q3))
1823               #.(multiple-value-bind (q0 q1 q2 q3)
1824                     (renorm-5 (scale-float (float 6007801203085623 1.0d0) -53)
1825                               (scale-float (float 5725215547860703 1.0d0) -107)
1826                               (scale-float (float -6069357457640343 1.0d0) -162)
1827                               (scale-float (float 7773390546671458 1.0d0) -216)
1828                               (scale-float (float 7968963672981504 1.0d0) -270))
1829                   (%make-qd-d q0 q1 q2 q3))
1830               #.(multiple-value-bind (q0 q1 q2 q3)
1831                     (renorm-5 (scale-float (float 6028361630966943 1.0d0) -53)
1832                               (scale-float (float -8858164301443705 1.0d0) -107)
1833                               (scale-float (float -7360418845574603 1.0d0) -161)
1834                               (scale-float (float -8881973385408916 1.0d0) -215)
1835                               (scale-float (float 8555186859573248 1.0d0) -270))
1836                   (%make-qd-d q0 q1 q2 q3))
1837               #.(multiple-value-bind (q0 q1 q2 q3)
1838                     (renorm-5 (scale-float (float 6048865317612704 1.0d0) -53)
1839                               (scale-float (float -6569721984711602 1.0d0) -107)
1840                               (scale-float (float 7481914584676442 1.0d0) -164)
1841                               (scale-float (float -5916197970128717 1.0d0) -218)
1842                               (scale-float (float -7836459686559744 1.0d0) -272))
1843                   (%make-qd-d q0 q1 q2 q3))
1844               #.(multiple-value-bind (q0 q1 q2 q3)
1845                     (renorm-5 (scale-float (float 6069312070034399 1.0d0) -53)
1846                               (scale-float (float 7493750390382232 1.0d0) -108)
1847                               (scale-float (float 6714493630887683 1.0d0) -163)
1848                               (scale-float (float 4735122177247567 1.0d0) -218)
1849                               (scale-float (float -4941962754916352 1.0d0) -274))
1850                   (%make-qd-d q0 q1 q2 q3))
1851               #.(multiple-value-bind (q0 q1 q2 q3)
1852                     (renorm-5 (scale-float (float 6089701695779408 1.0d0) -53)
1853                               (scale-float (float 6045278015665200 1.0d0) -107)
1854                               (scale-float (float 4986473437314348 1.0d0) -161)
1855                               (scale-float (float 5124830363027071 1.0d0) -215)
1856                               (scale-float (float -8685303774765056 1.0d0) -269))
1857                   (%make-qd-d q0 q1 q2 q3))
1858               #.(multiple-value-bind (q0 q1 q2 q3)
1859                     (renorm-5 (scale-float (float 6110034002932808 1.0d0) -53)
1860                               (scale-float (float 5939368762867376 1.0d0) -108)
1861                               (scale-float (float 5567834601844250 1.0d0) -162)
1862                               (scale-float (float 5300167663866890 1.0d0) -216)
1863                               (scale-float (float 6738040557109248 1.0d0) -271))
1864                   (%make-qd-d q0 q1 q2 q3))
1865               #.(multiple-value-bind (q0 q1 q2 q3)
1866                     (renorm-5 (scale-float (float 6130308800119180 1.0d0) -53)
1867                               (scale-float (float 4620055988650794 1.0d0) -107)
1868                               (scale-float (float 4832520168769970 1.0d0) -163)
1869                               (scale-float (float 8968190560224699 1.0d0) -217)
1870                               (scale-float (float 7514552917917696 1.0d0) -271))
1871                   (%make-qd-d q0 q1 q2 q3))
1872               #.(multiple-value-bind (q0 q1 q2 q3)
1873                     (renorm-5 (scale-float (float 6150525896504412 1.0d0) -53)
1874                               (scale-float (float -8410260520695715 1.0d0) -109)
1875                               (scale-float (float 8554993117360727 1.0d0) -165)
1876                               (scale-float (float 5819339724088257 1.0d0) -220)
1877                               (scale-float (float 8400329153183744 1.0d0) -274))
1878                   (%make-qd-d q0 q1 q2 q3))
1879               #.(multiple-value-bind (q0 q1 q2 q3)
1880                     (renorm-5 (scale-float (float 6170685101797492 1.0d0) -53)
1881                               (scale-float (float 8420651303499559 1.0d0) -108)
1882                               (scale-float (float -4970902812289148 1.0d0) -162)
1883                               (scale-float (float -7326795827672023 1.0d0) -216)
1884                               (scale-float (float 7224475175321600 1.0d0) -271))
1885                   (%make-qd-d q0 q1 q2 q3))
1886               #.(multiple-value-bind (q0 q1 q2 q3)
1887                     (renorm-5 (scale-float (float 6190786226252304 1.0d0) -53)
1888                               (scale-float (float -8949598425759774 1.0d0) -107)
1889                               (scale-float (float 6954695760200578 1.0d0) -162)
1890                               (scale-float (float -6614108672187788 1.0d0) -219)
1891                               (scale-float (float 5154762600218624 1.0d0) -275))
1892                   (%make-qd-d q0 q1 q2 q3))
1893               #.(multiple-value-bind (q0 q1 q2 q3)
1894                     (renorm-5 (scale-float (float 6210829080669407 1.0d0) -53)
1895                               (scale-float (float -5156380214241847 1.0d0) -108)
1896                               (scale-float (float 5334034121559607 1.0d0) -162)
1897                               (scale-float (float 8070176566193680 1.0d0) -217)
1898                               (scale-float (float 8851958962061312 1.0d0) -277))
1899                   (%make-qd-d q0 q1 q2 q3))
1900               #.(multiple-value-bind (q0 q1 q2 q3)
1901                     (renorm-5 (scale-float (float 6230813476397823 1.0d0) -53)
1902                               (scale-float (float 8893780947316055 1.0d0) -108)
1903                               (scale-float (float 7767301829960617 1.0d0) -162)
1904                               (scale-float (float 7179345590973681 1.0d0) -222)
1905                               (scale-float (float 5937979382038528 1.0d0) -277))
1906                   (%make-qd-d q0 q1 q2 q3))
1907               #.(multiple-value-bind (q0 q1 q2 q3)
1908                     (renorm-5 (scale-float (float 6250739225336809 1.0d0) -53)
1909                               (scale-float (float 4825271369095292 1.0d0) -109)
1910                               (scale-float (float 8776203731192851 1.0d0) -163)
1911                               (scale-float (float -6709656828176138 1.0d0) -218)
1912                               (scale-float (float -6050141510893568 1.0d0) -272))
1913                   (%make-qd-d q0 q1 q2 q3))
1914               #.(multiple-value-bind (q0 q1 q2 q3)
1915                     (renorm-5 (scale-float (float 6270606139937627 1.0d0) -53)
1916                               (scale-float (float -6688989605664720 1.0d0) -107)
1917                               (scale-float (float -5956139094822349 1.0d0) -167)
1918                               (scale-float (float 4660601968416390 1.0d0) -221)
1919                               (scale-float (float -5979205406294016 1.0d0) -275))
1920                   (%make-qd-d q0 q1 q2 q3))
1921               #.(multiple-value-bind (q0 q1 q2 q3)
1922                     (renorm-5 (scale-float (float 6290414033205309 1.0d0) -53)
1923                               (scale-float (float 7948803281116707 1.0d0) -107)
1924                               (scale-float (float 5592877509532575 1.0d0) -161)
1925                               (scale-float (float 5510182001592507 1.0d0) -217)
1926                               (scale-float (float 7841036626427904 1.0d0) -272))
1927                   (%make-qd-d q0 q1 q2 q3))
1928               #.(multiple-value-bind (q0 q1 q2 q3)
1929                     (renorm-5 (scale-float (float 6310162718700422 1.0d0) -53)
1930                               (scale-float (float 5034574382400651 1.0d0) -107)
1931                               (scale-float (float 5591018388425185 1.0d0) -162)
1932                               (scale-float (float 7733615070437822 1.0d0) -220)
1933                               (scale-float (float -8216659223379968 1.0d0) -276))
1934                   (%make-qd-d q0 q1 q2 q3))
1935               #.(multiple-value-bind (q0 q1 q2 q3)
1936                     (renorm-5 (scale-float (float 6329852010540816 1.0d0) -53)
1937                               (scale-float (float 6562620425861985 1.0d0) -111)
1938                               (scale-float (float -8136290568547131 1.0d0) -166)
1939                               (scale-float (float 8426790677064153 1.0d0) -220)
1940                               (scale-float (float -7975017094316032 1.0d0) -274))
1941                   (%make-qd-d q0 q1 q2 q3))
1942               #.(multiple-value-bind (q0 q1 q2 q3)
1943                     (renorm-5 (scale-float (float 6349481723403377 1.0d0) -53)
1944                               (scale-float (float 8959543695439504 1.0d0) -108)
1945                               (scale-float (float 6972321431588115 1.0d0) -164)
1946                               (scale-float (float 4858285252195155 1.0d0) -218)
1947                               (scale-float (float 5563275298799616 1.0d0) -272))
1948                   (%make-qd-d q0 q1 q2 q3))
1949               #.(multiple-value-bind (q0 q1 q2 q3)
1950                     (renorm-5 (scale-float (float 6369051672525773 1.0d0) -53)
1951                               (scale-float (float -7843040109683798 1.0d0) -107)
1952                               (scale-float (float 6048680740045173 1.0d0) -161)
1953                               (scale-float (float 5197737643093849 1.0d0) -217)
1954                               (scale-float (float 6206530073657344 1.0d0) -274))
1955                   (%make-qd-d q0 q1 q2 q3))))
1956  "Table of sin(k/1024) for k = 1 to 256")
1957
1958(defconstant +qd-cos-table+
1959  (make-array 256 :initial-contents
1960              (list
1961               #.(multiple-value-bind (q0 q1 q2 q3)
1962                     (renorm-5 (scale-float (float 9007156865146114 1.0d0) -53)
1963                               (scale-float (float -6382651775133715 1.0d0) -108)
1964                               (scale-float (float -7372276689025835 1.0d0) -163)
1965                               (scale-float (float 7180257539184632 1.0d0) -223)
1966                               (scale-float (float 4647614729420800 1.0d0) -277))
1967                   (%make-qd-d q0 q1 q2 q3))
1968               #.(multiple-value-bind (q0 q1 q2 q3)
1969                     (renorm-5 (scale-float (float 9007029696760466 1.0d0) -53)
1970                               (scale-float (float 5446736202153207 1.0d0) -107)
1971                               (scale-float (float -5514938334717690 1.0d0) -168)
1972                               (scale-float (float 6645835630926151 1.0d0) -222)
1973                               (scale-float (float 6226651211890688 1.0d0) -276))
1974                   (%make-qd-d q0 q1 q2 q3))
1975               #.(multiple-value-bind (q0 q1 q2 q3)
1976                     (renorm-5 (scale-float (float 9006817750781007 1.0d0) -53)
1977                               (scale-float (float -5115684009971601 1.0d0) -107)
1978                               (scale-float (float 7705986954927589 1.0d0) -161)
1979                               (scale-float (float 5269566330016025 1.0d0) -215)
1980                               (scale-float (float -4652247029481472 1.0d0) -270))
1981                   (%make-qd-d q0 q1 q2 q3))
1982               #.(multiple-value-bind (q0 q1 q2 q3)
1983                     (renorm-5 (scale-float (float 9006521029202651 1.0d0) -53)
1984                               (scale-float (float 6154670017854733 1.0d0) -107)
1985                               (scale-float (float -7959914909379173 1.0d0) -166)
1986                               (scale-float (float -8417733335951937 1.0d0) -220)
1987                               (scale-float (float 8340201740959744 1.0d0) -274))
1988                   (%make-qd-d q0 q1 q2 q3))
1989               #.(multiple-value-bind (q0 q1 q2 q3)
1990                     (renorm-5 (scale-float (float 9006139534818257 1.0d0) -53)
1991                               (scale-float (float -5756604584677720 1.0d0) -107)
1992                               (scale-float (float 4998920502946311 1.0d0) -161)
1993                               (scale-float (float -5647576219871589 1.0d0) -215)
1994                               (scale-float (float -6721652409794560 1.0d0) -271))
1995                   (%make-qd-d q0 q1 q2 q3))
1996               #.(multiple-value-bind (q0 q1 q2 q3)
1997                     (renorm-5 (scale-float (float 9005673271218593 1.0d0) -53)
1998                               (scale-float (float 6109107373172336 1.0d0) -108)
1999                               (scale-float (float -6007767124009731 1.0d0) -163)
2000                               (scale-float (float -8083524655498703 1.0d0) -217)
2001                               (scale-float (float -7072462970978304 1.0d0) -271))
2002                   (%make-qd-d q0 q1 q2 q3))
2003               #.(multiple-value-bind (q0 q1 q2 q3)
2004                     (renorm-5 (scale-float (float 9005122242792311 1.0d0) -53)
2005                               (scale-float (float 6925416919478846 1.0d0) -107)
2006                               (scale-float (float 5571917222010501 1.0d0) -161)
2007                               (scale-float (float -6342027657037425 1.0d0) -216)
2008                               (scale-float (float -4603410360238080 1.0d0) -270))
2009                   (%make-qd-d q0 q1 q2 q3))
2010               #.(multiple-value-bind (q0 q1 q2 q3)
2011                     (renorm-5 (scale-float (float 9004486454725901 1.0d0) -53)
2012                               (scale-float (float -4843680596157643 1.0d0) -107)
2013                               (scale-float (float -5578489598087899 1.0d0) -161)
2014                               (scale-float (float 4716327604025735 1.0d0) -219)
2015                               (scale-float (float -6122578428821504 1.0d0) -274))
2016                   (%make-qd-d q0 q1 q2 q3))
2017               #.(multiple-value-bind (q0 q1 q2 q3)
2018                     (renorm-5 (scale-float (float 9003765913003641 1.0d0) -53)
2019                               (scale-float (float -6682155943911976 1.0d0) -107)
2020                               (scale-float (float 6113568212113372 1.0d0) -161)
2021                               (scale-float (float 8572777647471794 1.0d0) -216)
2022                               (scale-float (float -5138763782258688 1.0d0) -270))
2023                   (%make-qd-d q0 q1 q2 q3))
2024               #.(multiple-value-bind (q0 q1 q2 q3)
2025                     (renorm-5 (scale-float (float 9002960624407544 1.0d0) -53)
2026                               (scale-float (float 6658445016247619 1.0d0) -108)
2027                               (scale-float (float -5574027242944025 1.0d0) -163)
2028                               (scale-float (float -6201546866284994 1.0d0) -217)
2029                               (scale-float (float -6038475427643392 1.0d0) -271))
2030                   (%make-qd-d q0 q1 q2 q3))
2031               #.(multiple-value-bind (q0 q1 q2 q3)
2032                     (renorm-5 (scale-float (float 9002070596517294 1.0d0) -53)
2033                               (scale-float (float 6432687535538725 1.0d0) -107)
2034                               (scale-float (float -5555395417668222 1.0d0) -164)
2035                               (scale-float (float -8665438431468013 1.0d0) -222)
2036                               (scale-float (float -5031988419362816 1.0d0) -278))
2037                   (%make-qd-d q0 q1 q2 q3))
2038               #.(multiple-value-bind (q0 q1 q2 q3)
2039                     (renorm-5 (scale-float (float 9001095837710173 1.0d0) -53)
2040                               (scale-float (float -6954195453368662 1.0d0) -107)
2041                               (scale-float (float 7771704866044900 1.0d0) -164)
2042                               (scale-float (float -7039433522181404 1.0d0) -219)
2043                               (scale-float (float -6185930852270080 1.0d0) -273))
2044                   (%make-qd-d q0 q1 q2 q3))
2045               #.(multiple-value-bind (q0 q1 q2 q3)
2046                     (renorm-5 (scale-float (float 9000036357160980 1.0d0) -53)
2047                               (scale-float (float 5957921611966531 1.0d0) -109)
2048                               (scale-float (float 6479270319865368 1.0d0) -163)
2049                               (scale-float (float 5409988246591494 1.0d0) -222)
2050                               (scale-float (float -7994611314196480 1.0d0) -277))
2051                   (%make-qd-d q0 q1 q2 q3))
2052               #.(multiple-value-bind (q0 q1 q2 q3)
2053                     (renorm-5 (scale-float (float 8998892164841951 1.0d0) -53)
2054                               (scale-float (float 6950865384540836 1.0d0) -108)
2055                               (scale-float (float -4621163143123886 1.0d0) -162)
2056                               (scale-float (float -5599064490362240 1.0d0) -216)
2057                               (scale-float (float 5583424856309760 1.0d0) -270))
2058                   (%make-qd-d q0 q1 q2 q3))
2059               #.(multiple-value-bind (q0 q1 q2 q3)
2060                     (renorm-5 (scale-float (float 8997663271522660 1.0d0) -53)
2061                               (scale-float (float -6688535702623983 1.0d0) -108)
2062                               (scale-float (float -7334707016190584 1.0d0) -162)
2063                               (scale-float (float -7916945128397036 1.0d0) -216)
2064                               (scale-float (float -8791179288117248 1.0d0) -271))
2065                   (%make-qd-d q0 q1 q2 q3))
2066               #.(multiple-value-bind (q0 q1 q2 q3)
2067                     (renorm-5 (scale-float (float 8996349688769918 1.0d0) -53)
2068                               (scale-float (float -7977765087521301 1.0d0) -109)
2069                               (scale-float (float 5721708006624170 1.0d0) -164)
2070                               (scale-float (float 4517430183150016 1.0d0) -218)
2071                               (scale-float (float 5871275226955776 1.0d0) -273))
2072                   (%make-qd-d q0 q1 q2 q3))
2073               #.(multiple-value-bind (q0 q1 q2 q3)
2074                     (renorm-5 (scale-float (float 8994951428947667 1.0d0) -53)
2075                               (scale-float (float -7900445453445422 1.0d0) -107)
2076                               (scale-float (float -6891478759949600 1.0d0) -164)
2077                               (scale-float (float -5476513299440062 1.0d0) -218)
2078                               (scale-float (float 8356532741472256 1.0d0) -274))
2079                   (%make-qd-d q0 q1 q2 q3))
2080               #.(multiple-value-bind (q0 q1 q2 q3)
2081                     (renorm-5 (scale-float (float 8993468505216860 1.0d0) -53)
2082                               (scale-float (float -7140359403681271 1.0d0) -108)
2083                               (scale-float (float -7232392529862741 1.0d0) -162)
2084                               (scale-float (float -5246916413682806 1.0d0) -217)
2085                               (scale-float (float -7238965407514624 1.0d0) -272))
2086                   (%make-qd-d q0 q1 q2 q3))
2087               #.(multiple-value-bind (q0 q1 q2 q3)
2088                     (renorm-5 (scale-float (float 8991900931535341 1.0d0) -53)
2089                               (scale-float (float -8416291772118320 1.0d0) -107)
2090                               (scale-float (float 6126729149397296 1.0d0) -162)
2091                               (scale-float (float -6107196519366287 1.0d0) -217)
2092                               (scale-float (float -5238413251313664 1.0d0) -273))
2093                   (%make-qd-d q0 q1 q2 q3))
2094               #.(multiple-value-bind (q0 q1 q2 q3)
2095                     (renorm-5 (scale-float (float 8990248722657709 1.0d0) -53)
2096                               (scale-float (float 4532792009051038 1.0d0) -107)
2097                               (scale-float (float 7138950646897488 1.0d0) -161)
2098                               (scale-float (float -7124028913967965 1.0d0) -216)
2099                               (scale-float (float -8901045372518400 1.0d0) -272))
2100                   (%make-qd-d q0 q1 q2 q3))
2101               #.(multiple-value-bind (q0 q1 q2 q3)
2102                     (renorm-5 (scale-float (float 8988511894135185 1.0d0) -53)
2103                               (scale-float (float 5563435675856346 1.0d0) -108)
2104                               (scale-float (float 6768020100627694 1.0d0) -163)
2105                               (scale-float (float -7801655263446071 1.0d0) -219)
2106                               (scale-float (float -7241441876901888 1.0d0) -274))
2107                   (%make-qd-d q0 q1 q2 q3))
2108               #.(multiple-value-bind (q0 q1 q2 q3)
2109                     (renorm-5 (scale-float (float 8986690462315460 1.0d0) -53)
2110                               (scale-float (float -8565496940783238 1.0d0) -108)
2111                               (scale-float (float -7565304489103248 1.0d0) -165)
2112                               (scale-float (float -8418659784422752 1.0d0) -219)
2113                               (scale-float (float 6926739732430848 1.0d0) -274))
2114                   (%make-qd-d q0 q1 q2 q3))
2115               #.(multiple-value-bind (q0 q1 q2 q3)
2116                     (renorm-5 (scale-float (float 8984784444342543 1.0d0) -53)
2117                               (scale-float (float 7270150983818169 1.0d0) -110)
2118                               (scale-float (float -5563309902486145 1.0d0) -166)
2119                               (scale-float (float -4888785479057611 1.0d0) -231)
2120                               (scale-float (float 7720818968625152 1.0d0) -286))
2121                   (%make-qd-d q0 q1 q2 q3))
2122               #.(multiple-value-bind (q0 q1 q2 q3)
2123                     (renorm-5 (scale-float (float 8982793858156602 1.0d0) -53)
2124                               (scale-float (float 5948275509591605 1.0d0) -109)
2125                               (scale-float (float 7930006667538804 1.0d0) -163)
2126                               (scale-float (float -5809288382338202 1.0d0) -222)
2127                               (scale-float (float -5183447321542656 1.0d0) -276))
2128                   (%make-qd-d q0 q1 q2 q3))
2129               #.(multiple-value-bind (q0 q1 q2 q3)
2130                     (renorm-5 (scale-float (float 8980718722493792 1.0d0) -53)
2131                               (scale-float (float 5430523834411255 1.0d0) -108)
2132                               (scale-float (float -7699162237707398 1.0d0) -162)
2133                               (scale-float (float 8687041402074628 1.0d0) -219)
2134                               (scale-float (float -5875359970492416 1.0d0) -275))
2135                   (%make-qd-d q0 q1 q2 q3))
2136               #.(multiple-value-bind (q0 q1 q2 q3)
2137                     (renorm-5 (scale-float (float 8978559056886080 1.0d0) -53)
2138                               (scale-float (float 7636379253722903 1.0d0) -107)
2139                               (scale-float (float 8304848910636198 1.0d0) -161)
2140                               (scale-float (float -8425631601226793 1.0d0) -216)
2141                               (scale-float (float -7284343497818112 1.0d0) -274))
2142                   (%make-qd-d q0 q1 q2 q3))
2143               #.(multiple-value-bind (q0 q1 q2 q3)
2144                     (renorm-5 (scale-float (float 8976314881661062 1.0d0) -53)
2145                               (scale-float (float 7598393650369643 1.0d0) -109)
2146                               (scale-float (float -8878261545093758 1.0d0) -163)
2147                               (scale-float (float 5997503087615023 1.0d0) -217)
2148                               (scale-float (float -6238645926363136 1.0d0) -272))
2149                   (%make-qd-d q0 q1 q2 q3))
2150               #.(multiple-value-bind (q0 q1 q2 q3)
2151                     (renorm-5 (scale-float (float 8973986217941769 1.0d0) -53)
2152                               (scale-float (float 7357807798683726 1.0d0) -109)
2153                               (scale-float (float 7951143844149272 1.0d0) -164)
2154                               (scale-float (float 5218035394662342 1.0d0) -222)
2155                               (scale-float (float 7027860686503936 1.0d0) -276))
2156                   (%make-qd-d q0 q1 q2 q3))
2157               #.(multiple-value-bind (q0 q1 q2 q3)
2158                     (renorm-5 (scale-float (float 8971573087646471 1.0d0) -53)
2159                               (scale-float (float 7421749611895653 1.0d0) -108)
2160                               (scale-float (float -4581496555918016 1.0d0) -163)
2161                               (scale-float (float -7810225024786925 1.0d0) -217)
2162                               (scale-float (float 7869119827017728 1.0d0) -274))
2163                   (%make-qd-d q0 q1 q2 q3))
2164               #.(multiple-value-bind (q0 q1 q2 q3)
2165                     (renorm-5 (scale-float (float 8969075513488470 1.0d0) -53)
2166                               (scale-float (float -7513223803443073 1.0d0) -108)
2167                               (scale-float (float -7626238511742260 1.0d0) -165)
2168                               (scale-float (float -5366856187311050 1.0d0) -221)
2169                               (scale-float (float -8321992797192192 1.0d0) -279))
2170                   (%make-qd-d q0 q1 q2 q3))
2171               #.(multiple-value-bind (q0 q1 q2 q3)
2172                     (renorm-5 (scale-float (float 8966493518975884 1.0d0) -53)
2173                               (scale-float (float 8329643948299160 1.0d0) -111)
2174                               (scale-float (float -7408252878990684 1.0d0) -170)
2175                               (scale-float (float -7497946385569394 1.0d0) -224)
2176                               (scale-float (float 7582116766285824 1.0d0) -279))
2177                   (%make-qd-d q0 q1 q2 q3))
2178               #.(multiple-value-bind (q0 q1 q2 q3)
2179                     (renorm-5 (scale-float (float 8963827128411430 1.0d0) -53)
2180                               (scale-float (float -6893895888146887 1.0d0) -107)
2181                               (scale-float (float 7784256318365108 1.0d0) -162)
2182                               (scale-float (float 7153652023322651 1.0d0) -216)
2183                               (scale-float (float 4965114949697536 1.0d0) -270))
2184                   (%make-qd-d q0 q1 q2 q3))
2185               #.(multiple-value-bind (q0 q1 q2 q3)
2186                     (renorm-5 (scale-float (float 8961076366892190 1.0d0) -53)
2187                               (scale-float (float 5468892236673259 1.0d0) -110)
2188                               (scale-float (float -7868743052739110 1.0d0) -167)
2189                               (scale-float (float 8477913984177349 1.0d0) -221)
2190                               (scale-float (float -5579356937125888 1.0d0) -276))
2191                   (%make-qd-d q0 q1 q2 q3))
2192               #.(multiple-value-bind (q0 q1 q2 q3)
2193                     (renorm-5 (scale-float (float 8958241260309380 1.0d0) -53)
2194                               (scale-float (float 5962228427073425 1.0d0) -107)
2195                               (scale-float (float -8945355811576285 1.0d0) -161)
2196                               (scale-float (float 5475118791675541 1.0d0) -215)
2197                               (scale-float (float 4625777543659520 1.0d0) -270))
2198                   (%make-qd-d q0 q1 q2 q3))
2199               #.(multiple-value-bind (q0 q1 q2 q3)
2200                     (renorm-5 (scale-float (float 8955321835348103 1.0d0) -53)
2201                               (scale-float (float 7160408339531907 1.0d0) -107)
2202                               (scale-float (float -8800353687418162 1.0d0) -161)
2203                               (scale-float (float 7814338741356067 1.0d0) -216)
2204                               (scale-float (float -5255802045693952 1.0d0) -271))
2205                   (%make-qd-d q0 q1 q2 q3))
2206               #.(multiple-value-bind (q0 q1 q2 q3)
2207                     (renorm-5 (scale-float (float 8952318119487099 1.0d0) -53)
2208                               (scale-float (float -6154445520718857 1.0d0) -108)
2209                               (scale-float (float -5979147254374853 1.0d0) -168)
2210                               (scale-float (float -5754250618745921 1.0d0) -222)
2211                               (scale-float (float 8297896894005248 1.0d0) -276))
2212                   (%make-qd-d q0 q1 q2 q3))
2213               #.(multiple-value-bind (q0 q1 q2 q3)
2214                     (renorm-5 (scale-float (float 8949230140998484 1.0d0) -53)
2215                               (scale-float (float 4827588292883036 1.0d0) -107)
2216                               (scale-float (float -5269205324285223 1.0d0) -163)
2217                               (scale-float (float -7066073884583852 1.0d0) -217)
2218                               (scale-float (float 8372737114701824 1.0d0) -272))
2219                   (%make-qd-d q0 q1 q2 q3))
2220               #.(multiple-value-bind (q0 q1 q2 q3)
2221                     (renorm-5 (scale-float (float 8946057928947489 1.0d0) -53)
2222                               (scale-float (float 5370280075238301 1.0d0) -107)
2223                               (scale-float (float 4557784045899430 1.0d0) -161)
2224                               (scale-float (float 6055026141926995 1.0d0) -218)
2225                               (scale-float (float -7308959128748032 1.0d0) -274))
2226                   (%make-qd-d q0 q1 q2 q3))
2227               #.(multiple-value-bind (q0 q1 q2 q3)
2228                     (renorm-5 (scale-float (float 8942801513192182 1.0d0) -53)
2229                               (scale-float (float -4573932509451197 1.0d0) -108)
2230                               (scale-float (float -6988642513170233 1.0d0) -162)
2231                               (scale-float (float 7903423679430231 1.0d0) -218)
2232                               (scale-float (float -4786535270383616 1.0d0) -272))
2233                   (%make-qd-d q0 q1 q2 q3))
2234               #.(multiple-value-bind (q0 q1 q2 q3)
2235                     (renorm-5 (scale-float (float 8939460924383187 1.0d0) -53)
2236                               (scale-float (float 5045136634195182 1.0d0) -107)
2237                               (scale-float (float -5372361566405903 1.0d0) -161)
2238                               (scale-float (float -6720737022123546 1.0d0) -220)
2239                               (scale-float (float -5558062788640768 1.0d0) -275))
2240                   (%make-qd-d q0 q1 q2 q3))
2241               #.(multiple-value-bind (q0 q1 q2 q3)
2242                     (renorm-5 (scale-float (float 8936036193963400 1.0d0) -53)
2243                               (scale-float (float -6398195821015223 1.0d0) -107)
2244                               (scale-float (float -7337680936016907 1.0d0) -163)
2245                               (scale-float (float -5459780776141598 1.0d0) -218)
2246                               (scale-float (float -5736241082269696 1.0d0) -272))
2247                   (%make-qd-d q0 q1 q2 q3))
2248               #.(multiple-value-bind (q0 q1 q2 q3)
2249                     (renorm-5 (scale-float (float 8932527354167686 1.0d0) -53)
2250                               (scale-float (float -6067949506678475 1.0d0) -111)
2251                               (scale-float (float 5064661831761972 1.0d0) -167)
2252                               (scale-float (float -8471798904647962 1.0d0) -222)
2253                               (scale-float (float -7569794282815488 1.0d0) -278))
2254                   (%make-qd-d q0 q1 q2 q3))
2255               #.(multiple-value-bind (q0 q1 q2 q3)
2256                     (renorm-5 (scale-float (float 8928934438022583 1.0d0) -53)
2257                               (scale-float (float -8175307614637614 1.0d0) -108)
2258                               (scale-float (float -7513563295790417 1.0d0) -162)
2259                               (scale-float (float 5516806786798278 1.0d0) -216)
2260                               (scale-float (float 5289066156359680 1.0d0) -271))
2261                   (%make-qd-d q0 q1 q2 q3))
2262               #.(multiple-value-bind (q0 q1 q2 q3)
2263                     (renorm-5 (scale-float (float 8925257479345985 1.0d0) -53)
2264                               (scale-float (float 4995821998689288 1.0d0) -108)
2265                               (scale-float (float -6313677797518807 1.0d0) -162)
2266                               (scale-float (float 4625503888993559 1.0d0) -220)
2267                               (scale-float (float 8326015007326208 1.0d0) -274))
2268                   (%make-qd-d q0 q1 q2 q3))
2269               #.(multiple-value-bind (q0 q1 q2 q3)
2270                     (renorm-5 (scale-float (float 8921496512746829 1.0d0) -53)
2271                               (scale-float (float -8991019785543599 1.0d0) -107)
2272                               (scale-float (float -8543364032599344 1.0d0) -162)
2273                               (scale-float (float -8075214757855398 1.0d0) -217)
2274                               (scale-float (float -5854745001787392 1.0d0) -271))
2275                   (%make-qd-d q0 q1 q2 q3))
2276               #.(multiple-value-bind (q0 q1 q2 q3)
2277                     (renorm-5 (scale-float (float 8917651573624763 1.0d0) -53)
2278                               (scale-float (float -5534821618232727 1.0d0) -108)
2279                               (scale-float (float 7865766552369999 1.0d0) -162)
2280                               (scale-float (float 7700180873329070 1.0d0) -216)
2281                               (scale-float (float 6973396458733568 1.0d0) -272))
2282                   (%make-qd-d q0 q1 q2 q3))
2283               #.(multiple-value-bind (q0 q1 q2 q3)
2284                     (renorm-5 (scale-float (float 8913722698169820 1.0d0) -53)
2285                               (scale-float (float -8502096954648678 1.0d0) -107)
2286                               (scale-float (float 7870589230495605 1.0d0) -162)
2287                               (scale-float (float 6110391933205275 1.0d0) -216)
2288                               (scale-float (float -6053092350230528 1.0d0) -274))
2289                   (%make-qd-d q0 q1 q2 q3))
2290               #.(multiple-value-bind (q0 q1 q2 q3)
2291                     (renorm-5 (scale-float (float 8909709923362071 1.0d0) -53)
2292                               (scale-float (float -6650571269560095 1.0d0) -107)
2293                               (scale-float (float -5244751855479113 1.0d0) -163)
2294                               (scale-float (float -8301663588356049 1.0d0) -217)
2295                               (scale-float (float -8409129498443776 1.0d0) -272))
2296                   (%make-qd-d q0 q1 q2 q3))
2297               #.(multiple-value-bind (q0 q1 q2 q3)
2298                     (renorm-5 (scale-float (float 8905613286971281 1.0d0) -53)
2299                               (scale-float (float -7123978755460638 1.0d0) -109)
2300                               (scale-float (float 7555692813056111 1.0d0) -164)
2301                               (scale-float (float 8118983438487515 1.0d0) -219)
2302                               (scale-float (float -6274343922434048 1.0d0) -273))
2303                   (%make-qd-d q0 q1 q2 q3))
2304               #.(multiple-value-bind (q0 q1 q2 q3)
2305                     (renorm-5 (scale-float (float 8901432827556552 1.0d0) -53)
2306                               (scale-float (float 8771933742692817 1.0d0) -108)
2307                               (scale-float (float 7250438674596944 1.0d0) -166)
2308                               (scale-float (float 7083606337494008 1.0d0) -221)
2309                               (scale-float (float -5911679515754496 1.0d0) -276))
2310                   (%make-qd-d q0 q1 q2 q3))
2311               #.(multiple-value-bind (q0 q1 q2 q3)
2312                     (renorm-5 (scale-float (float 8897168584465961 1.0d0) -53)
2313                               (scale-float (float -7658862886582027 1.0d0) -108)
2314                               (scale-float (float -7204199762688552 1.0d0) -162)
2315                               (scale-float (float 6346308409048664 1.0d0) -217)
2316                               (scale-float (float -7548343030775808 1.0d0) -272))
2317                   (%make-qd-d q0 q1 q2 q3))
2318               #.(multiple-value-bind (q0 q1 q2 q3)
2319                     (renorm-5 (scale-float (float 8892820597836187 1.0d0) -53)
2320                               (scale-float (float -8491394866189883 1.0d0) -107)
2321                               (scale-float (float -8166182587214152 1.0d0) -161)
2322                               (scale-float (float 6357787596929140 1.0d0) -215)
2323                               (scale-float (float 8624953857998848 1.0d0) -272))
2324                   (%make-qd-d q0 q1 q2 q3))
2325               #.(multiple-value-bind (q0 q1 q2 q3)
2326                     (renorm-5 (scale-float (float 8888388908592136 1.0d0) -53)
2327                               (scale-float (float -8159567034358810 1.0d0) -107)
2328                               (scale-float (float -6629817546842393 1.0d0) -161)
2329                               (scale-float (float 4634129890739685 1.0d0) -216)
2330                               (scale-float (float 8624457930817536 1.0d0) -270))
2331                   (%make-qd-d q0 q1 q2 q3))
2332               #.(multiple-value-bind (q0 q1 q2 q3)
2333                     (renorm-5 (scale-float (float 8883873558446555 1.0d0) -53)
2334                               (scale-float (float -6983923910930642 1.0d0) -108)
2335                               (scale-float (float 6937180072251376 1.0d0) -162)
2336                               (scale-float (float -8270405867504028 1.0d0) -216)
2337                               (scale-float (float -7710785325826048 1.0d0) -270))
2338                   (%make-qd-d q0 q1 q2 q3))
2339               #.(multiple-value-bind (q0 q1 q2 q3)
2340                     (renorm-5 (scale-float (float 8879274589899640 1.0d0) -53)
2341                               (scale-float (float -8346528441017500 1.0d0) -107)
2342                               (scale-float (float 7680611814957263 1.0d0) -161)
2343                               (scale-float (float 7943027189392270 1.0d0) -216)
2344                               (scale-float (float -8950289039622144 1.0d0) -275))
2345                   (%make-qd-d q0 q1 q2 q3))
2346               #.(multiple-value-bind (q0 q1 q2 q3)
2347                     (renorm-5 (scale-float (float 8874592046238633 1.0d0) -53)
2348                               (scale-float (float 7514433837333686 1.0d0) -108)
2349                               (scale-float (float -8801276453264781 1.0d0) -163)
2350                               (scale-float (float 8915512537041539 1.0d0) -219)
2351                               (scale-float (float -6706195078053888 1.0d0) -274))
2352                   (%make-qd-d q0 q1 q2 q3))
2353               #.(multiple-value-bind (q0 q1 q2 q3)
2354                     (renorm-5 (scale-float (float 8869825971537420 1.0d0) -53)
2355                               (scale-float (float 6846136909451560 1.0d0) -109)
2356                               (scale-float (float 6731359750255182 1.0d0) -164)
2357                               (scale-float (float -6197790138101606 1.0d0) -220)
2358                               (scale-float (float -5827577104039936 1.0d0) -275))
2359                   (%make-qd-d q0 q1 q2 q3))
2360               #.(multiple-value-bind (q0 q1 q2 q3)
2361                     (renorm-5 (scale-float (float 8864976410656110 1.0d0) -53)
2362                               (scale-float (float 7785836584894173 1.0d0) -107)
2363                               (scale-float (float 5284186529715868 1.0d0) -164)
2364                               (scale-float (float 7402980542247590 1.0d0) -218)
2365                               (scale-float (float -6330898283495424 1.0d0) -272))
2366                   (%make-qd-d q0 q1 q2 q3))
2367               #.(multiple-value-bind (q0 q1 q2 q3)
2368                     (renorm-5 (scale-float (float 8860043409240618 1.0d0) -53)
2369                               (scale-float (float 6446544258894238 1.0d0) -108)
2370                               (scale-float (float -8038901621714735 1.0d0) -169)
2371                               (scale-float (float 4846229103018903 1.0d0) -224)
2372                               (scale-float (float 5075986748014592 1.0d0) -280))
2373                   (%make-qd-d q0 q1 q2 q3))
2374               #.(multiple-value-bind (q0 q1 q2 q3)
2375                     (renorm-5 (scale-float (float 8855027013722231 1.0d0) -53)
2376                               (scale-float (float 6842474924546396 1.0d0) -107)
2377                               (scale-float (float 4816891086673617 1.0d0) -162)
2378                               (scale-float (float -8509622836947172 1.0d0) -216)
2379                               (scale-float (float 6116515596484608 1.0d0) -270))
2380                   (%make-qd-d q0 q1 q2 q3))
2381               #.(multiple-value-bind (q0 q1 q2 q3)
2382                     (renorm-5 (scale-float (float 8849927271317175 1.0d0) -53)
2383                               (scale-float (float 4916320054218436 1.0d0) -108)
2384                               (scale-float (float -4887585510279573 1.0d0) -163)
2385                               (scale-float (float -4665371238305833 1.0d0) -217)
2386                               (scale-float (float 5226898507431936 1.0d0) -273))
2387                   (%make-qd-d q0 q1 q2 q3))
2388               #.(multiple-value-bind (q0 q1 q2 q3)
2389                     (renorm-5 (scale-float (float 8844744230026167 1.0d0) -53)
2390                               (scale-float (float 6850081623240539 1.0d0) -108)
2391                               (scale-float (float -8916921648409142 1.0d0) -162)
2392                               (scale-float (float -7202105646592469 1.0d0) -216)
2393                               (scale-float (float -8736424918941696 1.0d0) -270))
2394                   (%make-qd-d q0 q1 q2 q3))
2395               #.(multiple-value-bind (q0 q1 q2 q3)
2396                     (renorm-5 (scale-float (float 8839477938633966 1.0d0) -53)
2397                               (scale-float (float 8715376239079668 1.0d0) -109)
2398                               (scale-float (float -7634216994416838 1.0d0) -163)
2399                               (scale-float (float 4712162648716876 1.0d0) -220)
2400                               (scale-float (float 4657639888257024 1.0d0) -274))
2401                   (%make-qd-d q0 q1 q2 q3))
2402               #.(multiple-value-bind (q0 q1 q2 q3)
2403                     (renorm-5 (scale-float (float 8834128446708912 1.0d0) -53)
2404                               (scale-float (float 6018826142883795 1.0d0) -108)
2405                               (scale-float (float -6253218580383489 1.0d0) -162)
2406                               (scale-float (float 7020978235349363 1.0d0) -216)
2407                               (scale-float (float 4743599271837696 1.0d0) -271))
2408                   (%make-qd-d q0 q1 q2 q3))
2409               #.(multiple-value-bind (q0 q1 q2 q3)
2410                     (renorm-5 (scale-float (float 8828695804602461 1.0d0) -53)
2411                               (scale-float (float -5971431338778072 1.0d0) -107)
2412                               (scale-float (float 7394633722946009 1.0d0) -163)
2413                               (scale-float (float 7835308697779253 1.0d0) -218)
2414                               (scale-float (float 8677283430989824 1.0d0) -272))
2415                   (%make-qd-d q0 q1 q2 q3))
2416               #.(multiple-value-bind (q0 q1 q2 q3)
2417                     (renorm-5 (scale-float (float 8823180063448708 1.0d0) -53)
2418                               (scale-float (float 5054049223849600 1.0d0) -108)
2419                               (scale-float (float -7834271977802953 1.0d0) -162)
2420                               (scale-float (float -7272320165403980 1.0d0) -218)
2421                               (scale-float (float -6060777007677440 1.0d0) -272))
2422                   (%make-qd-d q0 q1 q2 q3))
2423               #.(multiple-value-bind (q0 q1 q2 q3)
2424                     (renorm-5 (scale-float (float 8817581275163911 1.0d0) -53)
2425                               (scale-float (float -6183435703505308 1.0d0) -111)
2426                               (scale-float (float -5001726456690585 1.0d0) -165)
2427                               (scale-float (float -6933175510886964 1.0d0) -219)
2428                               (scale-float (float -5841804373393408 1.0d0) -273))
2429                   (%make-qd-d q0 q1 q2 q3))
2430               #.(multiple-value-bind (q0 q1 q2 q3)
2431                     (renorm-5 (scale-float (float 8811899492445997 1.0d0) -53)
2432                               (scale-float (float -7017091372002309 1.0d0) -108)
2433                               (scale-float (float 6413304785703535 1.0d0) -162)
2434                               (scale-float (float 8118727090730765 1.0d0) -216)
2435                               (scale-float (float -6790498992046080 1.0d0) -270))
2436                   (%make-qd-d q0 q1 q2 q3))
2437               #.(multiple-value-bind (q0 q1 q2 q3)
2438                     (renorm-5 (scale-float (float 8806134768774068 1.0d0) -53)
2439                               (scale-float (float 8196387204119507 1.0d0) -107)
2440                               (scale-float (float -7748736525621098 1.0d0) -162)
2441                               (scale-float (float 7388842477950275 1.0d0) -216)
2442                               (scale-float (float -8021260472156160 1.0d0) -270))
2443                   (%make-qd-d q0 q1 q2 q3))
2444               #.(multiple-value-bind (q0 q1 q2 q3)
2445                     (renorm-5 (scale-float (float 8800287158407901 1.0d0) -53)
2446                               (scale-float (float -7034568527191045 1.0d0) -107)
2447                               (scale-float (float 6424625550657811 1.0d0) -163)
2448                               (scale-float (float -7814615457557805 1.0d0) -219)
2449                               (scale-float (float -6451150358315008 1.0d0) -273))
2450                   (%make-qd-d q0 q1 q2 q3))
2451               #.(multiple-value-bind (q0 q1 q2 q3)
2452                     (renorm-5 (scale-float (float 8794356716387429 1.0d0) -53)
2453                               (scale-float (float 6042141602652702 1.0d0) -109)
2454                               (scale-float (float -4815349649953967 1.0d0) -163)
2455                               (scale-float (float -6721857373013784 1.0d0) -217)
2456                               (scale-float (float 5344386943254528 1.0d0) -271))
2457                   (%make-qd-d q0 q1 q2 q3))
2458               #.(multiple-value-bind (q0 q1 q2 q3)
2459                     (renorm-5 (scale-float (float 8788343498532233 1.0d0) -53)
2460                               (scale-float (float -8298768912839398 1.0d0) -108)
2461                               (scale-float (float -5446972436275558 1.0d0) -162)
2462                               (scale-float (float -7049677529730599 1.0d0) -219)
2463                               (scale-float (float 5156198265389056 1.0d0) -277))
2464                   (%make-qd-d q0 q1 q2 q3))
2465               #.(multiple-value-bind (q0 q1 q2 q3)
2466                     (renorm-5 (scale-float (float 8782247561441008 1.0d0) -53)
2467                               (scale-float (float 8646037700366584 1.0d0) -108)
2468                               (scale-float (float 8333782932738579 1.0d0) -165)
2469                               (scale-float (float -5587385824373688 1.0d0) -220)
2470                               (scale-float (float 7163783185170432 1.0d0) -277))
2471                   (%make-qd-d q0 q1 q2 q3))
2472               #.(multiple-value-bind (q0 q1 q2 q3)
2473                     (renorm-5 (scale-float (float 8776068962491037 1.0d0) -53)
2474                               (scale-float (float 5981843094371335 1.0d0) -111)
2475                               (scale-float (float 5031627907802402 1.0d0) -165)
2476                               (scale-float (float 8605971594377410 1.0d0) -220)
2477                               (scale-float (float 4691414601957376 1.0d0) -275))
2478                   (%make-qd-d q0 q1 q2 q3))
2479               #.(multiple-value-bind (q0 q1 q2 q3)
2480                     (renorm-5 (scale-float (float 8769807759837646 1.0d0) -53)
2481                               (scale-float (float -8393641348716169 1.0d0) -107)
2482                               (scale-float (float -4533131738151266 1.0d0) -161)
2483                               (scale-float (float -8690963173342473 1.0d0) -215)
2484                               (scale-float (float 7559291244019712 1.0d0) -269))
2485                   (%make-qd-d q0 q1 q2 q3))
2486               #.(multiple-value-bind (q0 q1 q2 q3)
2487                     (renorm-5 (scale-float (float 8763464012413658 1.0d0) -53)
2488                               (scale-float (float -5080534473348267 1.0d0) -107)
2489                               (scale-float (float -7855304661081380 1.0d0) -161)
2490                               (scale-float (float -7296856099117507 1.0d0) -221)
2491                               (scale-float (float 5820900656021504 1.0d0) -276))
2492                   (%make-qd-d q0 q1 q2 q3))
2493               #.(multiple-value-bind (q0 q1 q2 q3)
2494                     (renorm-5 (scale-float (float 8757037779928840 1.0d0) -53)
2495                               (scale-float (float 5916163041813500 1.0d0) -107)
2496                               (scale-float (float 8859516786540065 1.0d0) -161)
2497                               (scale-float (float -8561614259167781 1.0d0) -222)
2498                               (scale-float (float 8906252604145664 1.0d0) -277))
2499                   (%make-qd-d q0 q1 q2 q3))
2500               #.(multiple-value-bind (q0 q1 q2 q3)
2501                     (renorm-5 (scale-float (float 8750529122869341 1.0d0) -53)
2502                               (scale-float (float -5183562189985281 1.0d0) -109)
2503                               (scale-float (float -5101040255073374 1.0d0) -163)
2504                               (scale-float (float 5780805313355459 1.0d0) -220)
2505                               (scale-float (float -5212699000832000 1.0d0) -274))
2506                   (%make-qd-d q0 q1 q2 q3))
2507               #.(multiple-value-bind (q0 q1 q2 q3)
2508                     (renorm-5 (scale-float (float 8743938102497119 1.0d0) -53)
2509                               (scale-float (float -7787173714602643 1.0d0) -107)
2510                               (scale-float (float 8870592638467604 1.0d0) -161)
2511                               (scale-float (float 4527859829386072 1.0d0) -215)
2512                               (scale-float (float -7109348041826304 1.0d0) -269))
2513                   (%make-qd-d q0 q1 q2 q3))
2514               #.(multiple-value-bind (q0 q1 q2 q3)
2515                     (renorm-5 (scale-float (float 8737264780849367 1.0d0) -53)
2516                               (scale-float (float 5959880706574729 1.0d0) -108)
2517                               (scale-float (float -8366277013359923 1.0d0) -162)
2518                               (scale-float (float 7232577075726740 1.0d0) -219)
2519                               (scale-float (float 4922377451601920 1.0d0) -274))
2520                   (%make-qd-d q0 q1 q2 q3))
2521               #.(multiple-value-bind (q0 q1 q2 q3)
2522                     (renorm-5 (scale-float (float 8730509220737932 1.0d0) -53)
2523                               (scale-float (float -7409352491475308 1.0d0) -107)
2524                               (scale-float (float 5620790720594497 1.0d0) -162)
2525                               (scale-float (float 6846782194285202 1.0d0) -219)
2526                               (scale-float (float -7328175199092736 1.0d0) -275))
2527                   (%make-qd-d q0 q1 q2 q3))
2528               #.(multiple-value-bind (q0 q1 q2 q3)
2529                     (renorm-5 (scale-float (float 8723671485748716 1.0d0) -53)
2530                               (scale-float (float 8027789877305549 1.0d0) -107)
2531                               (scale-float (float 8347728572284626 1.0d0) -161)
2532                               (scale-float (float 6629242611071548 1.0d0) -216)
2533                               (scale-float (float -5618340135436288 1.0d0) -274))
2534                   (%make-qd-d q0 q1 q2 q3))
2535               #.(multiple-value-bind (q0 q1 q2 q3)
2536                     (renorm-5 (scale-float (float 8716751640241088 1.0d0) -53)
2537                               (scale-float (float -7384765759223300 1.0d0) -107)
2538                               (scale-float (float -8259014728839389 1.0d0) -162)
2539                               (scale-float (float -8911590265625930 1.0d0) -216)
2540                               (scale-float (float 4719924142702592 1.0d0) -271))
2541                   (%make-qd-d q0 q1 q2 q3))
2542               #.(multiple-value-bind (q0 q1 q2 q3)
2543                     (renorm-5 (scale-float (float 8709749749347266 1.0d0) -53)
2544                               (scale-float (float 6246370251798351 1.0d0) -107)
2545                               (scale-float (float -6299847417742655 1.0d0) -163)
2546                               (scale-float (float -7418590254845397 1.0d0) -217)
2547                               (scale-float (float 5499354970587136 1.0d0) -271))
2548                   (%make-qd-d q0 q1 q2 q3))
2549               #.(multiple-value-bind (q0 q1 q2 q3)
2550                     (renorm-5 (scale-float (float 8702665878971716 1.0d0) -53)
2551                               (scale-float (float 8323712745751476 1.0d0) -107)
2552                               (scale-float (float 6811334649930440 1.0d0) -165)
2553                               (scale-float (float 8505841244414894 1.0d0) -219)
2554                               (scale-float (float -4604923142471680 1.0d0) -274))
2555                   (%make-qd-d q0 q1 q2 q3))
2556               #.(multiple-value-bind (q0 q1 q2 q3)
2557                     (renorm-5 (scale-float (float 8695500095790524 1.0d0) -53)
2558                               (scale-float (float -7705819592372010 1.0d0) -108)
2559                               (scale-float (float 6924187360006505 1.0d0) -163)
2560                               (scale-float (float -8174591260972689 1.0d0) -217)
2561                               (scale-float (float -7148565255880704 1.0d0) -272))
2562                   (%make-qd-d q0 q1 q2 q3))
2563               #.(multiple-value-bind (q0 q1 q2 q3)
2564                     (renorm-5 (scale-float (float 8688252467250769 1.0d0) -53)
2565                               (scale-float (float -5547558796790388 1.0d0) -107)
2566                               (scale-float (float 6717667801494033 1.0d0) -161)
2567                               (scale-float (float -4752616405244403 1.0d0) -216)
2568                               (scale-float (float -5509960524693504 1.0d0) -270))
2569                   (%make-qd-d q0 q1 q2 q3))
2570               #.(multiple-value-bind (q0 q1 q2 q3)
2571                     (renorm-5 (scale-float (float 8680923061569891 1.0d0) -53)
2572                               (scale-float (float 8588042960215234 1.0d0) -108)
2573                               (scale-float (float -8702070775005543 1.0d0) -171)
2574                               (scale-float (float -6976332996211473 1.0d0) -225)
2575                               (scale-float (float 5268299529060352 1.0d0) -279))
2576                   (%make-qd-d q0 q1 q2 q3))
2577               #.(multiple-value-bind (q0 q1 q2 q3)
2578                     (renorm-5 (scale-float (float 8673511947735049 1.0d0) -53)
2579                               (scale-float (float 5798624754283258 1.0d0) -109)
2580                               (scale-float (float -4568215043570977 1.0d0) -163)
2581                               (scale-float (float 6829329873018631 1.0d0) -218)
2582                               (scale-float (float 8280773494046720 1.0d0) -273))
2583                   (%make-qd-d q0 q1 q2 q3))
2584               #.(multiple-value-bind (q0 q1 q2 q3)
2585                     (renorm-5 (scale-float (float 8666019195502468 1.0d0) -53)
2586                               (scale-float (float 4944614710107653 1.0d0) -108)
2587                               (scale-float (float -7629139990045050 1.0d0) -162)
2588                               (scale-float (float 8321368928085100 1.0d0) -216)
2589                               (scale-float (float 5867063029071872 1.0d0) -270))
2590                   (%make-qd-d q0 q1 q2 q3))
2591               #.(multiple-value-bind (q0 q1 q2 q3)
2592                     (renorm-5 (scale-float (float 8658444875396786 1.0d0) -53)
2593                               (scale-float (float 5434765495412269 1.0d0) -111)
2594                               (scale-float (float 5036267983276872 1.0d0) -165)
2595                               (scale-float (float -5008959202542514 1.0d0) -219)
2596                               (scale-float (float -8192210130960384 1.0d0) -273))
2597                   (%make-qd-d q0 q1 q2 q3))
2598               #.(multiple-value-bind (q0 q1 q2 q3)
2599                     (renorm-5 (scale-float (float 8650789058710388 1.0d0) -53)
2600                               (scale-float (float 8000649532699255 1.0d0) -108)
2601                               (scale-float (float -8062911270553914 1.0d0) -162)
2602                               (scale-float (float -8041915918056652 1.0d0) -220)
2603                               (scale-float (float 7385556375830528 1.0d0) -274))
2604                   (%make-qd-d q0 q1 q2 q3))
2605               #.(multiple-value-bind (q0 q1 q2 q3)
2606                     (renorm-5 (scale-float (float 8643051817502737 1.0d0) -53)
2607                               (scale-float (float 7139823619402846 1.0d0) -109)
2608                               (scale-float (float -4914858230587332 1.0d0) -163)
2609                               (scale-float (float 6743980924865325 1.0d0) -220)
2610                               (scale-float (float 6632308531527680 1.0d0) -274))
2611                   (%make-qd-d q0 q1 q2 q3))
2612               #.(multiple-value-bind (q0 q1 q2 q3)
2613                     (renorm-5 (scale-float (float 8635233224599694 1.0d0) -53)
2614                               (scale-float (float -7088298843580067 1.0d0) -107)
2615                               (scale-float (float 6431133538561354 1.0d0) -161)
2616                               (scale-float (float -5557182891497347 1.0d0) -215)
2617                               (scale-float (float 7201854697758720 1.0d0) -269))
2618                   (%make-qd-d q0 q1 q2 q3))
2619               #.(multiple-value-bind (q0 q1 q2 q3)
2620                     (renorm-5 (scale-float (float 8627333353592832 1.0d0) -53)
2621                               (scale-float (float -5742910758171990 1.0d0) -108)
2622                               (scale-float (float 8962645513660430 1.0d0) -165)
2623                               (scale-float (float 6865454473379410 1.0d0) -219)
2624                               (scale-float (float -8219752905572352 1.0d0) -274))
2625                   (%make-qd-d q0 q1 q2 q3))
2626               #.(multiple-value-bind (q0 q1 q2 q3)
2627                     (renorm-5 (scale-float (float 8619352278838746 1.0d0) -53)
2628                               (scale-float (float 6580241596413982 1.0d0) -107)
2629                               (scale-float (float -5012077621452493 1.0d0) -161)
2630                               (scale-float (float 5420791254282205 1.0d0) -217)
2631                               (scale-float (float -8049457508581376 1.0d0) -272))
2632                   (%make-qd-d q0 q1 q2 q3))
2633               #.(multiple-value-bind (q0 q1 q2 q3)
2634                     (renorm-5 (scale-float (float 8611290075458352 1.0d0) -53)
2635                               (scale-float (float 6117993379878867 1.0d0) -107)
2636                               (scale-float (float 5752090453333422 1.0d0) -161)
2637                               (scale-float (float 8961357552235688 1.0d0) -216)
2638                               (scale-float (float 6756547536617472 1.0d0) -271))
2639                   (%make-qd-d q0 q1 q2 q3))
2640               #.(multiple-value-bind (q0 q1 q2 q3)
2641                     (renorm-5 (scale-float (float 8603146819336178 1.0d0) -53)
2642                               (scale-float (float 8127348605830121 1.0d0) -107)
2643                               (scale-float (float -7887192887344204 1.0d0) -161)
2644                               (scale-float (float 5319494234616797 1.0d0) -215)
2645                               (scale-float (float 8259537162674176 1.0d0) -269))
2646                   (%make-qd-d q0 q1 q2 q3))
2647               #.(multiple-value-bind (q0 q1 q2 q3)
2648                     (renorm-5 (scale-float (float 8594922587119653 1.0d0) -53)
2649                               (scale-float (float -6092170856221856 1.0d0) -107)
2650                               (scale-float (float 8740726400738582 1.0d0) -162)
2651                               (scale-float (float -8711151914884922 1.0d0) -216)
2652                               (scale-float (float 8803203561996288 1.0d0) -270))
2653                   (%make-qd-d q0 q1 q2 q3))
2654               #.(multiple-value-bind (q0 q1 q2 q3)
2655                     (renorm-5 (scale-float (float 8586617456218381 1.0d0) -53)
2656                               (scale-float (float -8174862114446858 1.0d0) -108)
2657                               (scale-float (float -8343560746786883 1.0d0) -162)
2658                               (scale-float (float -4919904534422867 1.0d0) -216)
2659                               (scale-float (float 8146749183688704 1.0d0) -272))
2660                   (%make-qd-d q0 q1 q2 q3))
2661               #.(multiple-value-bind (q0 q1 q2 q3)
2662                     (renorm-5 (scale-float (float 8578231504803418 1.0d0) -53)
2663                               (scale-float (float -6577764069693440 1.0d0) -108)
2664                               (scale-float (float -6217787362116513 1.0d0) -162)
2665                               (scale-float (float -7480234698414209 1.0d0) -217)
2666                               (scale-float (float -8872072106082304 1.0d0) -272))
2667                   (%make-qd-d q0 q1 q2 q3))
2668               #.(multiple-value-bind (q0 q1 q2 q3)
2669                     (renorm-5 (scale-float (float 8569764811806532 1.0d0) -53)
2670                               (scale-float (float 5086923108014672 1.0d0) -107)
2671                               (scale-float (float -7256306947528657 1.0d0) -161)
2672                               (scale-float (float 8041674859768423 1.0d0) -219)
2673                               (scale-float (float 8406880918700032 1.0d0) -273))
2674                   (%make-qd-d q0 q1 q2 q3))
2675               #.(multiple-value-bind (q0 q1 q2 q3)
2676                     (renorm-5 (scale-float (float 8561217456919463 1.0d0) -53)
2677                               (scale-float (float 6298936787393783 1.0d0) -108)
2678                               (scale-float (float -4767967511894935 1.0d0) -162)
2679                               (scale-float (float -8847251687381265 1.0d0) -219)
2680                               (scale-float (float -7487138496512000 1.0d0) -274))
2681                   (%make-qd-d q0 q1 q2 q3))
2682               #.(multiple-value-bind (q0 q1 q2 q3)
2683                     (renorm-5 (scale-float (float 8552589520593170 1.0d0) -53)
2684                               (scale-float (float -4903095784208212 1.0d0) -109)
2685                               (scale-float (float -5993354562610200 1.0d0) -163)
2686                               (scale-float (float 7621932199733939 1.0d0) -218)
2687                               (scale-float (float 8114090528079872 1.0d0) -272))
2688                   (%make-qd-d q0 q1 q2 q3))
2689               #.(multiple-value-bind (q0 q1 q2 q3)
2690                     (renorm-5 (scale-float (float 8543881084037075 1.0d0) -53)
2691                               (scale-float (float 6707234576005423 1.0d0) -108)
2692                               (scale-float (float -6949817966021143 1.0d0) -163)
2693                               (scale-float (float 6010742482639225 1.0d0) -218)
2694                               (scale-float (float -5561237956722688 1.0d0) -272))
2695                   (%make-qd-d q0 q1 q2 q3))
2696               #.(multiple-value-bind (q0 q1 q2 q3)
2697                     (renorm-5 (scale-float (float 8535092229218300 1.0d0) -53)
2698                               (scale-float (float 7044972283821195 1.0d0) -107)
2699                               (scale-float (float -6484078963521046 1.0d0) -164)
2700                               (scale-float (float 4693487461781030 1.0d0) -219)
2701                               (scale-float (float -7065305917292544 1.0d0) -273))
2702                   (%make-qd-d q0 q1 q2 q3))
2703               #.(multiple-value-bind (q0 q1 q2 q3)
2704                     (renorm-5 (scale-float (float 8526223038860894 1.0d0) -53)
2705                               (scale-float (float 5688291050131270 1.0d0) -107)
2706                               (scale-float (float 5762907725758393 1.0d0) -162)
2707                               (scale-float (float 6954393126632499 1.0d0) -216)
2708                               (scale-float (float -6550640399876096 1.0d0) -272))
2709                   (%make-qd-d q0 q1 q2 q3))
2710               #.(multiple-value-bind (q0 q1 q2 q3)
2711                     (renorm-5 (scale-float (float 8517273596445054 1.0d0) -53)
2712                               (scale-float (float 7467026288494722 1.0d0) -107)
2713                               (scale-float (float -7311528458402789 1.0d0) -163)
2714                               (scale-float (float 6638440854815466 1.0d0) -218)
2715                               (scale-float (float 5317362131927040 1.0d0) -273))
2716                   (%make-qd-d q0 q1 q2 q3))
2717               #.(multiple-value-bind (q0 q1 q2 q3)
2718                     (renorm-5 (scale-float (float 8508243986206341 1.0d0) -53)
2719                               (scale-float (float 5718052318919608 1.0d0) -109)
2720                               (scale-float (float 6113951899379181 1.0d0) -163)
2721                               (scale-float (float -7053239345980276 1.0d0) -217)
2722                               (scale-float (float 7260571414298624 1.0d0) -274))
2723                   (%make-qd-d q0 q1 q2 q3))
2724               #.(multiple-value-bind (q0 q1 q2 q3)
2725                     (renorm-5 (scale-float (float 8499134293134885 1.0d0) -53)
2726                               (scale-float (float -7818667001173624 1.0d0) -108)
2727                               (scale-float (float 4809289711312272 1.0d0) -165)
2728                               (scale-float (float -7885188792416875 1.0d0) -221)
2729                               (scale-float (float -6091756757581824 1.0d0) -275))
2730                   (%make-qd-d q0 q1 q2 q3))
2731               #.(multiple-value-bind (q0 q1 q2 q3)
2732                     (renorm-5 (scale-float (float 8489944602974586 1.0d0) -53)
2733                               (scale-float (float 8590372695674546 1.0d0) -109)
2734                               (scale-float (float -5336072295288112 1.0d0) -166)
2735                               (scale-float (float 6731064684041358 1.0d0) -220)
2736                               (scale-float (float -4655136581353472 1.0d0) -274))
2737                   (%make-qd-d q0 q1 q2 q3))
2738               #.(multiple-value-bind (q0 q1 q2 q3)
2739                     (renorm-5 (scale-float (float 8480675002222309 1.0d0) -53)
2740                               (scale-float (float -4526446371562791 1.0d0) -107)
2741                               (scale-float (float 4756672316007874 1.0d0) -161)
2742                               (scale-float (float -8943278991556374 1.0d0) -220)
2743                               (scale-float (float -5996878158888960 1.0d0) -274))
2744                   (%make-qd-d q0 q1 q2 q3))
2745               #.(multiple-value-bind (q0 q1 q2 q3)
2746                     (renorm-5 (scale-float (float 8471325578127065 1.0d0) -53)
2747                               (scale-float (float 4642306313259215 1.0d0) -107)
2748                               (scale-float (float 8553146367577618 1.0d0) -161)
2749                               (scale-float (float -5655242195051814 1.0d0) -217)
2750                               (scale-float (float 7938131067076608 1.0d0) -271))
2751                   (%make-qd-d q0 q1 q2 q3))
2752               #.(multiple-value-bind (q0 q1 q2 q3)
2753                     (renorm-5 (scale-float (float 8461896418689196 1.0d0) -53)
2754                               (scale-float (float -4553181447976997 1.0d0) -109)
2755                               (scale-float (float -6593791908274853 1.0d0) -163)
2756                               (scale-float (float 7491525231836809 1.0d0) -217)
2757                               (scale-float (float -7913394222759936 1.0d0) -271))
2758                   (%make-qd-d q0 q1 q2 q3))
2759               #.(multiple-value-bind (q0 q1 q2 q3)
2760                     (renorm-5 (scale-float (float 8452387612659540 1.0d0) -53)
2761                               (scale-float (float 8801356132344547 1.0d0) -107)
2762                               (scale-float (float -5565388474422551 1.0d0) -161)
2763                               (scale-float (float -8228993466620115 1.0d0) -215)
2764                               (scale-float (float -4947381776957440 1.0d0) -269))
2765                   (%make-qd-d q0 q1 q2 q3))
2766               #.(multiple-value-bind (q0 q1 q2 q3)
2767                     (renorm-5 (scale-float (float 8442799249538603 1.0d0) -53)
2768                               (scale-float (float -5933972051875175 1.0d0) -107)
2769                               (scale-float (float -6958466561286986 1.0d0) -162)
2770                               (scale-float (float -4724344086362299 1.0d0) -218)
2771                               (scale-float (float 5772665657425920 1.0d0) -272))
2772                   (%make-qd-d q0 q1 q2 q3))
2773               #.(multiple-value-bind (q0 q1 q2 q3)
2774                     (renorm-5 (scale-float (float 8433131419575708 1.0d0) -53)
2775                               (scale-float (float -8446417134371795 1.0d0) -109)
2776                               (scale-float (float 6106723249054365 1.0d0) -163)
2777                               (scale-float (float -5724401613088084 1.0d0) -220)
2778                               (scale-float (float -5777673332195328 1.0d0) -274))
2779                   (%make-qd-d q0 q1 q2 q3))
2780               #.(multiple-value-bind (q0 q1 q2 q3)
2781                     (renorm-5 (scale-float (float 8423384213768154 1.0d0) -53)
2782                               (scale-float (float -5291176899619174 1.0d0) -107)
2783                               (scale-float (float -4782794227894570 1.0d0) -162)
2784                               (scale-float (float 5859801279367932 1.0d0) -216)
2785                               (scale-float (float 6433573390663680 1.0d0) -270))
2786                   (%make-qd-d q0 q1 q2 q3))
2787               #.(multiple-value-bind (q0 q1 q2 q3)
2788                     (renorm-5 (scale-float (float 8413557723860353 1.0d0) -53)
2789                               (scale-float (float 7246957581928310 1.0d0) -107)
2790                               (scale-float (float -7571526425190184 1.0d0) -161)
2791                               (scale-float (float 8583500343172088 1.0d0) -216)
2792                               (scale-float (float -6011419024031744 1.0d0) -273))
2793                   (%make-qd-d q0 q1 q2 q3))
2794               #.(multiple-value-bind (q0 q1 q2 q3)
2795                     (renorm-5 (scale-float (float 8403652042342972 1.0d0) -53)
2796                               (scale-float (float 6821609684893107 1.0d0) -107)
2797                               (scale-float (float 5278119422243711 1.0d0) -162)
2798                               (scale-float (float 5583656122229983 1.0d0) -216)
2799                               (scale-float (float -8360196826890240 1.0d0) -271))
2800                   (%make-qd-d q0 q1 q2 q3))
2801               #.(multiple-value-bind (q0 q1 q2 q3)
2802                     (renorm-5 (scale-float (float 8393667262452058 1.0d0) -53)
2803                               (scale-float (float -6617897839460155 1.0d0) -107)
2804                               (scale-float (float 5153678696029531 1.0d0) -161)
2805                               (scale-float (float 5429144206151925 1.0d0) -217)
2806                               (scale-float (float 5869493572206592 1.0d0) -272))
2807                   (%make-qd-d q0 q1 q2 q3))
2808               #.(multiple-value-bind (q0 q1 q2 q3)
2809                     (renorm-5 (scale-float (float 8383603478168160 1.0d0) -53)
2810                               (scale-float (float 6394240597984013 1.0d0) -108)
2811                               (scale-float (float 7676731287638925 1.0d0) -163)
2812                               (scale-float (float -6564864277848665 1.0d0) -221)
2813                               (scale-float (float -5907456036175872 1.0d0) -275))
2814                   (%make-qd-d q0 q1 q2 q3))
2815               #.(multiple-value-bind (q0 q1 q2 q3)
2816                     (renorm-5 (scale-float (float 8373460784215450 1.0d0) -53)
2817                               (scale-float (float 8321066234508797 1.0d0) -107)
2818                               (scale-float (float 5546630190255800 1.0d0) -164)
2819                               (scale-float (float -7258150702831279 1.0d0) -218)
2820                               (scale-float (float -5075166913626112 1.0d0) -272))
2821                   (%make-qd-d q0 q1 q2 q3))
2822               #.(multiple-value-bind (q0 q1 q2 q3)
2823                     (renorm-5 (scale-float (float 8363239276060827 1.0d0) -53)
2824                               (scale-float (float -7563437054268512 1.0d0) -108)
2825                               (scale-float (float -4548139565433169 1.0d0) -162)
2826                               (scale-float (float -6171043120140633 1.0d0) -216)
2827                               (scale-float (float 6671610356039680 1.0d0) -271))
2828                   (%make-qd-d q0 q1 q2 q3))
2829               #.(multiple-value-bind (q0 q1 q2 q3)
2830                     (renorm-5 (scale-float (float 8352939049913017 1.0d0) -53)
2831                               (scale-float (float -8981736255781014 1.0d0) -108)
2832                               (scale-float (float 5170276812693347 1.0d0) -164)
2833                               (scale-float (float 8572079675285324 1.0d0) -218)
2834                               (scale-float (float 6367039434194944 1.0d0) -272))
2835                   (%make-qd-d q0 q1 q2 q3))
2836               #.(multiple-value-bind (q0 q1 q2 q3)
2837                     (renorm-5 (scale-float (float 8342560202721672 1.0d0) -53)
2838                               (scale-float (float -6052880242154884 1.0d0) -107)
2839                               (scale-float (float 5981767719278909 1.0d0) -161)
2840                               (scale-float (float 7283292585326634 1.0d0) -215)
2841                               (scale-float (float -6451337855336448 1.0d0) -269))
2842                   (%make-qd-d q0 q1 q2 q3))
2843               #.(multiple-value-bind (q0 q1 q2 q3)
2844                     (renorm-5 (scale-float (float 8332102832176454 1.0d0) -53)
2845                               (scale-float (float 7857171491229206 1.0d0) -110)
2846                               (scale-float (float -8255170893553344 1.0d0) -166)
2847                               (scale-float (float 6162188545047406 1.0d0) -221)
2848                               (scale-float (float 4967530541088768 1.0d0) -276))
2849                   (%make-qd-d q0 q1 q2 q3))
2850               #.(multiple-value-bind (q0 q1 q2 q3)
2851                     (renorm-5 (scale-float (float 8321567036706118 1.0d0) -53)
2852                               (scale-float (float 5726145159043778 1.0d0) -108)
2853                               (scale-float (float -5897748070929945 1.0d0) -163)
2854                               (scale-float (float -8525804628143368 1.0d0) -217)
2855                               (scale-float (float 4998397503438848 1.0d0) -271))
2856                   (%make-qd-d q0 q1 q2 q3))
2857               #.(multiple-value-bind (q0 q1 q2 q3)
2858                     (renorm-5 (scale-float (float 8310952915477583 1.0d0) -53)
2859                               (scale-float (float 8593867710650143 1.0d0) -107)
2860                               (scale-float (float -6680313484611995 1.0d0) -163)
2861                               (scale-float (float 6353210804206738 1.0d0) -217)
2862                               (scale-float (float 8154954785619968 1.0d0) -272))
2863                   (%make-qd-d q0 q1 q2 q3))
2864               #.(multiple-value-bind (q0 q1 q2 q3)
2865                     (renorm-5 (scale-float (float 8300260568395001 1.0d0) -53)
2866                               (scale-float (float 6756450875854190 1.0d0) -107)
2867                               (scale-float (float 6951770272627742 1.0d0) -162)
2868                               (scale-float (float 8788284451425813 1.0d0) -218)
2869                               (scale-float (float -5248954319699968 1.0d0) -272))
2870                   (%make-qd-d q0 q1 q2 q3))
2871               #.(multiple-value-bind (q0 q1 q2 q3)
2872                     (renorm-5 (scale-float (float 8289490096098815 1.0d0) -53)
2873                               (scale-float (float -4511925664156885 1.0d0) -107)
2874                               (scale-float (float 7895328143001416 1.0d0) -161)
2875                               (scale-float (float 6317989146996191 1.0d0) -215)
2876                               (scale-float (float 7279285363269632 1.0d0) -269))
2877                   (%make-qd-d q0 q1 q2 q3))
2878               #.(multiple-value-bind (q0 q1 q2 q3)
2879                     (renorm-5 (scale-float (float 8278641599964811 1.0d0) -53)
2880                               (scale-float (float -8598600866676053 1.0d0) -108)
2881                               (scale-float (float 7646998035931427 1.0d0) -163)
2882                               (scale-float (float -6107518997826040 1.0d0) -217)
2883                               (scale-float (float -8602505073524736 1.0d0) -271))
2884                   (%make-qd-d q0 q1 q2 q3))
2885               #.(multiple-value-bind (q0 q1 q2 q3)
2886                     (renorm-5 (scale-float (float 8267715182103167 1.0d0) -53)
2887                               (scale-float (float -6340213041420117 1.0d0) -107)
2888                               (scale-float (float 6724262794318068 1.0d0) -161)
2889                               (scale-float (float 8393760923297867 1.0d0) -217)
2890                               (scale-float (float -5384688173449216 1.0d0) -273))
2891                   (%make-qd-d q0 q1 q2 q3))
2892               #.(multiple-value-bind (q0 q1 q2 q3)
2893                     (renorm-5 (scale-float (float 8256710945357489 1.0d0) -53)
2894                               (scale-float (float -6771725202789936 1.0d0) -107)
2895                               (scale-float (float 7070420353684526 1.0d0) -162)
2896                               (scale-float (float 5197890020650731 1.0d0) -216)
2897                               (scale-float (float 8583179312791552 1.0d0) -271))
2898                   (%make-qd-d q0 q1 q2 q3))
2899               #.(multiple-value-bind (q0 q1 q2 q3)
2900                     (renorm-5 (scale-float (float 8245628993303844 1.0d0) -53)
2901                               (scale-float (float -8821100121339757 1.0d0) -109)
2902                               (scale-float (float 7006208221552511 1.0d0) -163)
2903                               (scale-float (float 4508060286446889 1.0d0) -217)
2904                               (scale-float (float -7701262796455936 1.0d0) -273))
2905                   (%make-qd-d q0 q1 q2 q3))
2906               #.(multiple-value-bind (q0 q1 q2 q3)
2907                     (renorm-5 (scale-float (float 8234469430249786 1.0d0) -53)
2908                               (scale-float (float -5892637514160882 1.0d0) -107)
2909                               (scale-float (float -5681973386408990 1.0d0) -161)
2910                               (scale-float (float 5969243766468564 1.0d0) -217)
2911                               (scale-float (float 5183657401876480 1.0d0) -271))
2912                   (%make-qd-d q0 q1 q2 q3))
2913               #.(multiple-value-bind (q0 q1 q2 q3)
2914                     (renorm-5 (scale-float (float 8223232361233372 1.0d0) -53)
2915                               (scale-float (float -7777493634914173 1.0d0) -107)
2916                               (scale-float (float -5189369030967820 1.0d0) -161)
2917                               (scale-float (float 6842397883496982 1.0d0) -220)
2918                               (scale-float (float -7237539892559872 1.0d0) -275))
2919                   (%make-qd-d q0 q1 q2 q3))
2920               #.(multiple-value-bind (q0 q1 q2 q3)
2921                     (renorm-5 (scale-float (float 8211917892022175 1.0d0) -53)
2922                               (scale-float (float -8733856484976210 1.0d0) -108)
2923                               (scale-float (float -4857152382333282 1.0d0) -166)
2924                               (scale-float (float 7641915463494354 1.0d0) -222)
2925                               (scale-float (float 7988390590939136 1.0d0) -276))
2926                   (%make-qd-d q0 q1 q2 q3))
2927               #.(multiple-value-bind (q0 q1 q2 q3)
2928                     (renorm-5 (scale-float (float 8200526129112289 1.0d0) -53)
2929                               (scale-float (float -8183228870209481 1.0d0) -107)
2930                               (scale-float (float 6394798226217471 1.0d0) -162)
2931                               (scale-float (float 8035603526856955 1.0d0) -219)
2932                               (scale-float (float -7278743951638528 1.0d0) -273))
2933                   (%make-qd-d q0 q1 q2 q3))
2934               #.(multiple-value-bind (q0 q1 q2 q3)
2935                     (renorm-5 (scale-float (float 8189057179727324 1.0d0) -53)
2936                               (scale-float (float -4787111311971082 1.0d0) -110)
2937                               (scale-float (float 7003826926247311 1.0d0) -164)
2938                               (scale-float (float -5150051672214856 1.0d0) -218)
2939                               (scale-float (float -6304169639870464 1.0d0) -272))
2940                   (%make-qd-d q0 q1 q2 q3))
2941               #.(multiple-value-bind (q0 q1 q2 q3)
2942                     (renorm-5 (scale-float (float 8177511151817401 1.0d0) -53)
2943                               (scale-float (float -8025338039515614 1.0d0) -107)
2944                               (scale-float (float -4852092691112809 1.0d0) -161)
2945                               (scale-float (float -5468362093021944 1.0d0) -216)
2946                               (scale-float (float 4638550820208640 1.0d0) -270))
2947                   (%make-qd-d q0 q1 q2 q3))
2948               #.(multiple-value-bind (q0 q1 q2 q3)
2949                     (renorm-5 (scale-float (float 8165888154058130 1.0d0) -53)
2950                               (scale-float (float 4949998156142078 1.0d0) -107)
2951                               (scale-float (float -8464337333963361 1.0d0) -162)
2952                               (scale-float (float 7964294201530510 1.0d0) -218)
2953                               (scale-float (float -5586896482205696 1.0d0) -273))
2954                   (%make-qd-d q0 q1 q2 q3))
2955               #.(multiple-value-bind (q0 q1 q2 q3)
2956                     (renorm-5 (scale-float (float 8154188295849595 1.0d0) -53)
2957                               (scale-float (float -6677472217191581 1.0d0) -107)
2958                               (scale-float (float 8727903250458773 1.0d0) -161)
2959                               (scale-float (float 5386228110507442 1.0d0) -216)
2960                               (scale-float (float 8388555450335232 1.0d0) -270))
2961                   (%make-qd-d q0 q1 q2 q3))
2962               #.(multiple-value-bind (q0 q1 q2 q3)
2963                     (renorm-5 (scale-float (float 8142411687315315 1.0d0) -53)
2964                               (scale-float (float -8579951840942254 1.0d0) -110)
2965                               (scale-float (float 5952643804849413 1.0d0) -165)
2966                               (scale-float (float -7249883042029233 1.0d0) -220)
2967                               (scale-float (float -6096412072738816 1.0d0) -280))
2968                   (%make-qd-d q0 q1 q2 q3))
2969               #.(multiple-value-bind (q0 q1 q2 q3)
2970                     (renorm-5 (scale-float (float 8130558439301216 1.0d0) -53)
2971                               (scale-float (float -6247237565047575 1.0d0) -108)
2972                               (scale-float (float 7741357282149559 1.0d0) -162)
2973                               (scale-float (float -5578500633872854 1.0d0) -216)
2974                               (scale-float (float 5873141117911040 1.0d0) -271))
2975                   (%make-qd-d q0 q1 q2 q3))
2976               #.(multiple-value-bind (q0 q1 q2 q3)
2977                     (renorm-5 (scale-float (float 8118628663374582 1.0d0) -53)
2978                               (scale-float (float -8778090168280888 1.0d0) -109)
2979                               (scale-float (float 7436746217749520 1.0d0) -163)
2980                               (scale-float (float 7630381168256317 1.0d0) -217)
2981                               (scale-float (float -5069066174988288 1.0d0) -274))
2982                   (%make-qd-d q0 q1 q2 q3))
2983               #.(multiple-value-bind (q0 q1 q2 q3)
2984                     (renorm-5 (scale-float (float 8106622471823008 1.0d0) -53)
2985                               (scale-float (float -8216747803830756 1.0d0) -107)
2986                               (scale-float (float 6304056001984601 1.0d0) -162)
2987                               (scale-float (float 5924872968038470 1.0d0) -217)
2988                               (scale-float (float -6048610326708224 1.0d0) -271))
2989                   (%make-qd-d q0 q1 q2 q3))
2990               #.(multiple-value-bind (q0 q1 q2 q3)
2991                     (renorm-5 (scale-float (float 8094539977653340 1.0d0) -53)
2992                               (scale-float (float 8540324421498539 1.0d0) -108)
2993                               (scale-float (float 6922258608862064 1.0d0) -167)
2994                               (scale-float (float -7901865974785605 1.0d0) -221)
2995                               (scale-float (float 4515492721065984 1.0d0) -275))
2996                   (%make-qd-d q0 q1 q2 q3))
2997               #.(multiple-value-bind (q0 q1 q2 q3)
2998                     (renorm-5 (scale-float (float 8082381294590617 1.0d0) -53)
2999                               (scale-float (float -5905634609941531 1.0d0) -107)
3000                               (scale-float (float -6901692996464097 1.0d0) -161)
3001                               (scale-float (float 6233038068306105 1.0d0) -215)
3002                               (scale-float (float 8981761373306880 1.0d0) -271))
3003                   (%make-qd-d q0 q1 q2 q3))
3004               #.(multiple-value-bind (q0 q1 q2 q3)
3005                     (renorm-5 (scale-float (float 8070146537076992 1.0d0) -53)
3006                               (scale-float (float 7954777128849873 1.0d0) -107)
3007                               (scale-float (float -5682461538967622 1.0d0) -161)
3008                               (scale-float (float -8988660354400493 1.0d0) -215)
3009                               (scale-float (float -6100107372142592 1.0d0) -269))
3010                   (%make-qd-d q0 q1 q2 q3))
3011               #.(multiple-value-bind (q0 q1 q2 q3)
3012                     (renorm-5 (scale-float (float 8057835820270665 1.0d0) -53)
3013                               (scale-float (float -5684340455847933 1.0d0) -108)
3014                               (scale-float (float -7717120355166554 1.0d0) -162)
3015                               (scale-float (float -6720192119717512 1.0d0) -218)
3016                               (scale-float (float 7255682615738368 1.0d0) -272))
3017                   (%make-qd-d q0 q1 q2 q3))
3018               #.(multiple-value-bind (q0 q1 q2 q3)
3019                     (renorm-5 (scale-float (float 8045449260044789 1.0d0) -53)
3020                               (scale-float (float -5343034318546435 1.0d0) -110)
3021                               (scale-float (float 5934925198868450 1.0d0) -164)
3022                               (scale-float (float 7220118970499754 1.0d0) -220)
3023                               (scale-float (float 7604382017257472 1.0d0) -275))
3024                   (%make-qd-d q0 q1 q2 q3))
3025               #.(multiple-value-bind (q0 q1 q2 q3)
3026                     (renorm-5 (scale-float (float 8032986972986387 1.0d0) -53)
3027                               (scale-float (float 6060738122016655 1.0d0) -110)
3028                               (scale-float (float 7553159386729597 1.0d0) -165)
3029                               (scale-float (float -6675526920595727 1.0d0) -220)
3030                               (scale-float (float 8878798832664576 1.0d0) -274))
3031                   (%make-qd-d q0 q1 q2 q3))
3032               #.(multiple-value-bind (q0 q1 q2 q3)
3033                     (renorm-5 (scale-float (float 8020449076395251 1.0d0) -53)
3034                               (scale-float (float 7646910712788417 1.0d0) -109)
3035                               (scale-float (float -6241730781228944 1.0d0) -165)
3036                               (scale-float (float -8002249139712356 1.0d0) -219)
3037                               (scale-float (float 5877609275981824 1.0d0) -273))
3038                   (%make-qd-d q0 q1 q2 q3))
3039               #.(multiple-value-bind (q0 q1 q2 q3)
3040                     (renorm-5 (scale-float (float 8007835688282839 1.0d0) -53)
3041                               (scale-float (float -7246184498625959 1.0d0) -109)
3042                               (scale-float (float -8137088343486848 1.0d0) -164)
3043                               (scale-float (float -6573626944638042 1.0d0) -218)
3044                               (scale-float (float -6507015480803328 1.0d0) -275))
3045                   (%make-qd-d q0 q1 q2 q3))
3046               #.(multiple-value-bind (q0 q1 q2 q3)
3047                     (renorm-5 (scale-float (float 7995146927371163 1.0d0) -53)
3048                               (scale-float (float 8310979817766747 1.0d0) -109)
3049                               (scale-float (float 7473299446962253 1.0d0) -167)
3050                               (scale-float (float -4891403068085003 1.0d0) -221)
3051                               (scale-float (float -4928869580668928 1.0d0) -277))
3052                   (%make-qd-d q0 q1 q2 q3))
3053               #.(multiple-value-bind (q0 q1 q2 q3)
3054                     (renorm-5 (scale-float (float 7982382913091674 1.0d0) -53)
3055                               (scale-float (float -8736996093293672 1.0d0) -110)
3056                               (scale-float (float 5792500826087577 1.0d0) -165)
3057                               (scale-float (float 6862659397941285 1.0d0) -221)
3058                               (scale-float (float -6256259112108032 1.0d0) -278))
3059                   (%make-qd-d q0 q1 q2 q3))
3060               #.(multiple-value-bind (q0 q1 q2 q3)
3061                     (renorm-5 (scale-float (float 7969543765584135 1.0d0) -53)
3062                               (scale-float (float -6122462417693605 1.0d0) -109)
3063                               (scale-float (float -6676904309874182 1.0d0) -163)
3064                               (scale-float (float 7692066278000649 1.0d0) -218)
3065                               (scale-float (float 5238455946575872 1.0d0) -272))
3066                   (%make-qd-d q0 q1 q2 q3))
3067               #.(multiple-value-bind (q0 q1 q2 q3)
3068                     (renorm-5 (scale-float (float 7956629605695492 1.0d0) -53)
3069                               (scale-float (float 5134741344813474 1.0d0) -108)
3070                               (scale-float (float -4613745536456255 1.0d0) -162)
3071                               (scale-float (float -6227040409576694 1.0d0) -218)
3072                               (scale-float (float 8053490270339072 1.0d0) -272))
3073                   (%make-qd-d q0 q1 q2 q3))
3074               #.(multiple-value-bind (q0 q1 q2 q3)
3075                     (renorm-5 (scale-float (float 7943640554978737 1.0d0) -53)
3076                               (scale-float (float -6439502272564487 1.0d0) -108)
3077                               (scale-float (float -8232593592811641 1.0d0) -163)
3078                               (scale-float (float -8961461139920910 1.0d0) -219)
3079                               (scale-float (float -5645007690792960 1.0d0) -273))
3080                   (%make-qd-d q0 q1 q2 q3))
3081               #.(multiple-value-bind (q0 q1 q2 q3)
3082                     (renorm-5 (scale-float (float 7930576735691761 1.0d0) -53)
3083                               (scale-float (float 5293253478187253 1.0d0) -108)
3084                               (scale-float (float -6727743417874982 1.0d0) -163)
3085                               (scale-float (float -8452072153366346 1.0d0) -217)
3086                               (scale-float (float 7869116537896960 1.0d0) -273))
3087                   (%make-qd-d q0 q1 q2 q3))
3088               #.(multiple-value-bind (q0 q1 q2 q3)
3089                     (renorm-5 (scale-float (float 7917438270796208 1.0d0) -53)
3090                               (scale-float (float -7684086171775532 1.0d0) -107)
3091                               (scale-float (float 8411685124468258 1.0d0) -162)
3092                               (scale-float (float -6126132756509931 1.0d0) -217)
3093                               (scale-float (float -7889183570460672 1.0d0) -271))
3094                   (%make-qd-d q0 q1 q2 q3))
3095               #.(multiple-value-bind (q0 q1 q2 q3)
3096                     (renorm-5 (scale-float (float 7904225283956311 1.0d0) -53)
3097                               (scale-float (float 8131349739729868 1.0d0) -107)
3098                               (scale-float (float 6637034140521224 1.0d0) -164)
3099                               (scale-float (float 6550694306870995 1.0d0) -218)
3100                               (scale-float (float -7233564266463232 1.0d0) -274))
3101                   (%make-qd-d q0 q1 q2 q3))
3102               #.(multiple-value-bind (q0 q1 q2 q3)
3103                     (renorm-5 (scale-float (float 7890937899537737 1.0d0) -53)
3104                               (scale-float (float 7623463201024326 1.0d0) -110)
3105                               (scale-float (float 6533764524387989 1.0d0) -164)
3106                               (scale-float (float -7808305661254231 1.0d0) -218)
3107                               (scale-float (float -6471689510846464 1.0d0) -274))
3108                   (%make-qd-d q0 q1 q2 q3))
3109               #.(multiple-value-bind (q0 q1 q2 q3)
3110                     (renorm-5 (scale-float (float 7877576242606407 1.0d0) -53)
3111                               (scale-float (float -5941713289950576 1.0d0) -113)
3112                               (scale-float (float -5557131795313346 1.0d0) -167)
3113                               (scale-float (float 5890046981724174 1.0d0) -222)
3114                               (scale-float (float 5016407876042752 1.0d0) -276))
3115                   (%make-qd-d q0 q1 q2 q3))
3116               #.(multiple-value-bind (q0 q1 q2 q3)
3117                     (renorm-5 (scale-float (float 7864140438927325 1.0d0) -53)
3118                               (scale-float (float 5090052289978408 1.0d0) -109)
3119                               (scale-float (float -5692258429067560 1.0d0) -163)
3120                               (scale-float (float -4805520048585976 1.0d0) -217)
3121                               (scale-float (float -4952641317404672 1.0d0) -271))
3122                   (%make-qd-d q0 q1 q2 q3))
3123               #.(multiple-value-bind (q0 q1 q2 q3)
3124                     (renorm-5 (scale-float (float 7850630614963393 1.0d0) -53)
3125                               (scale-float (float -8968556689917822 1.0d0) -107)
3126                               (scale-float (float -6461032805259083 1.0d0) -161)
3127                               (scale-float (float -5147125785674737 1.0d0) -215)
3128                               (scale-float (float 7213398509264896 1.0d0) -269))
3129                   (%make-qd-d q0 q1 q2 q3))
3130               #.(multiple-value-bind (q0 q1 q2 q3)
3131                     (renorm-5 (scale-float (float 7837046897874218 1.0d0) -53)
3132                               (scale-float (float -6796799480983562 1.0d0) -107)
3133                               (scale-float (float 8289659017936051 1.0d0) -163)
3134                               (scale-float (float 7919537224500868 1.0d0) -217)
3135                               (scale-float (float 6064981411954688 1.0d0) -271))
3136                   (%make-qd-d q0 q1 q2 q3))
3137               #.(multiple-value-bind (q0 q1 q2 q3)
3138                     (renorm-5 (scale-float (float 7823389415514919 1.0d0) -53)
3139                               (scale-float (float 5647719797707326 1.0d0) -114)
3140                               (scale-float (float -6252005772837378 1.0d0) -168)
3141                               (scale-float (float -8509580097279105 1.0d0) -222)
3142                               (scale-float (float -7268668395225088 1.0d0) -276))
3143                   (%make-qd-d q0 q1 q2 q3))
3144               #.(multiple-value-bind (q0 q1 q2 q3)
3145                     (renorm-5 (scale-float (float 7809658296434922 1.0d0) -53)
3146                               (scale-float (float 7857985603043508 1.0d0) -111)
3147                               (scale-float (float -5406124386166429 1.0d0) -165)
3148                               (scale-float (float -7222644714405805 1.0d0) -223)
3149                               (scale-float (float -8324453905727488 1.0d0) -280))
3150                   (%make-qd-d q0 q1 q2 q3))
3151               #.(multiple-value-bind (q0 q1 q2 q3)
3152                     (renorm-5 (scale-float (float 7795853669876749 1.0d0) -53)
3153                               (scale-float (float -8271733057494906 1.0d0) -110)
3154                               (scale-float (float 5547981887481697 1.0d0) -164)
3155                               (scale-float (float 6702866336981504 1.0d0) -218)
3156                               (scale-float (float 6887009961181184 1.0d0) -272))
3157                   (%make-qd-d q0 q1 q2 q3))
3158               #.(multiple-value-bind (q0 q1 q2 q3)
3159                     (renorm-5 (scale-float (float 7781975665774802 1.0d0) -53)
3160                               (scale-float (float 6731546115920822 1.0d0) -107)
3161                               (scale-float (float 6638133694034468 1.0d0) -161)
3162                               (scale-float (float -8554347442337204 1.0d0) -216)
3163                               (scale-float (float -7133797107941376 1.0d0) -270))
3164                   (%make-qd-d q0 q1 q2 q3))
3165               #.(multiple-value-bind (q0 q1 q2 q3)
3166                     (renorm-5 (scale-float (float 7768024414754142 1.0d0) -53)
3167                               (scale-float (float 6005052363670948 1.0d0) -107)
3168                               (scale-float (float 6094860705689399 1.0d0) -163)
3169                               (scale-float (float 5675405789834798 1.0d0) -217)
3170                               (scale-float (float -8415441607196672 1.0d0) -274))
3171                   (%make-qd-d q0 q1 q2 q3))
3172               #.(multiple-value-bind (q0 q1 q2 q3)
3173                     (renorm-5 (scale-float (float 7754000048129257 1.0d0) -53)
3174                               (scale-float (float -4875899202965061 1.0d0) -107)
3175                               (scale-float (float -5185769273148547 1.0d0) -162)
3176                               (scale-float (float 6320978780778161 1.0d0) -218)
3177                               (scale-float (float -7041822975590400 1.0d0) -272))
3178                   (%make-qd-d q0 q1 q2 q3))
3179               #.(multiple-value-bind (q0 q1 q2 q3)
3180                     (renorm-5 (scale-float (float 7739902697902825 1.0d0) -53)
3181                               (scale-float (float 6885578824615594 1.0d0) -107)
3182                               (scale-float (float 8907187678671986 1.0d0) -163)
3183                               (scale-float (float -8339075431974752 1.0d0) -217)
3184                               (scale-float (float 7380791702585344 1.0d0) -272))
3185                   (%make-qd-d q0 q1 q2 q3))
3186               #.(multiple-value-bind (q0 q1 q2 q3)
3187                     (renorm-5 (scale-float (float 7725732496764478 1.0d0) -53)
3188                               (scale-float (float -7818211417288033 1.0d0) -107)
3189                               (scale-float (float -6456405933798609 1.0d0) -162)
3190                               (scale-float (float 8810079633059484 1.0d0) -216)
3191                               (scale-float (float 7997595180138496 1.0d0) -271))
3192                   (%make-qd-d q0 q1 q2 q3))
3193               #.(multiple-value-bind (q0 q1 q2 q3)
3194                     (renorm-5 (scale-float (float 7711489578089543 1.0d0) -53)
3195                               (scale-float (float 5958610143385566 1.0d0) -109)
3196                               (scale-float (float 6585953111264567 1.0d0) -163)
3197                               (scale-float (float 7861064189197966 1.0d0) -221)
3198                               (scale-float (float 7301984551960576 1.0d0) -275))
3199                   (%make-qd-d q0 q1 q2 q3))
3200               #.(multiple-value-bind (q0 q1 q2 q3)
3201                     (renorm-5 (scale-float (float 7697174075937797 1.0d0) -53)
3202                               (scale-float (float -8431721695184386 1.0d0) -109)
3203                               (scale-float (float 6029995679316329 1.0d0) -165)
3204                               (scale-float (float -4921123855682338 1.0d0) -223)
3205                               (scale-float (float 6272694102261760 1.0d0) -278))
3206                   (%make-qd-d q0 q1 q2 q3))
3207               #.(multiple-value-bind (q0 q1 q2 q3)
3208                     (renorm-5 (scale-float (float 7682786125052197 1.0d0) -53)
3209                               (scale-float (float 8811647176963032 1.0d0) -108)
3210                               (scale-float (float 8691431362536178 1.0d0) -163)
3211                               (scale-float (float 8880441644193018 1.0d0) -217)
3212                               (scale-float (float -6070401771896832 1.0d0) -273))
3213                   (%make-qd-d q0 q1 q2 q3))
3214               #.(multiple-value-bind (q0 q1 q2 q3)
3215                     (renorm-5 (scale-float (float 7668325860857618 1.0d0) -53)
3216                               (scale-float (float -8645153897161875 1.0d0) -107)
3217                               (scale-float (float 6512789306468078 1.0d0) -161)
3218                               (scale-float (float -8484355539904639 1.0d0) -217)
3219                               (scale-float (float -8839694186053632 1.0d0) -271))
3220                   (%make-qd-d q0 q1 q2 q3))
3221               #.(multiple-value-bind (q0 q1 q2 q3)
3222                     (renorm-5 (scale-float (float 7653793419459571 1.0d0) -53)
3223                               (scale-float (float 8407034062131169 1.0d0) -107)
3224                               (scale-float (float 9005956094764978 1.0d0) -161)
3225                               (scale-float (float -5461770985431486 1.0d0) -217)
3226                               (scale-float (float -5644724666499072 1.0d0) -271))
3227                   (%make-qd-d q0 q1 q2 q3))
3228               #.(multiple-value-bind (q0 q1 q2 q3)
3229                     (renorm-5 (scale-float (float 7639188937642932 1.0d0) -53)
3230                               (scale-float (float 6088799942438190 1.0d0) -108)
3231                               (scale-float (float 8212922076806082 1.0d0) -162)
3232                               (scale-float (float -5247758149286959 1.0d0) -217)
3233                               (scale-float (float -4718251021697024 1.0d0) -273))
3234                   (%make-qd-d q0 q1 q2 q3))
3235               #.(multiple-value-bind (q0 q1 q2 q3)
3236                     (renorm-5 (scale-float (float 7624512552870645 1.0d0) -53)
3237                               (scale-float (float -7783483392394296 1.0d0) -107)
3238                               (scale-float (float -8043598484014106 1.0d0) -161)
3239                               (scale-float (float -7742450129971733 1.0d0) -216)
3240                               (scale-float (float -6829412475371520 1.0d0) -271))
3241                   (%make-qd-d q0 q1 q2 q3))
3242               #.(multiple-value-bind (q0 q1 q2 q3)
3243                     (renorm-5 (scale-float (float 7609764403282432 1.0d0) -53)
3244                               (scale-float (float -7079592968846542 1.0d0) -107)
3245                               (scale-float (float -5935955209333083 1.0d0) -161)
3246                               (scale-float (float 4538668036895069 1.0d0) -216)
3247                               (scale-float (float -5583593571680256 1.0d0) -270))
3248                   (%make-qd-d q0 q1 q2 q3))
3249               #.(multiple-value-bind (q0 q1 q2 q3)
3250                     (renorm-5 (scale-float (float 7594944627693494 1.0d0) -53)
3251                               (scale-float (float 5012472405203384 1.0d0) -112)
3252                               (scale-float (float 8678696578736612 1.0d0) -171)
3253                               (scale-float (float 5214866625493772 1.0d0) -225)
3254                               (scale-float (float 5448222990401536 1.0d0) -281))
3255                   (%make-qd-d q0 q1 q2 q3))
3256               #.(multiple-value-bind (q0 q1 q2 q3)
3257                     (renorm-5 (scale-float (float 7580053365593204 1.0d0) -53)
3258                               (scale-float (float -5532305557551308 1.0d0) -107)
3259                               (scale-float (float -4918257505158720 1.0d0) -162)
3260                               (scale-float (float -5207406790673379 1.0d0) -216)
3261                               (scale-float (float 7951711879168000 1.0d0) -270))
3262                   (%make-qd-d q0 q1 q2 q3))
3263               #.(multiple-value-bind (q0 q1 q2 q3)
3264                     (renorm-5 (scale-float (float 7565090757143791 1.0d0) -53)
3265                               (scale-float (float -5410923347089996 1.0d0) -108)
3266                               (scale-float (float -8628228715534538 1.0d0) -162)
3267                               (scale-float (float -7982155484674416 1.0d0) -216)
3268                               (scale-float (float 8537036572852224 1.0d0) -270))
3269                   (%make-qd-d q0 q1 q2 q3))
3270               #.(multiple-value-bind (q0 q1 q2 q3)
3271                     (renorm-5 (scale-float (float 7550056943179025 1.0d0) -53)
3272                               (scale-float (float -5769953684661576 1.0d0) -107)
3273                               (scale-float (float 6833859811950236 1.0d0) -162)
3274                               (scale-float (float -6174180304901008 1.0d0) -216)
3275                               (scale-float (float 7716326889488384 1.0d0) -270))
3276                   (%make-qd-d q0 q1 q2 q3))
3277               #.(multiple-value-bind (q0 q1 q2 q3)
3278                     (renorm-5 (scale-float (float 7534952065202888 1.0d0) -53)
3279                               (scale-float (float -6782132408285718 1.0d0) -108)
3280                               (scale-float (float -4588137587016523 1.0d0) -165)
3281                               (scale-float (float -5326135934499720 1.0d0) -220)
3282                               (scale-float (float -5851538559860736 1.0d0) -275))
3283                   (%make-qd-d q0 q1 q2 q3))
3284               #.(multiple-value-bind (q0 q1 q2 q3)
3285                     (renorm-5 (scale-float (float 7519776265388244 1.0d0) -53)
3286                               (scale-float (float 7471785049762459 1.0d0) -107)
3287                               (scale-float (float -6059669116863189 1.0d0) -163)
3288                               (scale-float (float -5940063433657282 1.0d0) -219)
3289                               (scale-float (float 7125890889678848 1.0d0) -276))
3290                   (%make-qd-d q0 q1 q2 q3))
3291               #.(multiple-value-bind (q0 q1 q2 q3)
3292                     (renorm-5 (scale-float (float 7504529686575502 1.0d0) -53)
3293                               (scale-float (float 6892841323703210 1.0d0) -112)
3294                               (scale-float (float 4544841146313886 1.0d0) -166)
3295                               (scale-float (float 7653639258512367 1.0d0) -220)
3296                               (scale-float (float 7569408692584448 1.0d0) -275))
3297                   (%make-qd-d q0 q1 q2 q3))
3298               #.(multiple-value-bind (q0 q1 q2 q3)
3299                     (renorm-5 (scale-float (float 7489212472271267 1.0d0) -53)
3300                               (scale-float (float 7307564340927176 1.0d0) -112)
3301                               (scale-float (float 8783286311491533 1.0d0) -167)
3302                               (scale-float (float -5455043666319990 1.0d0) -224)
3303                               (scale-float (float 8783883789139968 1.0d0) -278))
3304                   (%make-qd-d q0 q1 q2 q3))
3305               #.(multiple-value-bind (q0 q1 q2 q3)
3306                     (renorm-5 (scale-float (float 7473824766646994 1.0d0) -53)
3307                               (scale-float (float -7619464420816061 1.0d0) -111)
3308                               (scale-float (float 5376884603206074 1.0d0) -165)
3309                               (scale-float (float 5928941415547088 1.0d0) -220)
3310                               (scale-float (float 8455374121992192 1.0d0) -274))
3311                   (%make-qd-d q0 q1 q2 q3))
3312               #.(multiple-value-bind (q0 q1 q2 q3)
3313                     (renorm-5 (scale-float (float 7458366714537629 1.0d0) -53)
3314                               (scale-float (float -7171307255144825 1.0d0) -107)
3315                               (scale-float (float 8175016055708132 1.0d0) -161)
3316                               (scale-float (float 5281820716761617 1.0d0) -215)
3317                               (scale-float (float 8311159501185024 1.0d0) -269))
3318                   (%make-qd-d q0 q1 q2 q3))
3319               #.(multiple-value-bind (q0 q1 q2 q3)
3320                     (renorm-5 (scale-float (float 7442838461440245 1.0d0) -53)
3321                               (scale-float (float -8755102569226029 1.0d0) -107)
3322                               (scale-float (float 8064787730576089 1.0d0) -163)
3323                               (scale-float (float 8026094972828839 1.0d0) -217)
3324                               (scale-float (float 5751663179956224 1.0d0) -271))
3325                   (%make-qd-d q0 q1 q2 q3))
3326               #.(multiple-value-bind (q0 q1 q2 q3)
3327                     (renorm-5 (scale-float (float 7427240153512674 1.0d0) -53)
3328                               (scale-float (float -8603752879918352 1.0d0) -108)
3329                               (scale-float (float 7911734751209565 1.0d0) -165)
3330                               (scale-float (float 5703206095815899 1.0d0) -219)
3331                               (scale-float (float 8416681442410496 1.0d0) -274))
3332                   (%make-qd-d q0 q1 q2 q3))
3333               #.(multiple-value-bind (q0 q1 q2 q3)
3334                     (renorm-5 (scale-float (float 7411571937572131 1.0d0) -53)
3335                               (scale-float (float 4930416562782670 1.0d0) -108)
3336                               (scale-float (float 5664227737707146 1.0d0) -162)
3337                               (scale-float (float 6002228034137708 1.0d0) -216)
3338                               (scale-float (float -4846907501363200 1.0d0) -270))
3339                   (%make-qd-d q0 q1 q2 q3))
3340               #.(multiple-value-bind (q0 q1 q2 q3)
3341                     (renorm-5 (scale-float (float 7395833961093832 1.0d0) -53)
3342                               (scale-float (float 4983815042703658 1.0d0) -107)
3343                               (scale-float (float -4979969880744113 1.0d0) -161)
3344                               (scale-float (float -5871087828457004 1.0d0) -215)
3345                               (scale-float (float -8687351198859264 1.0d0) -270))
3346                   (%make-qd-d q0 q1 q2 q3))
3347               #.(multiple-value-bind (q0 q1 q2 q3)
3348                     (renorm-5 (scale-float (float 7380026372209606 1.0d0) -53)
3349                               (scale-float (float -7821016727474824 1.0d0) -107)
3350                               (scale-float (float -5827108382516599 1.0d0) -168)
3351                               (scale-float (float -5157322064549901 1.0d0) -225)
3352                               (scale-float (float -8235128836849664 1.0d0) -279))
3353                   (%make-qd-d q0 q1 q2 q3))
3354               #.(multiple-value-bind (q0 q1 q2 q3)
3355                     (renorm-5 (scale-float (float 7364149319706498 1.0d0) -53)
3356                               (scale-float (float -4829858251010421 1.0d0) -108)
3357                               (scale-float (float -4575860067979415 1.0d0) -162)
3358                               (scale-float (float 8705566695469741 1.0d0) -217)
3359                               (scale-float (float 8584218775715840 1.0d0) -271))
3360                   (%make-qd-d q0 q1 q2 q3))
3361               #.(multiple-value-bind (q0 q1 q2 q3)
3362                     (renorm-5 (scale-float (float 7348202953025374 1.0d0) -53)
3363                               (scale-float (float 5364466528429990 1.0d0) -109)
3364                               (scale-float (float -5385055512047183 1.0d0) -164)
3365                               (scale-float (float 6361734986933710 1.0d0) -218)
3366                               (scale-float (float 8428933703860224 1.0d0) -272))
3367                   (%make-qd-d q0 q1 q2 q3))
3368               #.(multiple-value-bind (q0 q1 q2 q3)
3369                     (renorm-5 (scale-float (float 7332187422259511 1.0d0) -53)
3370                               (scale-float (float -8458146418590874 1.0d0) -107)
3371                               (scale-float (float -5567640357155716 1.0d0) -161)
3372                               (scale-float (float -8918513373518275 1.0d0) -215)
3373                               (scale-float (float 6959159013900288 1.0d0) -269))
3374                   (%make-qd-d q0 q1 q2 q3))
3375               #.(multiple-value-bind (q0 q1 q2 q3)
3376                     (renorm-5 (scale-float (float 7316102878153182 1.0d0) -53)
3377                               (scale-float (float 5038888112811017 1.0d0) -107)
3378                               (scale-float (float 5296374816773052 1.0d0) -164)
3379                               (scale-float (float -6253164519860774 1.0d0) -219)
3380                               (scale-float (float -5766783657050112 1.0d0) -274))
3381                   (%make-qd-d q0 q1 q2 q3))
3382               #.(multiple-value-bind (q0 q1 q2 q3)
3383                     (renorm-5 (scale-float (float 7299949472100244 1.0d0) -53)
3384                               (scale-float (float 7632795593885122 1.0d0) -108)
3385                               (scale-float (float -4532413022792557 1.0d0) -162)
3386                               (scale-float (float -7665957245126532 1.0d0) -216)
3387                               (scale-float (float 4551095610851328 1.0d0) -270))
3388                   (%make-qd-d q0 q1 q2 q3))
3389               #.(multiple-value-bind (q0 q1 q2 q3)
3390                     (renorm-5 (scale-float (float 7283727356142706 1.0d0) -53)
3391                               (scale-float (float 6052374734052898 1.0d0) -109)
3392                               (scale-float (float -8397589869895301 1.0d0) -163)
3393                               (scale-float (float 5039286009373352 1.0d0) -217)
3394                               (scale-float (float 7399597584678912 1.0d0) -272))
3395                   (%make-qd-d q0 q1 q2 q3))
3396               #.(multiple-value-bind (q0 q1 q2 q3)
3397                     (renorm-5 (scale-float (float 7267436682969301 1.0d0) -53)
3398                               (scale-float (float 7986499572183919 1.0d0) -107)
3399                               (scale-float (float 8709385497029640 1.0d0) -161)
3400                               (scale-float (float 8014662541064248 1.0d0) -215)
3401                               (scale-float (float -7783360213237760 1.0d0) -269))
3402                   (%make-qd-d q0 q1 q2 q3))
3403               #.(multiple-value-bind (q0 q1 q2 q3)
3404                     (renorm-5 (scale-float (float 7251077605914050 1.0d0) -53)
3405                               (scale-float (float 8334981517291728 1.0d0) -107)
3406                               (scale-float (float 7375650104466233 1.0d0) -163)
3407                               (scale-float (float 6173629469842000 1.0d0) -219)
3408                               (scale-float (float -4778658658516992 1.0d0) -274))
3409                   (%make-qd-d q0 q1 q2 q3))
3410               #.(multiple-value-bind (q0 q1 q2 q3)
3411                     (renorm-5 (scale-float (float 7234650278954817 1.0d0) -53)
3412                               (scale-float (float -5364390638462068 1.0d0) -107)
3413                               (scale-float (float -7157105785322597 1.0d0) -162)
3414                               (scale-float (float 5984618093282123 1.0d0) -217)
3415                               (scale-float (float -6733805595688960 1.0d0) -271))
3416                   (%make-qd-d q0 q1 q2 q3))
3417               #.(multiple-value-bind (q0 q1 q2 q3)
3418                     (renorm-5 (scale-float (float 7218154856711858 1.0d0) -53)
3419                               (scale-float (float -6801264200501575 1.0d0) -108)
3420                               (scale-float (float -5120886861157727 1.0d0) -163)
3421                               (scale-float (float 8524267759255856 1.0d0) -218)
3422                               (scale-float (float 6064819028230144 1.0d0) -272))
3423                   (%make-qd-d q0 q1 q2 q3))
3424               #.(multiple-value-bind (q0 q1 q2 q3)
3425                     (renorm-5 (scale-float (float 7201591494446370 1.0d0) -53)
3426                               (scale-float (float 6606134571941243 1.0d0) -108)
3427                               (scale-float (float -5696846492939078 1.0d0) -162)
3428                               (scale-float (float 7226358878672853 1.0d0) -223)
3429                               (scale-float (float 7562246177685504 1.0d0) -277))
3430                   (%make-qd-d q0 q1 q2 q3))
3431               #.(multiple-value-bind (q0 q1 q2 q3)
3432                     (renorm-5 (scale-float (float 7184960348059028 1.0d0) -53)
3433                               (scale-float (float -7582499304585468 1.0d0) -107)
3434                               (scale-float (float 6745092272239030 1.0d0) -161)
3435                               (scale-float (float 5325527634933226 1.0d0) -220)
3436                               (scale-float (float 8972890568392704 1.0d0) -274))
3437                   (%make-qd-d q0 q1 q2 q3))
3438               #.(multiple-value-bind (q0 q1 q2 q3)
3439                     (renorm-5 (scale-float (float 7168261574088514 1.0d0) -53)
3440                               (scale-float (float -4877955993986654 1.0d0) -107)
3441                               (scale-float (float -6575649792954184 1.0d0) -161)
3442                               (scale-float (float -6938160611470782 1.0d0) -216)
3443                               (scale-float (float -8603536429907968 1.0d0) -271))
3444                   (%make-qd-d q0 q1 q2 q3))
3445               #.(multiple-value-bind (q0 q1 q2 q3)
3446                     (renorm-5 (scale-float (float 7151495329710049 1.0d0) -53)
3447                               (scale-float (float -4815506917589854 1.0d0) -109)
3448                               (scale-float (float 5641242290599654 1.0d0) -164)
3449                               (scale-float (float -8417705599718850 1.0d0) -220)
3450                               (scale-float (float 4840832930938880 1.0d0) -274))
3451                   (%make-qd-d q0 q1 q2 q3))
3452               #.(multiple-value-bind (q0 q1 q2 q3)
3453                     (renorm-5 (scale-float (float 7134661772733911 1.0d0) -53)
3454                               (scale-float (float -6017847752979687 1.0d0) -107)
3455                               (scale-float (float -8695617460185062 1.0d0) -162)
3456                               (scale-float (float 6176165148681625 1.0d0) -217)
3457                               (scale-float (float 8270872401805312 1.0d0) -273))
3458                   (%make-qd-d q0 q1 q2 q3))
3459               #.(multiple-value-bind (q0 q1 q2 q3)
3460                     (renorm-5 (scale-float (float 7117761061603948 1.0d0) -53)
3461                               (scale-float (float 7482393772340198 1.0d0) -108)
3462                               (scale-float (float 8465649163872175 1.0d0) -162)
3463                               (scale-float (float -8080110543307406 1.0d0) -216)
3464                               (scale-float (float 7003574694313984 1.0d0) -275))
3465                   (%make-qd-d q0 q1 q2 q3))
3466               #.(multiple-value-bind (q0 q1 q2 q3)
3467                     (renorm-5 (scale-float (float 7100793355396091 1.0d0) -53)
3468                               (scale-float (float 5581231234277131 1.0d0) -107)
3469                               (scale-float (float 5176821120801589 1.0d0) -161)
3470                               (scale-float (float 8995859729422842 1.0d0) -215)
3471                               (scale-float (float 4932144053190656 1.0d0) -271))
3472                   (%make-qd-d q0 q1 q2 q3))
3473               #.(multiple-value-bind (q0 q1 q2 q3)
3474                     (renorm-5 (scale-float (float 7083758813816853 1.0d0) -53)
3475                               (scale-float (float -6350271866355127 1.0d0) -109)
3476                               (scale-float (float 7928602718099880 1.0d0) -164)
3477                               (scale-float (float 4824946278411294 1.0d0) -219)
3478                               (scale-float (float -8497833842835456 1.0d0) -273))
3479                   (%make-qd-d q0 q1 q2 q3))
3480               #.(multiple-value-bind (q0 q1 q2 q3)
3481                     (renorm-5 (scale-float (float 7066657597201826 1.0d0) -53)
3482                               (scale-float (float -5557572698368406 1.0d0) -109)
3483                               (scale-float (float -4935627699312564 1.0d0) -164)
3484                               (scale-float (float -7115034144224561 1.0d0) -218)
3485                               (scale-float (float 5203824039952384 1.0d0) -273))
3486                   (%make-qd-d q0 q1 q2 q3))
3487               #.(multiple-value-bind (q0 q1 q2 q3)
3488                     (renorm-5 (scale-float (float 7049489866514174 1.0d0) -53)
3489                               (scale-float (float 5889743500293894 1.0d0) -109)
3490                               (scale-float (float 7906589096317472 1.0d0) -163)
3491                               (scale-float (float -7234212083698060 1.0d0) -218)
3492                               (scale-float (float -7540628548812800 1.0d0) -272))
3493                   (%make-qd-d q0 q1 q2 q3))
3494               #.(multiple-value-bind (q0 q1 q2 q3)
3495                     (renorm-5 (scale-float (float 7032255783343117 1.0d0) -53)
3496                               (scale-float (float -6438369056191217 1.0d0) -109)
3497                               (scale-float (float -6365182518869508 1.0d0) -171)
3498                               (scale-float (float 5309542037636005 1.0d0) -230)
3499                               (scale-float (float 5599812451827712 1.0d0) -284))
3500                   (%make-qd-d q0 q1 q2 q3))
3501               #.(multiple-value-bind (q0 q1 q2 q3)
3502                     (renorm-5 (scale-float (float 7014955509902409 1.0d0) -53)
3503                               (scale-float (float -8077716446967319 1.0d0) -108)
3504                               (scale-float (float 6329167020324237 1.0d0) -166)
3505                               (scale-float (float -8791449117706018 1.0d0) -223)
3506                               (scale-float (float 6176518547963904 1.0d0) -281))
3507                   (%make-qd-d q0 q1 q2 q3))
3508               #.(multiple-value-bind (q0 q1 q2 q3)
3509                     (renorm-5 (scale-float (float 6997589209028812 1.0d0) -53)
3510                               (scale-float (float 5024754586498263 1.0d0) -109)
3511                               (scale-float (float -7013631527035059 1.0d0) -163)
3512                               (scale-float (float 6438066485620793 1.0d0) -217)
3513                               (scale-float (float -8049616906584064 1.0d0) -271))
3514                   (%make-qd-d q0 q1 q2 q3))
3515               #.(multiple-value-bind (q0 q1 q2 q3)
3516                     (renorm-5 (scale-float (float 6980157044180565 1.0d0) -53)
3517                               (scale-float (float -8471408082297477 1.0d0) -107)
3518                               (scale-float (float -5650375399951533 1.0d0) -162)
3519                               (scale-float (float 7798954431786796 1.0d0) -217)
3520                               (scale-float (float -8802857478946816 1.0d0) -271))
3521                   (%make-qd-d q0 q1 q2 q3))
3522               #.(multiple-value-bind (q0 q1 q2 q3)
3523                     (renorm-5 (scale-float (float 6962659179435841 1.0d0) -53)
3524                               (scale-float (float -5284120524567405 1.0d0) -107)
3525                               (scale-float (float 8103036997132110 1.0d0) -162)
3526                               (scale-float (float -8418944709321890 1.0d0) -217)
3527                               (scale-float (float -8911754376773632 1.0d0) -273))
3528                   (%make-qd-d q0 q1 q2 q3))
3529               #.(multiple-value-bind (q0 q1 q2 q3)
3530                     (renorm-5 (scale-float (float 6945095779491208 1.0d0) -53)
3531                               (scale-float (float -7230020631985237 1.0d0) -107)
3532                               (scale-float (float -8729130008304460 1.0d0) -161)
3533                               (scale-float (float -7244986705962520 1.0d0) -216)
3534                               (scale-float (float -5294115693002752 1.0d0) -270))
3535                   (%make-qd-d q0 q1 q2 q3))
3536               #.(multiple-value-bind (q0 q1 q2 q3)
3537                     (renorm-5 (scale-float (float 6927467009660074 1.0d0) -53)
3538                               (scale-float (float 8363890541356943 1.0d0) -107)
3539                               (scale-float (float 7641557639387694 1.0d0) -161)
3540                               (scale-float (float -8529781507802362 1.0d0) -215)
3541                               (scale-float (float 7813868317630464 1.0d0) -269))
3542                   (%make-qd-d q0 q1 q2 q3))
3543               #.(multiple-value-bind (q0 q1 q2 q3)
3544                     (renorm-5 (scale-float (float 6909773035871137 1.0d0) -53)
3545                               (scale-float (float -6128826147983157 1.0d0) -108)
3546                               (scale-float (float -7985270411148689 1.0d0) -162)
3547                               (scale-float (float -4747232722969418 1.0d0) -217)
3548                               (scale-float (float -5981344472137728 1.0d0) -271))
3549                   (%make-qd-d q0 q1 q2 q3))
3550               #.(multiple-value-bind (q0 q1 q2 q3)
3551                     (renorm-5 (scale-float (float 6892014024666815 1.0d0) -53)
3552                               (scale-float (float -5307050774979789 1.0d0) -107)
3553                               (scale-float (float 6534150355198809 1.0d0) -162)
3554                               (scale-float (float -7794201099075978 1.0d0) -217)
3555                               (scale-float (float 5799811176726528 1.0d0) -271))
3556                   (%make-qd-d q0 q1 q2 q3))
3557               #.(multiple-value-bind (q0 q1 q2 q3)
3558                     (renorm-5 (scale-float (float 6874190143201685 1.0d0) -53)
3559                               (scale-float (float 6831699276871462 1.0d0) -111)
3560                               (scale-float (float 6569994269441010 1.0d0) -165)
3561                               (scale-float (float 6039155211825079 1.0d0) -222)
3562                               (scale-float (float 7188073050800128 1.0d0) -276))
3563                   (%make-qd-d q0 q1 q2 q3))
3564               #.(multiple-value-bind (q0 q1 q2 q3)
3565                     (renorm-5 (scale-float (float 6856301559240908 1.0d0) -53)
3566                               (scale-float (float 5730269256517324 1.0d0) -107)
3567                               (scale-float (float 7502511311955837 1.0d0) -162)
3568                               (scale-float (float -8934221579630434 1.0d0) -216)
3569                               (scale-float (float 4924476284665856 1.0d0) -270))
3570                   (%make-qd-d q0 q1 q2 q3))
3571               #.(multiple-value-bind (q0 q1 q2 q3)
3572                     (renorm-5 (scale-float (float 6838348441158650 1.0d0) -53)
3573                               (scale-float (float -6256529846772154 1.0d0) -107)
3574                               (scale-float (float 6949788990055632 1.0d0) -164)
3575                               (scale-float (float -5274624651616658 1.0d0) -218)
3576                               (scale-float (float -4617708658229248 1.0d0) -278))
3577                   (%make-qd-d q0 q1 q2 q3))
3578               #.(multiple-value-bind (q0 q1 q2 q3)
3579                     (renorm-5 (scale-float (float 6820330957936494 1.0d0) -53)
3580                               (scale-float (float -6460871939863669 1.0d0) -108)
3581                               (scale-float (float 4607738561562238 1.0d0) -163)
3582                               (scale-float (float 8738499798315367 1.0d0) -218)
3583                               (scale-float (float 5614529372487680 1.0d0) -274))
3584                   (%make-qd-d q0 q1 q2 q3))
3585               #.(multiple-value-bind (q0 q1 q2 q3)
3586                     (renorm-5 (scale-float (float 6802249279161855 1.0d0) -53)
3587                               (scale-float (float -6296386214088169 1.0d0) -108)
3588                               (scale-float (float -8828921206139670 1.0d0) -164)
3589                               (scale-float (float -8935639395611922 1.0d0) -218)
3590                               (scale-float (float -5283050418077696 1.0d0) -276))
3591                   (%make-qd-d q0 q1 q2 q3))
3592               #.(multiple-value-bind (q0 q1 q2 q3)
3593                     (renorm-5 (scale-float (float 6784103575026380 1.0d0) -53)
3594                               (scale-float (float -6155758343732070 1.0d0) -107)
3595                               (scale-float (float -7834764184816714 1.0d0) -163)
3596                               (scale-float (float -5655570170200821 1.0d0) -219)
3597                               (scale-float (float -5664081777393664 1.0d0) -273))
3598                   (%make-qd-d q0 q1 q2 q3))
3599               #.(multiple-value-bind (q0 q1 q2 q3)
3600                     (renorm-5 (scale-float (float 6765894016324346 1.0d0) -53)
3601                               (scale-float (float 7058239787845383 1.0d0) -107)
3602                               (scale-float (float 7374070516477953 1.0d0) -161)
3603                               (scale-float (float -6947421257903780 1.0d0) -216)
3604                               (scale-float (float 6454924456689664 1.0d0) -271))
3605                   (%make-qd-d q0 q1 q2 q3))
3606               #.(multiple-value-bind (q0 q1 q2 q3)
3607                     (renorm-5 (scale-float (float 6747620774451057 1.0d0) -53)
3608                               (scale-float (float -7257707922049303 1.0d0) -107)
3609                               (scale-float (float -7075429107224891 1.0d0) -161)
3610                               (scale-float (float 5969459465011329 1.0d0) -215)
3611                               (scale-float (float -7312723756220416 1.0d0) -270))
3612                   (%make-qd-d q0 q1 q2 q3))
3613               #.(multiple-value-bind (q0 q1 q2 q3)
3614                     (renorm-5 (scale-float (float 6729284021401222 1.0d0) -53)
3615                               (scale-float (float 7707201987390816 1.0d0) -109)
3616                               (scale-float (float 5142737538491299 1.0d0) -164)
3617                               (scale-float (float 4644279882924390 1.0d0) -218)
3618                               (scale-float (float -8754229690236928 1.0d0) -275))
3619                   (%make-qd-d q0 q1 q2 q3))
3620               #.(multiple-value-bind (q0 q1 q2 q3)
3621                     (renorm-5 (scale-float (float 6710883929767346 1.0d0) -53)
3622                               (scale-float (float 4893313667710853 1.0d0) -108)
3623                               (scale-float (float 4729360090805088 1.0d0) -162)
3624                               (scale-float (float 8707005308054696 1.0d0) -216)
3625                               (scale-float (float 8672694993551360 1.0d0) -270))
3626                   (%make-qd-d q0 q1 q2 q3))
3627               #.(multiple-value-bind (q0 q1 q2 q3)
3628                     (renorm-5 (scale-float (float 6692420672738099 1.0d0) -53)
3629                               (scale-float (float -8159898852694060 1.0d0) -108)
3630                               (scale-float (float 8316410770739968 1.0d0) -163)
3631                               (scale-float (float 6356993048951430 1.0d0) -217)
3632                               (scale-float (float -5528950524149760 1.0d0) -271))
3633                   (%make-qd-d q0 q1 q2 q3))
3634               #.(multiple-value-bind (q0 q1 q2 q3)
3635                     (renorm-5 (scale-float (float 6673894424096687 1.0d0) -53)
3636                               (scale-float (float -4773219099675351 1.0d0) -108)
3637                               (scale-float (float -5793443213505971 1.0d0) -163)
3638                               (scale-float (float 6620801067481707 1.0d0) -217)
3639                               (scale-float (float -6636733689954304 1.0d0) -272))
3640                   (%make-qd-d q0 q1 q2 q3))
3641               #.(multiple-value-bind (q0 q1 q2 q3)
3642                     (renorm-5 (scale-float (float 6655305358219218 1.0d0) -53)
3643                               (scale-float (float 5569529363635887 1.0d0) -107)
3644                               (scale-float (float -8012910396303650 1.0d0) -162)
3645                               (scale-float (float -5648248265418359 1.0d0) -220)
3646                               (scale-float (float 8153552398581760 1.0d0) -275))
3647                   (%make-qd-d q0 q1 q2 q3))
3648               #.(multiple-value-bind (q0 q1 q2 q3)
3649                     (renorm-5 (scale-float (float 6636653650073061 1.0d0) -53)
3650                               (scale-float (float -4694561351059034 1.0d0) -107)
3651                               (scale-float (float -8102538682924120 1.0d0) -164)
3652                               (scale-float (float -7786569469548835 1.0d0) -218)
3653                               (scale-float (float 8371892820180992 1.0d0) -272))
3654                   (%make-qd-d q0 q1 q2 q3))
3655               #.(multiple-value-bind (q0 q1 q2 q3)
3656                     (renorm-5 (scale-float (float 6617939475215195 1.0d0) -53)
3657                               (scale-float (float -5599177568223260 1.0d0) -107)
3658                               (scale-float (float -6932779364632684 1.0d0) -161)
3659                               (scale-float (float -8360972497909144 1.0d0) -217)
3660                               (scale-float (float 8440581667160064 1.0d0) -273))
3661                   (%make-qd-d q0 q1 q2 q3))
3662               #.(multiple-value-bind (q0 q1 q2 q3)
3663                     (renorm-5 (scale-float (float 6599163009790561 1.0d0) -53)
3664                               (scale-float (float 6139460555376271 1.0d0) -108)
3665                               (scale-float (float -8841336350505836 1.0d0) -162)
3666                               (scale-float (float -8249924986768898 1.0d0) -219)
3667                               (scale-float (float 6554656515817472 1.0d0) -274))
3668                   (%make-qd-d q0 q1 q2 q3))
3669               #.(multiple-value-bind (q0 q1 q2 q3)
3670                     (renorm-5 (scale-float (float 6580324430530404 1.0d0) -53)
3671                               (scale-float (float -4817471423188767 1.0d0) -107)
3672                               (scale-float (float -6592466314970465 1.0d0) -162)
3673                               (scale-float (float -6430688881172527 1.0d0) -217)
3674                               (scale-float (float 7548766299455488 1.0d0) -271))
3675                   (%make-qd-d q0 q1 q2 q3))
3676               #.(multiple-value-bind (q0 q1 q2 q3)
3677                     (renorm-5 (scale-float (float 6561423914750605 1.0d0) -53)
3678                               (scale-float (float 4953302629983138 1.0d0) -115)
3679                               (scale-float (float 8830091491978098 1.0d0) -170)
3680                               (scale-float (float 6566412636432061 1.0d0) -225)
3681                               (scale-float (float -6039243222679552 1.0d0) -279))
3682                   (%make-qd-d q0 q1 q2 q3))
3683               #.(multiple-value-bind (q0 q1 q2 q3)
3684                     (renorm-5 (scale-float (float 6542461640350018 1.0d0) -53)
3685                               (scale-float (float -5178910864670558 1.0d0) -107)
3686                               (scale-float (float 4504226005724943 1.0d0) -162)
3687                               (scale-float (float 8731627485611706 1.0d0) -217)
3688                               (scale-float (float -8496323296755712 1.0d0) -275))
3689                   (%make-qd-d q0 q1 q2 q3))
3690               #.(multiple-value-bind (q0 q1 q2 q3)
3691                     (renorm-5 (scale-float (float 6523437785808790 1.0d0) -53)
3692                               (scale-float (float 4737722843238748 1.0d0) -107)
3693                               (scale-float (float 6730894629032702 1.0d0) -161)
3694                               (scale-float (float -8714007801572383 1.0d0) -222)
3695                               (scale-float (float 5055624448573440 1.0d0) -276))
3696                   (%make-qd-d q0 q1 q2 q3))
3697               #.(multiple-value-bind (q0 q1 q2 q3)
3698                     (renorm-5 (scale-float (float 6504352530186687 1.0d0) -53)
3699                               (scale-float (float -7746667435587544 1.0d0) -108)
3700                               (scale-float (float 6217885893994028 1.0d0) -162)
3701                               (scale-float (float -4696784861307301 1.0d0) -216)
3702                               (scale-float (float 6554674082054144 1.0d0) -271))
3703                   (%make-qd-d q0 q1 q2 q3))
3704               #.(multiple-value-bind (q0 q1 q2 q3)
3705                     (renorm-5 (scale-float (float 6485206053121402 1.0d0) -53)
3706                               (scale-float (float -8336770935428512 1.0d0) -108)
3707                               (scale-float (float -5348661455957571 1.0d0) -162)
3708                               (scale-float (float 4676263914929793 1.0d0) -216)
3709                               (scale-float (float -8051389762469888 1.0d0) -271))
3710                   (%make-qd-d q0 q1 q2 q3))
3711               #.(multiple-value-bind (q0 q1 q2 q3)
3712                     (renorm-5 (scale-float (float 6465998534826869 1.0d0) -53)
3713                               (scale-float (float 8764102551217140 1.0d0) -108)
3714                               (scale-float (float -5344409034097828 1.0d0) -164)
3715                               (scale-float (float 7727976365078167 1.0d0) -219)
3716                               (scale-float (float 6996616368095232 1.0d0) -278))
3717                   (%make-qd-d q0 q1 q2 q3))
3718               #.(multiple-value-bind (q0 q1 q2 q3)
3719                     (renorm-5 (scale-float (float 6446730156091567 1.0d0) -53)
3720                               (scale-float (float -8369498756096622 1.0d0) -107)
3721                               (scale-float (float -6424186581703649 1.0d0) -165)
3722                               (scale-float (float 7285509676227856 1.0d0) -219)
3723                               (scale-float (float 7917470908678144 1.0d0) -275))
3724                   (%make-qd-d q0 q1 q2 q3))
3725               #.(multiple-value-bind (q0 q1 q2 q3)
3726                     (renorm-5 (scale-float (float 6427401098276813 1.0d0) -53)
3727                               (scale-float (float -6870464143590238 1.0d0) -107)
3728                               (scale-float (float -4991363196461545 1.0d0) -163)
3729                               (scale-float (float -5550457137190991 1.0d0) -217)
3730                               (scale-float (float -7394857139699712 1.0d0) -273))
3731                   (%make-qd-d q0 q1 q2 q3))
3732               #.(multiple-value-bind (q0 q1 q2 q3)
3733                     (renorm-5 (scale-float (float 6408011543315061 1.0d0) -53)
3734                               (scale-float (float 5169145614950999 1.0d0) -109)
3735                               (scale-float (float 6895537652308040 1.0d0) -164)
3736                               (scale-float (float 7155016695131698 1.0d0) -218)
3737                               (scale-float (float -6303157784870912 1.0d0) -272))
3738                   (%make-qd-d q0 q1 q2 q3))
3739               #.(multiple-value-bind (q0 q1 q2 q3)
3740                     (renorm-5 (scale-float (float 6388561673708188 1.0d0) -53)
3741                               (scale-float (float -6100520299916709 1.0d0) -107)
3742                               (scale-float (float 4963552307172142 1.0d0) -165)
3743                               (scale-float (float 7537451794849143 1.0d0) -219)
3744                               (scale-float (float -5969301114978304 1.0d0) -273))
3745                   (%make-qd-d q0 q1 q2 q3))
3746               #.(multiple-value-bind (q0 q1 q2 q3)
3747                     (renorm-5 (scale-float (float 6369051672525773 1.0d0) -53)
3748                               (scale-float (float -7843040109683798 1.0d0) -107)
3749                               (scale-float (float 6048680740045173 1.0d0) -161)
3750                               (scale-float (float 5197737643093849 1.0d0) -217)
3751                               (scale-float (float 6206530073919488 1.0d0) -274))
3752                   (%make-qd-d q0 q1 q2 q3))))
3753   "A table of cos(k/1024) for k = 1 to 256")
3754
3755(defconstant +qd-%gamma+
3756  (multiple-value-bind (q0 q1 q2 q3)
3757      (renorm-5 (scale-float (float 5199096506725913 1.0d0) -53)
3758                (scale-float (float -6416270704492459 1.0d0) -110)
3759                (scale-float (float -5430032177773649 1.0d0) -164)
3760                (scale-float (float 7163319935831933 1.0d0) -218)
3761                (scale-float (float -6507777405222912 1.0d0) -273))
3762    (%make-qd-d q0 q1 q2 q3))
3763  "Quad-double value of Euler's constant")
3764
3765#||
3766
3767Some sample test code to convert long-float data from clisp to
3768something that we can use to initialize our tables.
3769
3770(defun convert-to-qd-parts (lf)
3771  (flet ((convert-rat (rat)
3772           (let* ((p0 (coerce rat 'double-float))
3773                  (remainder rat))
3774             (declare (double-float p0)
3775                      (rational remainder))
3776             (flet ((iter (x)
3777                      (decf remainder (rational x))
3778                      (coerce remainder 'double-float)))
3779               (let* ((p1 (iter p0))
3780                      (p2 (iter p1))
3781                      (p3 (iter p2))
3782                      (p4 (iter p3)))
3783                 (values p0 p1 p2 p3 p4)))))
3784         (expand (f)
3785           (multiple-value-bind (frac exp sign)
3786               (integer-decode-float f)
3787             `(scale-float (float ,(* frac sign) 1d0) ,exp))))
3788    (multiple-value-bind (p0 p1 p2 p3 p4)
3789        (convert-rat (rational lf))
3790      `(multiple-value-bind (q0 q1 q2 q3)
3791           (renorm-5 ,(expand p0)
3792                     ,(expand p1)
3793                     ,(expand p2)
3794                     ,(expand p3)
3795                     ,(expand p4))
3796         (%make-qd-d q0 q1 q2 q3)))))
3797
3798(setf (long-float-digits) 256)
3799(convert-to-qd-parts pi)
3800(convert-to-qd-parts (* 2 pi))
3801
3802;; etc.
3803
3804;; For log2, we need twice as much precision.  Here's how we do it:
3805
3806(defun convert-log2-to-qd-parts ()
3807  (flet ((convert-rat (rat)
3808           (let* ((p0 (coerce rat 'double-float))
3809                  (remainder rat))
3810             (declare (double-float p0)
3811                      (rational remainder))
3812             (flet ((iter (x)
3813                      (decf remainder (rational x))
3814                      (coerce remainder 'double-float)))
3815               (let* ((p1 (iter p0))
3816                      (p2 (iter p1))
3817                      (p3 (iter p2))
3818                      (p4 (iter p3))
3819                      (p5 (iter p4))
3820                      (p6 (iter p5))
3821                      (p7 (iter p6)))
3822                 (values p0 p1 p2 p3 p4 p5 p6 p7)))))
3823         (expand (f)
3824           (multiple-value-bind (frac exp sign)
3825               (integer-decode-float f)
3826             `(scale-float (float ,(* frac sign) 1d0) ,exp))))
3827    (multiple-value-bind (p0 p1 p2 p3 p4 p5 p6 p7)
3828        (convert-rat (rational (log (coerce 2 'long-float))))
3829      `((%make-qd-d ,(expand p0)
3830                    ,(expand p1)
3831                    ,(expand p2)
3832                    ,(expand p3))
3833        (%make-qd-d ,(expand p4)
3834                    ,(expand p5)
3835                    ,(expand p6)
3836                    ,(expand p7))))))
3837
3838(setf (long-float-digits) 512)
3839(convert-log2-to-qd-parts)
3840 
3841;; Create sin table
3842(let (val)
3843  (dotimes (k 256)
3844    (push (convert-to-qd-parts (sin (* pi (/ (1+ k) 1024)))) val))
3845  `(make-array 256 :initial-contents (list ,@(nreverse val))))
3846
3847(let (val)
3848  (dotimes (k 256)
3849    (push (convert-to-qd-parts (cos (* pi (/ (1+ k) 1024)))) val))
3850  `(make-array 256 :initial-contents (list ,@(nreverse val))))
3851||#
Note: See TracBrowser for help on using the browser.