math.sqrt on complex, real part

Time bar (total: 4.9s)

start0.0ms (0%)

Memory
0.1MiB live, 0.1MiB allocated; 0ms collecting garbage

analyze98.0ms (2%)

Memory
-11.2MiB live, 182.9MiB allocated; 21ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.9%0.1%0%0%0%0
0%0%99.9%0.1%0%0%0%1
50%50%50%0.1%0%0%0%2
50%50%50%0.1%0%0%0%3
50%50%50%0.1%0%0%0%4
62.5%62.4%37.5%0.1%0%0%0%5
62.5%62.4%37.5%0.1%0%0%0%6
68.8%68.7%31.2%0.1%0%0%0%7
68.8%68.7%31.2%0.1%0%0%0%8
71.9%71.8%28.1%0.1%0%0%0%9
71.9%71.8%28.1%0.1%0%0%0%10
73.4%73.4%26.5%0.1%0%0%0%11
73.4%73.4%26.5%0.1%0%0%0%12
Compiler

Compiled 17 to 11 computations (35.3% saved)

sample1.1s (22.2%)

Memory
11.2MiB live, 2 008.9MiB allocated; 244ms collecting garbage
Samples
363.0ms6 243×0valid
172.0ms828×2valid
138.0ms446×3valid
136.0ms739×1valid
Precisions
Click to see histograms. Total time spent on operations: 568.0ms
ival-hypot: 285.0ms (50.2% of total)
ival-mult!: 121.0ms (21.3% of total)
ival-sqrt: 80.0ms (14.1% of total)
adjust: 45.0ms (7.9% of total)
ival-add!: 37.0ms (6.5% of total)
Bogosity

explain255.0ms (5.2%)

Memory
40.8MiB live, 442.9MiB allocated; 121ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1190-2(-2.6282694281861274e-190 1.7457199574068832e-159)(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
380-0-(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
240-0-(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
00-0-(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
00-0-(*.f64 re re)
00-0-im
00-0-(+.f64 (*.f64 re re) (*.f64 im im))
00-0-#s(literal 2 binary64)
00-0-(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
00-0-re
00-0-#s(literal 1/2 binary64)
00-0-(*.f64 im im)
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
sqrt.f64(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))oflow-rescue1100
↳(+.f64 (*.f64 re re) (*.f64 im im))overflow110
↳(*.f64 re re)overflow71
↳(*.f64 im im)overflow57
+.f64(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)cancellation380
sqrt.f64(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))uflow-rescue230
↳(+.f64 (*.f64 re re) (*.f64 im im))underflow7
↳(*.f64 im im)underflow60
↳(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))underflow11
↳(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))underflow34
↳(*.f64 re re)underflow64
↳(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)underflow34
sqrt.f64(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))uflow-rescue70
↳(+.f64 (*.f64 re re) (*.f64 im im))underflow7
↳(*.f64 re re)underflow64
↳(*.f64 im im)underflow60
sqrt.f64(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))oflow-rescue10
↳(+.f64 (*.f64 re re) (*.f64 im im))overflow110
↳(*.f64 re re)overflow71
↳(*.f64 im im)overflow57
↳(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))overflow1
Confusion
Predicted +Predicted -
+1501
-0105
Precision
1.0
Recall
0.9933774834437086
Confusion?
Predicted +Predicted MaybePredicted -
+15001
-00105
Precision?
1.0
Recall?
0.9933774834437086
Freqs
test
numberfreq
0106
1121
229
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
42.0ms374×0valid
24.0ms60×2valid
17.0ms46×1valid
11.0ms32×3valid
Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 44.0ms
ival-hypot: 19.0ms (43.1% of total)
ival-mult!: 12.0ms (27.2% of total)
adjust: 5.0ms (11.4% of total)
ival-sqrt: 5.0ms (11.4% of total)
ival-add!: 3.0ms (6.8% of total)

preprocess92.0ms (1.9%)

Memory
-30.7MiB live, 18.2MiB allocated; 36ms collecting garbage
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
03692
111792
225790
344890
493590
5305790
6661190
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶44.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Symmetry

(abs im)

Compiler

Compiled 30 to 24 computations (20% saved)

series22.0ms (0.5%)

Memory
34.0MiB live, 34.0MiB allocated; 0ms collecting garbage
Counts
12 → 119
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Calls

6 calls:

TimeVariablePointExpression
4.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
4.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
4.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)

rewrite262.0ms (5.4%)

Memory
4.7MiB live, 278.6MiB allocated; 103ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06354546
06484088
138393962
082153217
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
131 → 316
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (fma.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)))) (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (fma.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)))) (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(/.f64 (fma.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (*.f64 (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)))) (*.f64 (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (fma.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (*.f64 (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)))) (*.f64 (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(+.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (+.f64 re re))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
#s(literal 2 binary64)
(/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re)))) (sqrt.f64 (-.f64 (*.f64 im im) (*.f64 re re))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (sqrt.f64 (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re))))))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)))) (sqrt.f64 (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) re)
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) im)
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) im)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (fabs.f64 (fabs.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 re)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 (fabs.f64 im)))
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))))
(*.f64 (fabs.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (fabs.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))))
(*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re)))))
(/.f64 (fma.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im)))))
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)) (*.f64 re re))
(fma.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)))
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (pow.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 #s(literal 1 binary64) re)))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
re
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)))
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) im)))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/64 binary64) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re)))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* im im) (*.f64 im im))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))) #s(literal 1/4 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))) #s(literal 1/4 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 re re) im))) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))

eval57.0ms (1.2%)

Memory
-11.4MiB live, 89.8MiB allocated; 31ms collecting garbage
Compiler

Compiled 8 207 to 1 873 computations (77.2% saved)

prune22.0ms (0.5%)

Memory
0.9MiB live, 42.5MiB allocated; 11ms collecting garbage
Pruning

14 alts after pruning (14 fresh and 0 done)

PrunedKeptTotal
New29814312
Fresh000
Picked101
Done000
Total29914313
Accuracy
88.8%
Counts
313 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶44.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
44.2%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
24.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
▶29.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
▶78.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
7.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
▶4.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
▶50.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
14.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
42.0%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
48.4%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)))
25.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
Compiler

Compiled 630 to 422 computations (33% saved)

series170.0ms (3.5%)

Memory
28.2MiB live, 132.6MiB allocated; 103ms collecting garbage
Counts
32 → 341
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(neg.f64 im)
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re))
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 im))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ im re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (- (+ (* im im) (* re re)) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* 1/16 (pow im 6)) (* 1/4 (* (pow im 2) (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))))))) (pow re 6))) (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 2 re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (+ 2 (* -1 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4)))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (+ 2 (* -1 (/ (+ (* -2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* 1/16 (pow im 6)) (* 1/4 (* (pow im 2) (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))))))) (pow re 6)))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/4 (/ (pow im 4) (pow re 4)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ (+ (* 1/128 (pow im 8)) (* 1/32 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (- (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))) (* 1/8 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (- (+ (* -1 (/ (+ (* 1/128 (pow im 8)) (* 1/32 (pow im 8))) (pow re 6))) (* 1/2 (pow im 2))) (+ (* -1/16 (/ (pow im 6) (pow re 4))) (* 1/8 (/ (pow im 4) (pow re 2))))) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* -2 (pow re 2)) (pow re 2)) (pow im 2)))) (* -2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* re (+ (* -2 (pow re 2)) (pow re 2))) (pow re 3)) (pow im 3)))) (+ (* -2 (/ re im)) (+ (* -2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ 1 (* -1 (/ (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))) (pow im 2)))) (* -1 (/ re im))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ 1 (* -1 (/ (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))) (pow im 3)))) (+ (* -1 (/ re im)) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (+ (* -2 (/ (pow re 2) im)) (/ (pow re 2) im)) (* -2 re)) im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (* -1 (/ (- (+ (/ (* re (+ (* -2 (pow re 2)) (pow re 2))) im) (/ (pow re 3) im)) (+ (* -2 (pow re 2)) (pow re 2))) im)) (* -2 re)) im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 im)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow re 2) im)) (* 1/2 (/ (pow re 2) im))) (* -1 re)) im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (pow re 3) im)) (/ (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))) im)) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))) im)) (* -1 re)) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
Calls

6 calls:

TimeVariablePointExpression
69.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
5.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
5.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
4.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))
4.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))

rewrite236.0ms (4.9%)

Memory
4.5MiB live, 238.5MiB allocated; 55ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0112914214
0117211693
1615111457
0804010987
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
373 → 547
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(neg.f64 im)
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re))
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 im))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ im re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (- (+ (* im im) (* re re)) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* 1/16 (pow im 6)) (* 1/4 (* (pow im 2) (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))))))) (pow re 6))) (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 2 re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (+ 2 (* -1 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4)))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (+ 2 (* -1 (/ (+ (* -2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* 1/16 (pow im 6)) (* 1/4 (* (pow im 2) (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))))))) (pow re 6)))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/4 (/ (pow im 4) (pow re 4)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ (+ (* 1/128 (pow im 8)) (* 1/32 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (- (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))) (* 1/8 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (/ (- (+ (* -1 (/ (+ (* 1/128 (pow im 8)) (* 1/32 (pow im 8))) (pow re 6))) (* 1/2 (pow im 2))) (+ (* -1/16 (/ (pow im 6) (pow re 4))) (* 1/8 (/ (pow im 4) (pow re 2))))) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* -2 (pow re 2)) (pow re 2)) (pow im 2)))) (* -2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* re (+ (* -2 (pow re 2)) (pow re 2))) (pow re 3)) (pow im 3)))) (+ (* -2 (/ re im)) (+ (* -2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ 1 (* -1 (/ (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))) (pow im 2)))) (* -1 (/ re im))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ 1 (* -1 (/ (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))) (pow im 3)))) (+ (* -1 (/ re im)) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (+ (* -2 (/ (pow re 2) im)) (/ (pow re 2) im)) (* -2 re)) im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (* -1 (/ (- (+ (/ (* re (+ (* -2 (pow re 2)) (pow re 2))) im) (/ (pow re 3) im)) (+ (* -2 (pow re 2)) (pow re 2))) im)) (* -2 re)) im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 im)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow re 2) im)) (* 1/2 (/ (pow re 2) im))) (* -1 re)) im)))))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* 1/2 (/ (pow re 3) im)) (/ (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))) im)) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))) im)) (* -1 re)) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(+.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (+.f64 re re))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
#s(literal 2 binary64)
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3/2 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
re
im
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1 binary64))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im)) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(+.f64 im im)
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re))
(fma.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) (+.f64 re re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))) (+.f64 re re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re) (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re))))
(+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) re)
(+.f64 re #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(+.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (+.f64 re re))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3/2 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im)))))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re)))))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (pow.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (*.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(pow.f64 (sqrt.f64 (*.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(+.f64 (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (neg.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re))) (neg.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(-.f64 (/.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (/.f64 (*.f64 re re) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (-.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))) (*.f64 (*.f64 re re) (*.f64 re re))) (+.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)))
(/.f64 (-.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re)) (fma.f64 (*.f64 re re) (*.f64 re re) (*.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)))))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (-.f64 (*.f64 re re) (*.f64 re re)))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (-.f64 (*.f64 re re) (*.f64 re re)))
(fma.f64 (neg.f64 im) (neg.f64 im) (-.f64 (*.f64 re re) (*.f64 re re)))
(fma.f64 im im (-.f64 (*.f64 re re) (*.f64 re re)))
(-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re))
(+.f64 (*.f64 im im) (-.f64 (*.f64 re re) (*.f64 re re)))
(+.f64 (fma.f64 im im (*.f64 re re)) (*.f64 (neg.f64 re) re))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (-.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3/2 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 re re (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (+.f64 im im))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) im)
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (+.f64 im re))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (- (+ (* im im) (* re re)) (* re re)) (*.f64 im im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (+.f64 (neg.f64 re) im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 (-.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (fma.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re) #s(literal 1 binary64)) re im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (+ (* im im) (* re re)) (*.f64 re re))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (+.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64)) #s(literal -2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -2 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 1/8 binary64)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) #s(literal 1/16 binary64)))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -2 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64)) #s(literal -2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (+.f64 re re))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (-.f64 (+.f64 (neg.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 im im)) (*.f64 re re))) re))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (-.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -2 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 1/8 binary64)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) #s(literal 1/16 binary64)))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64)))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/128 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (neg.f64 (/.f64 (-.f64 (fma.f64 (*.f64 im im) #s(literal 1/2 binary64) (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/128 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal 1/8 binary64)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (neg im) (neg.f64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (fma.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 7 binary64))) #s(literal -5/128 binary64) (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -7/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -7/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))) im))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (+.f64 (+.f64 (neg.f64 (/.f64 (neg.f64 (*.f64 re re)) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (+.f64 re re) im)) im))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (-.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (neg.f64 (*.f64 re re)) re (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) im))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 re im) (/.f64 (neg.f64 (*.f64 re re)) (*.f64 im im)))) im))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (-.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) (/.f64 (neg.f64 re) im)) im))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (-.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64))) (*.f64 (*.f64 im im) im))) #s(literal 1 binary64)) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal -1/2 binary64) (/.f64 (neg.f64 re) im))) im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64)) im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (-.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 re re)) im)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 re re)) im)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64))))))) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64))))))) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 re re)) im)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (/.f64 (fma.f64 (neg.f64 (*.f64 re re)) re (*.f64 (*.f64 re re) re)) im) (neg.f64 (*.f64 re re))) im)) (+.f64 re re)) im)) #s(literal 2 binary64))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (neg.f64 im))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im)) (neg.f64 re)) im)) #s(literal 1 binary64))))
#s(approx (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) re) im) #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re) im)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) im)) (neg.f64 re)) im)) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (neg.f64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 re im) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im)) re) im)) #s(literal 1 binary64))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))

eval42.0ms (0.9%)

Memory
23.5MiB live, 68.4MiB allocated; 4ms collecting garbage
Compiler

Compiled 16 337 to 2 358 computations (85.6% saved)

prune14.0ms (0.3%)

Memory
21.0MiB live, 21.0MiB allocated; 0ms collecting garbage
Pruning

14 alts after pruning (10 fresh and 4 done)

PrunedKeptTotal
New4346440
Fresh549
Picked145
Done000
Total44014454
Accuracy
88.9%
Counts
454 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓44.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶44.2%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
24.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
39.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (- (+ (* im im) (* re re)) (* re re)) (*.f64 im im)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓78.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
▶7.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓4.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓50.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
47.2%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
▶45.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im)))
▶25.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
▶48.4%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)))
Compiler

Compiled 693 to 418 computations (39.7% saved)

series303.0ms (6.2%)

Memory
-36.1MiB live, 67.1MiB allocated; 255ms collecting garbage
Counts
47 → 330
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)))
#s(literal 1/2 binary64)
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im))
(*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
#s(literal 1 binary64)
(*.f64 (fabs.f64 im) (sqrt.f64 im))
(fabs.f64 im)
im
(sqrt.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
re
(sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))
(/.f64 #s(literal 1 binary64) im)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
(*.f64 (sqrt.f64 re) #s(literal 2 binary64))
(sqrt.f64 re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
(*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im)
(fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))
(/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))
(*.f64 (*.f64 im im) im)
(*.f64 im im)
(sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) #s(hole binary64 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))))
#s(approx (* (sqrt 2) re) #s(hole binary64 (* re (sqrt 2))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt re) 2) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))) (* (sqrt im) (/ (sqrt 2) re))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))) (* (sqrt (/ 1 im)) (/ (sqrt 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* (sqrt im) (/ (sqrt 2) re))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* (sqrt (/ 1 im)) (/ (sqrt 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt re) 2) #s(hole binary64 (* -2 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2))) im)))
#s(approx (/ 1 (* (fabs im) (sqrt im))) #s(hole binary64 (* (sqrt (/ 1 im)) (/ 1 (fabs im)))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* (sqrt im) (fabs im))))
#s(approx (fabs im) #s(hole binary64 (fabs im)))
#s(approx im #s(hole binary64 im))
#s(approx (sqrt im) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (* 2 (/ 1 im))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (* 2 (/ 1 im)) #s(hole binary64 (/ 2 im)))
#s(approx (/ 1 im) #s(hole binary64 (/ 1 im)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (* re (sqrt 2)))) (* (sqrt (pow im 3)) (sqrt 2))) im)))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (* re (sqrt 2)))) (* (sqrt (pow im 3)) (sqrt 2))) (pow im 2))))
#s(approx (* 1/2 (sqrt (/ 1 (* (* im im) im)))) #s(hole binary64 (* 1/2 (sqrt (/ 1 (pow im 3))))))
#s(approx (sqrt (/ 1 (* (* im im) im))) #s(hole binary64 (sqrt (/ 1 (pow im 3)))))
#s(approx (/ 1 (* (* im im) im)) #s(hole binary64 (/ 1 (pow im 3))))
#s(approx (* (* im im) im) #s(hole binary64 (pow im 3)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (sqrt (* (/ 1 im) 2)) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (* (/ 1 im) 2) #s(hole binary64 (/ 2 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* -1 (* (sqrt im) (* (fabs im) (pow (sqrt -1) 2))))))
#s(approx (sqrt im) #s(hole binary64 (* -1 (* (sqrt im) (pow (sqrt -1) 2)))))
#s(approx (sqrt (* 2 (/ 1 im))) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* (sqrt im) (* (sqrt -2) (sqrt -1)))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))
#s(approx (* 1/2 (sqrt (/ 1 (* (* im im) im)))) #s(hole binary64 (* -1/2 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ 1 (* (* im im) im))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (* (/ 1 im) 2)) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
Calls

6 calls:

TimeVariablePointExpression
225.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) im (sqrt im) (* (sqrt 2) re) (sqrt 2) 2 re (sqrt (* 2 (/ 1 im))) (* 2 (/ 1 im)) (/ 1 im) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (sqrt re) 2) (sqrt re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (sqrt (/ 1 (* (* im im) im))) (/ 1 (* (* im im) im)) (* (* im im) im) (* im im) (sqrt (* (/ 1 im) 2)) (* (/ 1 im) 2))
38.0ms
re
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) im (sqrt im) (* (sqrt 2) re) (sqrt 2) 2 re (sqrt (* 2 (/ 1 im))) (* 2 (/ 1 im)) (/ 1 im) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (sqrt re) 2) (sqrt re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (sqrt (/ 1 (* (* im im) im))) (/ 1 (* (* im im) im)) (* (* im im) im) (* im im) (sqrt (* (/ 1 im) 2)) (* (/ 1 im) 2))
12.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) im (sqrt im) (* (sqrt 2) re) (sqrt 2) 2 re (sqrt (* 2 (/ 1 im))) (* 2 (/ 1 im)) (/ 1 im) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (sqrt re) 2) (sqrt re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (sqrt (/ 1 (* (* im im) im))) (/ 1 (* (* im im) im)) (* (* im im) im) (* im im) (sqrt (* (/ 1 im) 2)) (* (/ 1 im) 2))
7.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) im (sqrt im) (* (sqrt 2) re) (sqrt 2) 2 re (sqrt (* 2 (/ 1 im))) (* 2 (/ 1 im)) (/ 1 im) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (sqrt re) 2) (sqrt re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (sqrt (/ 1 (* (* im im) im))) (/ 1 (* (* im im) im)) (* (* im im) im) (* im im) (sqrt (* (/ 1 im) 2)) (* (/ 1 im) 2))
6.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) im (sqrt im) (* (sqrt 2) re) (sqrt 2) 2 re (sqrt (* 2 (/ 1 im))) (* 2 (/ 1 im)) (/ 1 im) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (sqrt re) 2) (sqrt re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (sqrt (/ 1 (* (* im im) im))) (/ 1 (* (* im im) im)) (* (* im im) im) (* im im) (sqrt (* (/ 1 im) 2)) (* (/ 1 im) 2))

rewrite242.0ms (5%)

Memory
-7.3MiB live, 236.7MiB allocated; 48ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0119814402
0126412294
1627911972
0835410434
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
377 → 593
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)))
#s(literal 1/2 binary64)
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im))
(*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
#s(literal 1 binary64)
(*.f64 (fabs.f64 im) (sqrt.f64 im))
(fabs.f64 im)
im
(sqrt.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
re
(sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))
(/.f64 #s(literal 1 binary64) im)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
(*.f64 (sqrt.f64 re) #s(literal 2 binary64))
(sqrt.f64 re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
(*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im)
(fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))
(/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))
(*.f64 (*.f64 im im) im)
(*.f64 im im)
(sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) #s(hole binary64 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))))
#s(approx (* (sqrt 2) re) #s(hole binary64 (* re (sqrt 2))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt re) 2) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))) (* (sqrt im) (/ (sqrt 2) re))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))) (* (sqrt (/ 1 im)) (/ (sqrt 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* (sqrt im) (/ (sqrt 2) re))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* (sqrt (/ 1 im)) (/ (sqrt 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt re) 2) #s(hole binary64 (* -2 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2))) im)))
#s(approx (/ 1 (* (fabs im) (sqrt im))) #s(hole binary64 (* (sqrt (/ 1 im)) (/ 1 (fabs im)))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* (sqrt im) (fabs im))))
#s(approx (fabs im) #s(hole binary64 (fabs im)))
#s(approx im #s(hole binary64 im))
#s(approx (sqrt im) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (* 2 (/ 1 im))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (* 2 (/ 1 im)) #s(hole binary64 (/ 2 im)))
#s(approx (/ 1 im) #s(hole binary64 (/ 1 im)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (* re (sqrt 2)))) (* (sqrt (pow im 3)) (sqrt 2))) im)))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (* re (sqrt 2)))) (* (sqrt (pow im 3)) (sqrt 2))) (pow im 2))))
#s(approx (* 1/2 (sqrt (/ 1 (* (* im im) im)))) #s(hole binary64 (* 1/2 (sqrt (/ 1 (pow im 3))))))
#s(approx (sqrt (/ 1 (* (* im im) im))) #s(hole binary64 (sqrt (/ 1 (pow im 3)))))
#s(approx (/ 1 (* (* im im) im)) #s(hole binary64 (/ 1 (pow im 3))))
#s(approx (* (* im im) im) #s(hole binary64 (pow im 3)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (sqrt (* (/ 1 im) 2)) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (* (/ 1 im) 2) #s(hole binary64 (/ 2 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* -1 (* (sqrt im) (* (fabs im) (pow (sqrt -1) 2))))))
#s(approx (sqrt im) #s(hole binary64 (* -1 (* (sqrt im) (pow (sqrt -1) 2)))))
#s(approx (sqrt (* 2 (/ 1 im))) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* (sqrt im) (* (sqrt -2) (sqrt -1)))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) #s(hole binary64 (* -1 (* im (+ (* -1 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))
#s(approx (* 1/2 (sqrt (/ 1 (* (* im im) im)))) #s(hole binary64 (* -1/2 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ 1 (* (* im im) im))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (* (/ 1 im) 2)) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
Outputs
(*.f64 #s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
#s(literal 1/2 binary64)
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
(*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)
(*.f64 im (fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) (-.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
(/.f64 (fma.f64 (pow.f64 (/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (fabs.f64 im) (sqrt.f64 im))) #s(literal 3 binary64)) #s(literal 1/8 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64))) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))))
(fma.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -1 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (fabs.f64 im) (sqrt.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(+.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(+.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) #s(literal 1/2 binary64))))
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re)
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
(*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))
(pow.f64 (pow.f64 (*.f64 (fabs.f64 im) (sqrt.f64 im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal -1 binary64)))
(pow.f64 (*.f64 (fabs.f64 im) (sqrt.f64 im)) #s(literal -1 binary64))
(/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1 binary64)) (fabs.f64 im))
(/.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (sqrt.f64 im))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (fabs.f64 im) (sqrt.f64 im))))
(/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
(exp.f64 (*.f64 (log.f64 (*.f64 (fabs.f64 im) (sqrt.f64 im))) #s(literal -1 binary64)))
#s(literal 1 binary64)
(*.f64 (fabs.f64 im) (sqrt.f64 im))
(*.f64 (sqrt.f64 im) (fabs.f64 im))
(sqrt.f64 (*.f64 im im))
(fabs.f64 (neg.f64 im))
(fabs.f64 im)
im
(pow.f64 (sqrt.f64 im) #s(literal 1 binary64))
(pow.f64 im #s(literal 1/2 binary64))
(sqrt.f64 im)
(exp.f64 (*.f64 (log.f64 im) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(*.f64 re (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal -1 binary64)))
(*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
re
(*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))
(pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1 binary64))
(sqrt.f64 (/.f64 #s(literal 2 binary64) im))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))
(/.f64 #s(literal -2 binary64) (neg.f64 im))
(/.f64 #s(literal 2 binary64) im)
(+.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) im))
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal -1 binary64)))
(pow.f64 im #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 im))
(/.f64 #s(literal 1 binary64) im)
(exp.f64 (*.f64 (log.f64 im) #s(literal -1 binary64)))
(*.f64 #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
(*.f64 (sqrt.f64 re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (sqrt.f64 re))
(+.f64 (sqrt.f64 re) (sqrt.f64 re))
(pow.f64 (sqrt.f64 re) #s(literal 1 binary64))
(pow.f64 re #s(literal 1/2 binary64))
(sqrt.f64 re)
(exp.f64 (*.f64 (log.f64 re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re))
(fma.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) (+.f64 re re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))) (+.f64 re re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re))))
(+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re)
(+.f64 re #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))
(*.f64 #s(literal -1 binary64) re)
(*.f64 re #s(literal -1 binary64))
(neg.f64 re)
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 1 binary64))
(pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(exp.f64 (*.f64 (log.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3/2 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re)
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 im (pow.f64 re #s(literal 1 binary64)))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im re)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im)))))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re)))))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 re re)
(pow.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
(*.f64 #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
(*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)
(*.f64 im (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
(fma.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) im (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
(fma.f64 im (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (*.f64 im (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
(+.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) im) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
(+.f64 (*.f64 im (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) #s(literal 3 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (-.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))))
(fma.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re))
(fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(fma.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(-.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(+.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))
(pow.f64 (sqrt.f64 (*.f64 (*.f64 im im) im)) #s(literal -1 binary64))
(pow.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 1/2 binary64))
(pow.f64 (*.f64 (*.f64 im im) im) #s(literal -1/2 binary64))
(pow.f64 im #s(literal -3/2 binary64))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 im im) im)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (/.f64 #s(literal 1 binary64) im))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))
(*.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (*.f64 im im)))
(pow.f64 (pow.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal -1 binary64)))
(pow.f64 (*.f64 (*.f64 im im) im) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3 binary64))
(pow.f64 im #s(literal -3 binary64))
(/.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) im)
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (*.f64 im im) im)))
(/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (*.f64 im im) im)) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal -3 binary64)))
(*.f64 (sqrt.f64 (*.f64 (*.f64 im im) im)) (sqrt.f64 (*.f64 (*.f64 im im) im)))
(*.f64 (*.f64 im im) im)
(*.f64 im (*.f64 im im))
(pow.f64 im #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 3 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 3 binary64))))
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
(*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (sqrt.f64 #s(literal -1 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))
(pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1 binary64))
(sqrt.f64 (/.f64 #s(literal 2 binary64) im))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))
(/.f64 #s(literal -2 binary64) (neg.f64 im))
(/.f64 #s(literal 2 binary64) im)
(+.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt.f64 (+.f64 im im)))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (sqrt.f64 (+.f64 im im)))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im)) (sqrt.f64 (+.f64 im im))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))
#s(approx (* (sqrt 2) re) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt re) 2) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt re) (sqrt.f64 re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (neg re) (neg.f64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt.f64 (+.f64 im im)))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) re) #s(literal 1/2 binary64) (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) re) #s(literal 1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) re (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))) re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) im)
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (sqrt.f64 (+.f64 im im)))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (*.f64 (fma.f64 (/.f64 (sqrt.f64 (+.f64 im im)) (fabs.f64 im)) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 (+.f64 im im)) re)) re))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (*.f64 (fma.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (fabs.f64 im)) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) re)) re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/4 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/4 binary64) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im)) (pow.f64 re #s(literal -9/2 binary64))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (*.f64 im im)) (pow.f64 re #s(literal -9/2 binary64))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 (+.f64 re re)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 2 binary64)))) re))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 2 binary64))))) re))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 2 binary64)))))) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (+ (* im im) (* re re)) (*.f64 re re))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (*.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 (+.f64 im im)) re)) re))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (*.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) re)) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (*.f64 (neg.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sqrt.f64 (+.f64 im im)) (fabs.f64 im)) (neg.f64 (/.f64 (sqrt.f64 (+.f64 im im)) re)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (*.f64 (neg.f64 re) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (fabs.f64 im)) (neg.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt re) 2) (*.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 re)) #s(literal -2 binary64)))
#s(approx (sqrt re) (neg.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/512 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (*.f64 (neg.f64 re) (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (neg.f64 (/.f64 (sqrt.f64 (+.f64 im im)) re)))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (*.f64 (neg.f64 re) (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) (neg.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im)) (sqrt.f64 (+.f64 im im))) im))
#s(approx (/ 1 (* (fabs im) (sqrt im))) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))))
#s(approx (* (fabs im) (sqrt im)) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
#s(approx (fabs im) (fabs.f64 im))
#s(approx im im)
#s(approx (sqrt im) (sqrt.f64 im))
#s(approx (sqrt (* (/ 1 im) 2)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (* (/ 1 im) 2) (/.f64 #s(literal 2 binary64) im))
#s(approx (/ 1 im) (/.f64 #s(literal 1 binary64) im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (+.f64 re re))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im) (sqrt.f64 (+.f64 re re))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 1/2 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 im im) (sqrt.f64 (+.f64 re re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (+.f64 re re)))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64)))) im))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64)))) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)))
#s(approx (sqrt (/ 1 (* (* im im) im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))
#s(approx (/ 1 (* (* im im) im)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))
#s(approx (* (* im im) im) (*.f64 (*.f64 im im) im))
#s(approx (* im im) (*.f64 im im))
#s(approx (sqrt (* (/ 1 im) 2)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (* (/ 1 im) 2) (/.f64 #s(literal 2 binary64) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -7/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -7/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) re (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) re))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) re (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) im) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (sqrt (* 2 (/ 1 im)))) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fabs.f64 im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* (fabs im) (sqrt im)) (neg.f64 (*.f64 (*.f64 #s(literal -1 binary64) (fabs.f64 im)) (sqrt.f64 im))))
#s(approx (sqrt im) (neg.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 im))))
#s(approx (sqrt (* (/ 1 im) 2)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64))))))) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 re re) #s(literal -1/2 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1/2 binary64))))))) (*.f64 (*.f64 im im) im))) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 re re)) im)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (neg.f64 (sqrt.f64 (neg.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -1 binary64))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -1 binary64)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (sqrt.f64 (+.f64 im im)))
#s(approx (* (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) im) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal 1/2 binary64) (neg.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (*.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal -1/2 binary64)))
#s(approx (sqrt (/ 1 (* (* im im) im))) (neg.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* (/ 1 im) 2)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))

eval53.0ms (1.1%)

Memory
37.1MiB live, 81.3MiB allocated; 6ms collecting garbage
Compiler

Compiled 20 857 to 2 865 computations (86.3% saved)

prune30.0ms (0.6%)

Memory
-7.6MiB live, 37.0MiB allocated; 6ms collecting garbage
Pruning

17 alts after pruning (10 fresh and 7 done)

PrunedKeptTotal
New4955500
Fresh055
Picked235
Done044
Total49717514
Accuracy
88.9%
Counts
514 → 17
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓44.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶78.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
✓44.2%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
▶24.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
39.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (- (+ (* im im) (* re re)) (* re re)) (*.f64 im im)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓78.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓7.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓4.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
▶0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
▶17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓50.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
47.2%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
42.2%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal -1 binary64))) #s(literal 2 binary64)))) im)))
✓25.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
50.5%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
45.2%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (exp.f64 (*.f64 (log.f64 im) #s(literal -1 binary64)))))) im)))
▶45.3%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im)))
Compiler

Compiled 850 to 528 computations (37.9% saved)

series218.0ms (4.5%)

Memory
-23.1MiB live, 214.3MiB allocated; 44ms collecting garbage
Counts
48 → 466
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 (hypot.f64 re im) re))
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))))
(*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(*.f64 (*.f64 re re) re)
(+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
(*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im)
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
#s(literal 1 binary64)
(*.f64 (fabs.f64 im) (sqrt.f64 im))
(fabs.f64 im)
(sqrt.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))
(log.f64 (/.f64 #s(literal 2 binary64) im))
(/.f64 #s(literal 2 binary64) im)
Outputs
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (neg (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/4 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (+ (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))) im)) (* 3/2 (/ 1 (pow im 2)))))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im)))))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (+ (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))) im)) (* 3/2 (/ 1 (pow im 2)))))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im)))))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* 2 (* re (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* 2 (* re (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (* 3/2 (/ 1 (pow im 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im))))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 im))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ im re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ im (* re (+ 1 (* re (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ im (* re (+ 1 (* re (- (+ (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* re (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (* 3/2 (/ 1 (pow im 2))))))) (/ 1 im))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (pow im 3)))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* (pow re 2) (+ re (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))) (* re (+ 1 (* 1/2 (/ (* re (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 3))))))) (pow im 3))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (* re re) re) #s(hole binary64 (pow re 3)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (pow im 2)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* re (- (* 2 re) im)) (pow im 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* re (- (* re (+ 2 (* -1/2 (/ re im)))) im)) (pow im 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- re im))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (* re (+ 1 (* -1/2 (/ re im)))) im))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) im))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im re)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ im (* 1/2 (/ (pow re 2) im))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) #s(hole binary64 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))))
#s(approx (* (sqrt 2) re) #s(hole binary64 (* re (sqrt 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* 1/16 (pow im 6)) (* 1/4 (* (pow im 2) (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))))))) (pow re 6))) (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* re (+ (* 1/4 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* re (+ (* 1/4 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* re (+ (* -1/16 (* (sqrt (/ 1 (pow re 9))) (/ (pow (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) 2) (pow (sqrt 2) 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* re (+ (* -1/8 (* (sqrt (/ 1 (pow re 9))) (/ (pow (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) 2) (pow (sqrt 2) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ 4 (* 2 (/ (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (pow re 2)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ 4 (+ (* 2 (/ (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (pow re 2))) (* 2 (/ (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (pow re 4))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ 4 (+ (* 2 (/ (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (pow re 2))) (+ (* 2 (/ (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (pow re 4))) (* 2 (/ (- (* 1/2 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/8 (pow im 6)) (+ (* 1/8 (* (pow im 4) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (* (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (- (pow im 2) (* 1/2 (pow im 2))))))) (pow re 6)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* 2 re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (- (+ 2 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))) (* 2 (/ (- (pow im 2) (* 1/2 (pow im 2))) (pow re 2)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (- (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 2 (/ (- (pow im 2) (* 1/2 (pow im 2))) (pow re 2))) (/ (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))) (pow re 4))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (- (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 6)))))) (+ (* -1/8 (/ (pow im 6) (pow re 6))) (+ (* 1/8 (/ (* (pow im 4) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2)))))) (pow re 6))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 2 (/ (- (pow im 2) (* 1/2 (pow im 2))) (pow re 2))) (+ (/ (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))) (pow re 4)) (/ (* (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (- (pow im 2) (* 1/2 (pow im 2)))) (pow re 6)))))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* 2 (pow re 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow re 3) (+ 2 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow re 3) (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow re 3) (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 6)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (pow re 2)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 1 (+ (* 1/8 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 1 (+ (* -1/16 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))) (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1/2 (pow im 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (- (* -1/16 (/ (pow im 6) (pow re 4))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (- (* 1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (pow re 2)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))) (* (sqrt im) (/ (sqrt 2) re))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))) (* (sqrt (/ 1 im)) (/ (sqrt 2) re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ (+ (* 1/128 (pow im 8)) (* 1/32 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (* (pow re 5) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))) (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/4 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/4 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6))))) (pow re 3))) (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/16 (* (sqrt (/ 1 (* (pow re 3) (pow (+ (* 2 (pow im 2)) (pow im 2)) 3)))) (/ (* (sqrt -1) (* (sqrt 2) (pow (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) 2))) (pow (sqrt 1/6) 3)))) (+ (* 1/4 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/4 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))))) (pow re 3))) (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (* (pow re 5) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))) (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/2 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/2 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6))))) (pow re 3))) (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/8 (* (sqrt (/ 1 (* (pow re 3) (pow (+ (* 2 (pow im 2)) (pow im 2)) 3)))) (/ (* (sqrt -1) (* (sqrt 2) (pow (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) 2))) (pow (sqrt 1/6) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/2 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))))) (pow re 3))) (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (/ (+ (* 1/3 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (/ (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (pow re 2)))) re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (/ (+ (* 1/3 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 2 (/ (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (pow re 2))) (* 2 (/ (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (pow re 4))))) re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (/ (+ (* 1/3 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 2 (/ (- (* -1/6 (+ (* 1/4 (pow (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) 2)) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))))))) (+ (* -1/24 (* (pow im 4) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (- (pow im 2) (* -1/2 (pow im 2)))))))) (pow re 6))) (+ (* 2 (/ (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (pow re 2))) (* 2 (/ (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (pow re 4)))))) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1/6 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (/ (- (+ (* 1/6 (+ (* 2 (pow im 2)) (pow im 2))) (* 1/6 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2)))) (* 1/18 (/ (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 2)))) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (/ (- (+ (* 1/6 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/6 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/6 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4))))) (+ (* -1/144 (/ (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2))) (pow re 4))) (+ (* 1/18 (/ (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 2))) (* 1/3 (/ (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 4)))))) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (/ (- (+ (* -1/6 (/ (+ (* 1/4 (pow (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) 2)) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))))) (pow re 6))) (+ (* 1/6 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/6 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/6 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4)))))) (+ (* -1/24 (/ (* (pow im 4) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2))))))) (pow re 6))) (+ (* -1/144 (/ (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2))) (pow re 4))) (+ (* 1/288 (/ (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2))) (pow re 6))) (+ (* 1/18 (/ (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 2))) (+ (* 1/3 (/ (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 4))) (* 1/3 (/ (* (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 6))))))))) re))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1/2 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* re (+ (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* re (+ (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4)))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* re (+ (* -1/2 (/ (+ (* 1/4 (pow (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) 2)) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))))) (pow re 6))) (+ (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 3 (/ (pow im 2) (pow re 2))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 3 (+ (* 1/16 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/8 (/ (pow im 4) (pow re 4))))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 2 (pow re 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow re 2) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow re 2) (- (+ 2 (* -1/8 (/ (pow im 4) (pow re 4)))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow re 2) (- (+ 2 (* 1/16 (/ (pow im 6) (pow re 6)))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/8 (/ (pow im 4) (pow re 4))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (pow re 2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (- (* -1/2 (/ (pow im 2) (pow re 2))) 1))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (- (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/8 (/ (pow im 4) (pow re 4)))) 1))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (- (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* -1/16 (/ (pow im 6) (pow re 6))) (* 1/8 (/ (pow im 4) (pow re 4))))) 1))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))) (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))) (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (* 2 (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (- (+ (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (- (+ (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (* (pow im 2) (- (+ (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (* 2 (pow re 3)))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 2 (pow re 3)) (* (pow im 2) (+ (* 1/2 (/ (* (pow im 2) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 3))) (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 3))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 2 (pow re 3)) (* (pow im 2) (+ (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 3))) (* (pow im 2) (+ (* 1/2 (/ (* (pow im 2) (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6))))) (pow re 3))) (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (pow re 3))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (* 2 (pow re 2)) (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (+ (* 1/2 (pow im 2)) (* 2 (pow re 2))) (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (+ (* 2 (pow re 2)) (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2)))))) (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (+ (* 2 (pow re 2)) (* (pow im 2) (+ 1/2 (* (pow im 2) (+ (* -1/16 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2)))))))) (pow re 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 2))) 1/2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow im 2) (- (* (pow im 2) (+ (* -1/16 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))) 1/2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow im 2) (- (* (pow im 2) (+ (* (pow im 2) (- (* 5/128 (/ (pow im 2) (pow re 6))) (* 1/16 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2))))) 1/2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* -1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))) (pow re 2))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2))) im)))
#s(approx (/ 1 (* (fabs im) (sqrt im))) #s(hole binary64 (* (sqrt (/ 1 im)) (/ 1 (fabs im)))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* (sqrt im) (fabs im))))
#s(approx (fabs im) #s(hole binary64 (fabs im)))
#s(approx (sqrt im) #s(hole binary64 (sqrt im)))
#s(approx (exp (* (log (/ 2 im)) 1/2)) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (* (log (/ 2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log im))))))
#s(approx (log (/ 2 im)) #s(hole binary64 (+ (log 2) (* -1 (log im)))))
#s(approx (/ 2 im) #s(hole binary64 (/ 2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* -2 (pow re 2)) (pow re 2)) (pow im 2)))) (* -2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* re (+ (* -2 (pow re 2)) (pow re 2))) (pow re 3)) (pow im 3)))) (+ (* -2 (/ re im)) (+ (* -2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* 1/4 (* im (pow re 2))) (* 2 (pow re 3))))))))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* 1/4 (* im (pow re 2))) (* 2 (pow re 3))))))))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (* 2 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) (pow im 2))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (+ (* 2 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) (pow im 2))) (* 2 (/ (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (* 2 (pow re 3))))) (pow im 3)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))) (+ (* -1 (/ re im)) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (- (+ 1 (+ (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))) (/ (pow re 3) (pow im 3)))) (+ (* -1 (/ re im)) (+ (* -1 (/ (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))) (pow im 3))) (+ (* -1 (/ (pow re 2) (pow im 2))) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (* 2 (/ (pow re 3) (pow im 3))))))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))) (/ (pow re 3) (pow im 3)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) (pow im 4))) (/ (pow re 3) (pow im 3))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (- (+ 1 (* 2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (- (+ 1 (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (/ (pow re 2) im) re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 3) (pow im 2))) (/ (pow re 2) im)) re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 5) (pow im 4))) (/ (pow re 2) im)) (+ re (* 1/2 (/ (pow re 3) (pow im 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ re (* 1/2 (/ (pow re 3) (pow im 2)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (* 1/2 (/ (pow re 3) (pow im 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (+ (* 1/16 (/ (pow re 7) (pow im 6))) (* 1/2 (/ (pow re 3) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (log (/ 2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (/ 1 im))))))
#s(approx (log (/ 2 im)) #s(hole binary64 (+ (log 2) (log (/ 1 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (+ (* -2 (/ (pow re 2) im)) (/ (pow re 2) im)) (* -2 re)) im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (* -1 (/ (- (+ (/ (* re (+ (* -2 (pow re 2)) (pow re 2))) im) (/ (pow re 3) im)) (+ (* -2 (pow re 2)) (pow re 2))) im)) (* -2 re)) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* -1/4 (* im (pow re 2))) (* 2 (pow re 3)))))))))) (* 1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* -1/4 (* im (pow re 2))) (* 2 (pow re 3)))))))))) (* 1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) im)) (* 2 re)) im)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -2 (/ (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (* 2 (pow re 3))))) im)) (* 2 (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) im)) (* 2 re)) im)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 im)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) im)) (* -1 re)) im)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (* 2 (pow re 3))))) im)) (* 1/2 (+ (* 2 (pow re 2)) (pow re 2)))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) im)) (* -1 re)) im)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1 (/ (pow re 3) (pow im 3))) (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1 (/ (+ (* -1/2 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (pow re 3)) (pow im 3))) (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (- (* -2 (/ (pow re 2) im)) re) im))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (- (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im)) re) im))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im re)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (pow re 2) im)) re)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (pow re 2)) im)) re)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* -1 (/ (- (* 1/8 (/ (pow re 5) (pow im 2))) (* 1/2 (pow re 3))) im)) (pow re 2)) im)) re)))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im re))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ re (* 1/2 (/ (pow re 3) (pow im 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (* 1/2 (/ (pow re 3) (pow im 2)))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (+ (* 1/16 (/ (pow re 7) (pow im 6))) (* 1/2 (/ (pow re 3) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* -1 (* (sqrt im) (* (fabs im) (pow (sqrt -1) 2))))))
#s(approx (sqrt im) #s(hole binary64 (* -1 (* (sqrt im) (pow (sqrt -1) 2)))))
#s(approx (exp (* (log (/ 2 im)) 1/2)) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
#s(approx (* (log (/ 2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log -2) (log (/ -1 im))))))
#s(approx (log (/ 2 im)) #s(hole binary64 (+ (log -2) (log (/ -1 im)))))
Calls

6 calls:

TimeVariablePointExpression
68.0ms
im
@0
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (* -2 im) -2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* (* re re) re) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (* (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) (sqrt im) (* (sqrt 2) re) (exp (* (log (/ 2 im)) 1/2)) (* (log (/ 2 im)) 1/2) (log (/ 2 im)) (/ 2 im))
40.0ms
im
@-inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (* -2 im) -2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* (* re re) re) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (* (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) (sqrt im) (* (sqrt 2) re) (exp (* (log (/ 2 im)) 1/2)) (* (log (/ 2 im)) 1/2) (log (/ 2 im)) (/ 2 im))
35.0ms
im
@inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (* -2 im) -2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* (* re re) re) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (* (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) (sqrt im) (* (sqrt 2) re) (exp (* (log (/ 2 im)) 1/2)) (* (log (/ 2 im)) 1/2) (log (/ 2 im)) (/ 2 im))
23.0ms
re
@inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (* -2 im) -2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* (* re re) re) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (* (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) (sqrt im) (* (sqrt 2) re) (exp (* (log (/ 2 im)) 1/2)) (* (log (/ 2 im)) 1/2) (log (/ 2 im)) (/ 2 im))
14.0ms
re
@-inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (* -2 im) -2 (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (* (* re re) re) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (* (sqrt (+ (* im im) (* re re))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (/ 1 (* (fabs im) (sqrt im))) 1 (* (fabs im) (sqrt im)) (fabs im) (sqrt im) (* (sqrt 2) re) (exp (* (log (/ 2 im)) 1/2)) (* (log (/ 2 im)) 1/2) (log (/ 2 im)) (/ 2 im))

rewrite305.0ms (6.3%)

Memory
36.1MiB live, 363.6MiB allocated; 56ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0221230898
0228129143
0863126555
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
514 → 582
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 (hypot.f64 re im) re))
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))))
(*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
(*.f64 (*.f64 re re) re)
(+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
(*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im)
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
#s(literal 1 binary64)
(*.f64 (fabs.f64 im) (sqrt.f64 im))
(fabs.f64 im)
(sqrt.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))
(log.f64 (/.f64 #s(literal 2 binary64) im))
(/.f64 #s(literal 2 binary64) im)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (neg (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/4 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (+ (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))) im)) (* 3/2 (/ 1 (pow im 2)))))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im)))))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (* (sqrt 2) (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (+ (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im))) im)) (* 3/2 (/ 1 (pow im 2)))))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt 2) (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* 5/4 (/ 1 im)))))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* 2 (* re (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* 2 (* re (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (* 3/2 (/ 1 (pow im 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im))))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 im))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ im re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ im (* re (+ 1 (* re (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ im (* re (+ 1 (* re (- (+ (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (* re (- (/ 1 (pow im 2)) (+ (* -1 (/ (- (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 5))) (/ 1 im)) im)) (* 3/2 (/ 1 (pow im 2))))))) (/ 1 im))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (pow im 3)))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* (pow re 2) (+ re (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))) (* re (+ 1 (* 1/2 (/ (* re (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 3))))))) (pow im 3))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (* re re) re) #s(hole binary64 (pow re 3)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (pow im 2)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* re (- (* 2 re) im)) (pow im 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* re (- (* re (+ 2 (* -1/2 (/ re im)))) im)) (pow im 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- re im))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (* re (+ 1 (* -1/2 (/ re im)))) im))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) im))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im re)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ im (* 1/2 (/ (pow re 2) im))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) #s(hole binary64 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))))
#s(approx (* (sqrt 2) re) #s(hole binary64 (* re (sqrt 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ (* -1/4 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (+ (* -1/2 (* (* (pow im 2) (+ (* -1/8 (pow im 2)) (* 1/4 (pow im 2)))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* re (+ 4 (+ (* -2 (/ (+ (* -2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* 1/16 (pow im 6)) (* 1/4 (* (pow im 2) (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))))))) (pow re 6))) (+ (* -2 (/ (+ (* -1/8 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* re (+ (* 1/4 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* re (+ (* 1/4 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* re (+ (* -1/16 (* (sqrt (/ 1 (pow re 9))) (/ (pow (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) 2) (pow (sqrt 2) 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* re (+ (* -1/8 (* (sqrt (/ 1 (pow re 9))) (/ (pow (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) 2) (pow (sqrt 2) 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow re 5))) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow re 9))) (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ 4 (* 2 (/ (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (pow re 2)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ 4 (+ (* 2 (/ (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (pow re 2))) (* 2 (/ (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (pow re 4))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* re (+ 4 (+ (* 2 (/ (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (pow re 2))) (+ (* 2 (/ (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (pow re 4))) (* 2 (/ (- (* 1/2 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/8 (pow im 6)) (+ (* 1/8 (* (pow im 4) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))))) (* (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (- (pow im 2) (* 1/2 (pow im 2))))))) (pow re 6)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* 2 re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (- (+ 2 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))) (* 2 (/ (- (pow im 2) (* 1/2 (pow im 2))) (pow re 2)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (- (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 2 (/ (- (pow im 2) (* 1/2 (pow im 2))) (pow re 2))) (/ (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))) (pow re 4))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* re (- (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 6)))))) (+ (* -1/8 (/ (pow im 6) (pow re 6))) (+ (* 1/8 (/ (* (pow im 4) (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2)))))) (pow re 6))) (+ (* 1/4 (/ (pow im 4) (pow re 4))) (+ (* 2 (/ (- (pow im 2) (* 1/2 (pow im 2))) (pow re 2))) (+ (/ (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))) (pow re 4)) (/ (* (- (* 1/2 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (+ (* 1/4 (pow im 4)) (* (- (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (- (pow im 2) (* 1/2 (pow im 2))))) (- (pow im 2) (* 1/2 (pow im 2)))))) (- (pow im 2) (* 1/2 (pow im 2)))) (pow re 6)))))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* 2 (pow re 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow re 3) (+ 2 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow re 3) (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow re 3) (+ 2 (+ (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 4))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 6)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (pow re 2)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 1 (+ (* 1/8 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 1 (+ (* -1/16 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))) (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1/2 (pow im 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (- (* -1/16 (/ (pow im 6) (pow re 4))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (- (* 1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (pow re 2)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))) (* (sqrt im) (/ (sqrt 2) re))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))) (* (sqrt (/ 1 im)) (/ (sqrt 2) re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (/ (+ (* -2 (/ (+ (* 1/128 (pow im 8)) (* 1/32 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (* (pow re 5) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))) (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/4 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/4 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6))))) (pow re 3))) (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/16 (* (sqrt (/ 1 (* (pow re 3) (pow (+ (* 2 (pow im 2)) (pow im 2)) 3)))) (/ (* (sqrt -1) (* (sqrt 2) (pow (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) 2))) (pow (sqrt 1/6) 3)))) (+ (* 1/4 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/4 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))))) (pow re 3))) (* 1/2 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (* (pow re 5) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))) (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/2 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/2 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6))))) (pow re 3))) (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/8 (* (sqrt (/ 1 (* (pow re 3) (pow (+ (* 2 (pow im 2)) (pow im 2)) 3)))) (/ (* (sqrt -1) (* (sqrt 2) (pow (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) 2))) (pow (sqrt 1/6) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (* (pow re 3) (+ (* 2 (pow im 2)) (pow im 2))))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))))) (sqrt 1/6)))) (* 1/2 (* (sqrt (/ re (+ (* 2 (pow im 2)) (pow im 2)))) (/ (* (sqrt -1) (* (sqrt 2) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (sqrt 1/6)))))) (pow re 3))) (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (/ (+ (* 1/3 (+ (* 2 (pow im 2)) (pow im 2))) (* 2 (/ (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (pow re 2)))) re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (/ (+ (* 1/3 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 2 (/ (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (pow re 2))) (* 2 (/ (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (pow re 4))))) re))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (/ (+ (* 1/3 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 2 (/ (- (* -1/6 (+ (* 1/4 (pow (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) 2)) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))))))) (+ (* -1/24 (* (pow im 4) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (- (pow im 2) (* -1/2 (pow im 2)))))))) (pow re 6))) (+ (* 2 (/ (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (pow re 2))) (* 2 (/ (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (pow re 4)))))) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1/6 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (/ (- (+ (* 1/6 (+ (* 2 (pow im 2)) (pow im 2))) (* 1/6 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2)))) (* 1/18 (/ (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 2)))) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (/ (- (+ (* 1/6 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/6 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/6 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4))))) (+ (* -1/144 (/ (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2))) (pow re 4))) (+ (* 1/18 (/ (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 2))) (* 1/3 (/ (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 4)))))) re))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (/ (- (+ (* -1/6 (/ (+ (* 1/4 (pow (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) 2)) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))))) (pow re 6))) (+ (* 1/6 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/6 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/6 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4)))))) (+ (* -1/24 (/ (* (pow im 4) (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2))))))) (pow re 6))) (+ (* -1/144 (/ (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2))) (pow re 4))) (+ (* 1/288 (/ (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2))) (pow re 6))) (+ (* 1/18 (/ (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 2))) (+ (* 1/3 (/ (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 4))) (* 1/3 (/ (* (- (* 1/6 (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))) (+ (* -1/144 (* (pow im 4) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (- (* 1/6 (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))) (* 1/18 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 2) (* -1/2 (pow im 2)))))) (- (pow im 2) (* -1/2 (pow im 2))))))) (- (pow im 2) (* -1/2 (pow im 2)))) (pow re 6))))))))) re))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1/2 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* re (+ (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* re (+ (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4)))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* re (+ (* -1/2 (/ (+ (* 1/4 (pow (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) 2)) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))))))))) (pow re 6))) (+ (* 1/2 (+ (* 2 (pow im 2)) (pow im 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2))) (pow re 2))) (* 1/2 (/ (- (pow im 6) (* 1/2 (* (+ (* 2 (pow im 2)) (pow im 2)) (- (+ (* 2 (pow im 4)) (pow im 4)) (* 1/4 (pow (+ (* 2 (pow im 2)) (pow im 2)) 2)))))) (pow re 4))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 3 (/ (pow im 2) (pow re 2))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow re 2) (- (+ 3 (+ (* 1/16 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/8 (/ (pow im 4) (pow re 4))))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* 2 (pow re 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow re 2) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow re 2) (- (+ 2 (* -1/8 (/ (pow im 4) (pow re 4)))) (* -1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow re 2) (- (+ 2 (* 1/16 (/ (pow im 6) (pow re 6)))) (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/8 (/ (pow im 4) (pow re 4))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (pow re 2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (- (* -1/2 (/ (pow im 2) (pow re 2))) 1))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (- (+ (* -1/2 (/ (pow im 2) (pow re 2))) (* 1/8 (/ (pow im 4) (pow re 4)))) 1))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow re 2) (- (+ (* -1/2 (/ (pow im 2) (pow re 2))) (+ (* -1/16 (/ (pow im 6) (pow re 6))) (* 1/8 (/ (pow im 4) (pow re 4))))) 1))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt im) (/ (sqrt 2) (fabs im)))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (* -1 (* re (+ (* -1 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) (fabs im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))) (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))) (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (+ (* (sqrt (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (+ (* 1/4 (/ (* (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) 2) (- (* 2 (pow re 2)) (pow re 2))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (sqrt (/ (- (* 2 (pow re 2)) (pow re 2)) (pow re 3))))))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))))) (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (+ (* 4 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (* 2 (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2))))))))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (- (+ (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (* (pow im 2) (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (+ (* 2 (/ (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))) (* (pow im 2) (- (+ (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (* (pow im 2) (- (+ (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (* (pow im 2) (- (+ (* 1/8 (/ 1 (* re (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))) (* 1/2 (/ (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2)))))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* (pow re 2) (- (* 2 (pow re 2)) (pow re 2))))) (* 1/2 (/ (- (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))) (- (* 2 (pow re 2)) (pow re 2)))))))) (+ (* 1/4 (/ re (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (* (pow re 3) (- (* 2 (pow re 2)) (pow re 2))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2))) (- (* 2 (pow re 2)) (pow re 2)))))))) (/ (pow re 3) (pow (- (* 2 (pow re 2)) (pow re 2)) 2)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (* 2 (pow re 3)))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 2 (pow re 3)) (* (pow im 2) (+ (* 1/2 (/ (* (pow im 2) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 3))) (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 3))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (+ (* 2 (pow re 3)) (* (pow im 2) (+ (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 3))) (* (pow im 2) (+ (* 1/2 (/ (* (pow im 2) (- 1 (* 1/2 (/ (* (+ (* 2 (pow re 4)) (pow re 4)) (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6))))) (pow re 6))))) (pow re 3))) (* 1/2 (/ (- (+ (* 2 (pow re 2)) (pow re 2)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 6)))) (pow re 3))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (* 2 (pow re 2)) (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (+ (* 1/2 (pow im 2)) (* 2 (pow re 2))) (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (+ (* 2 (pow re 2)) (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2)))))) (pow re 2))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (- (+ (* 2 (pow re 2)) (* (pow im 2) (+ 1/2 (* (pow im 2) (+ (* -1/16 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2)))))))) (pow re 2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 2))) 1/2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow im 2) (- (* (pow im 2) (+ (* -1/16 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))) 1/2))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (pow im 2) (- (* (pow im 2) (+ (* (pow im 2) (- (* 5/128 (/ (pow im 2) (pow re 6))) (* 1/16 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2))))) 1/2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* -1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))) (pow re 2))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (/ (+ (* 1/2 (* (sqrt im) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt im) (sqrt 2))) im)))
#s(approx (/ 1 (* (fabs im) (sqrt im))) #s(hole binary64 (* (sqrt (/ 1 im)) (/ 1 (fabs im)))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* (sqrt im) (fabs im))))
#s(approx (fabs im) #s(hole binary64 (fabs im)))
#s(approx (sqrt im) #s(hole binary64 (sqrt im)))
#s(approx (exp (* (log (/ 2 im)) 1/2)) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 2))))
#s(approx (* (log (/ 2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log im))))))
#s(approx (log (/ 2 im)) #s(hole binary64 (+ (log 2) (* -1 (log im)))))
#s(approx (/ 2 im) #s(hole binary64 (/ 2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2)))))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (+ (* 1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* -2 (pow re 2)) (pow re 2)) (pow im 2)))) (* -2 (/ re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* im (- (+ 2 (* -1 (/ (+ (* re (+ (* -2 (pow re 2)) (pow re 2))) (pow re 3)) (pow im 3)))) (+ (* -2 (/ re im)) (+ (* -2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* 1/4 (* im (pow re 2))) (* 2 (pow re 3))))))))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 7))) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* 1/4 (* im (pow re 2))) (* 2 (pow re 3))))))))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (* 2 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) (pow im 2))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (+ (* 2 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) (pow im 2))) (* 2 (/ (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (* 2 (pow re 3))))) (pow im 3)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))) (+ (* -1 (/ re im)) (+ (* -1 (/ (pow re 2) (pow im 2))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* im (- (+ 1 (+ (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))) (/ (pow re 3) (pow im 3)))) (+ (* -1 (/ re im)) (+ (* -1 (/ (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))) (pow im 3))) (+ (* -1 (/ (pow re 2) (pow im 2))) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (* 2 (/ (pow re 3) (pow im 3))))))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))) (/ (pow re 3) (pow im 3)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* (pow im 3) (+ 1 (+ (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) (pow im 4))) (/ (pow re 3) (pow im 3))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (- (+ 1 (* 2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (- (+ 1 (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (/ (pow re 2) im) re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 3) (pow im 2))) (/ (pow re 2) im)) re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 5) (pow im 4))) (/ (pow re 2) im)) (+ re (* 1/2 (/ (pow re 3) (pow im 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ re (* 1/2 (/ (pow re 3) (pow im 2)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (* 1/2 (/ (pow re 3) (pow im 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (+ (* 1/16 (/ (pow re 7) (pow im 6))) (* 1/2 (/ (pow re 3) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (log (/ 2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (/ 1 im))))))
#s(approx (log (/ 2 im)) #s(hole binary64 (+ (log 2) (log (/ 1 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (+ (* -1/4 (* im (pow re 2))) (+ (* 1/2 (pow re 3)) (* re (+ (* -1 (pow re 2)) (* 1/2 (pow re 2))))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (+ (* -2 (/ (pow re 2) im)) (/ (pow re 2) im)) (* -2 re)) im)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (- (* -1 (/ (- (+ (/ (* re (+ (* -2 (pow re 2)) (pow re 2))) im) (/ (pow re 3) im)) (+ (* -2 (pow re 2)) (pow re 2))) im)) (* -2 re)) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/4 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* -1/4 (* im (pow re 2))) (* 2 (pow re 3)))))))))) (* 1/4 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (* (sqrt 2) (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (+ (* -1/4 (* im (pow re 2))) (* 2 (pow re 3)))))))))) (* 1/2 (* (sqrt im) (* (sqrt -1) (* (sqrt 2) (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2))))))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) im)) (* 2 re)) im)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -2 (/ (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (* 2 (pow re 3))))) im)) (* 2 (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) im)) (* 2 re)) im)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 im)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) im)) (* -1 re)) im)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (- (+ (* -1 (/ (- (pow re 3) (+ (* -1 (* re (- (* 1/2 (+ (* 2 (pow re 2)) (pow re 2))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))))) (+ (* -1/2 (pow re 3)) (* 2 (pow re 3))))) im)) (* 1/2 (+ (* 2 (pow re 2)) (pow re 2)))) (+ (* -1 (pow re 2)) (* 2 (pow re 2)))) im)) (* -1 re)) im)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1 (/ (pow re 3) (pow im 3))) (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (+ (* -1 (/ (+ (* -1/2 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (pow re 3)) (pow im 3))) (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (- (* -2 (/ (pow re 2) im)) re) im))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (- (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im)) re) im))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im re)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (pow re 2) im)) re)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (pow re 2)) im)) re)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* -1 (/ (- (* 1/8 (/ (pow re 5) (pow im 2))) (* 1/2 (pow re 3))) im)) (pow re 2)) im)) re)))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im re))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ re (* 1/2 (/ (pow re 3) (pow im 2))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (* 1/2 (/ (pow re 3) (pow im 2)))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ re (+ (* -1/8 (/ (pow re 5) (pow im 4))) (+ (* 1/16 (/ (pow re 7) (pow im 6))) (* 1/2 (/ (pow re 3) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (sqrt 2)) (fabs im)))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))
#s(approx (* (fabs im) (sqrt im)) #s(hole binary64 (* -1 (* (sqrt im) (* (fabs im) (pow (sqrt -1) 2))))))
#s(approx (sqrt im) #s(hole binary64 (* -1 (* (sqrt im) (pow (sqrt -1) 2)))))
#s(approx (exp (* (log (/ 2 im)) 1/2)) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1)))))
#s(approx (* (log (/ 2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log -2) (log (/ -1 im))))))
#s(approx (log (/ 2 im)) #s(hole binary64 (+ (log -2) (log (/ -1 im)))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re) #s(literal 2 binary64)))
(pow.f64 (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) (sqrt.f64 (fma.f64 re re (*.f64 im im)))) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))
(/.f64 (+.f64 (pow.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) (sqrt.f64 (fma.f64 re re (*.f64 im im))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
(+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)
(pow.f64 (fma.f64 re re (*.f64 im im)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
re
im
(*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal -1 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(pow.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
(pow.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(/.f64 (*.f64 im im) re)
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))))
(pow.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))))
(*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(/.f64 (neg.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re))) (neg.f64 (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (/.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))) (/.f64 (*.f64 (*.f64 re re) re) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) (*.f64 (*.f64 re re) re)))
(/.f64 (+.f64 (pow.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 re re) re) #s(literal 3 binary64))) (fma.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) (-.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) (*.f64 (*.f64 re re) re)))))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re))
(+.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re))) (*.f64 (*.f64 re re) re))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (+.f64 (pow.f64 (*.f64 im im) #s(literal 3 binary64)) (pow.f64 (*.f64 re re) #s(literal 3 binary64))) (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re)))))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 im im (*.f64 re re))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(*.f64 (*.f64 re re) re)
(*.f64 re (*.f64 re re))
(pow.f64 re #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 3 binary64)))
(/.f64 (-.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))) (*.f64 (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))) (-.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(/.f64 (+.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3 binary64)) (pow.f64 (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) #s(literal 3 binary64))) (fma.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (*.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))))
(+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (-.f64 (pow.f64 (*.f64 re re) #s(literal 3 binary64)) (pow.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 3 binary64))) (fma.f64 (*.f64 re re) (*.f64 re re) (fma.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (*.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))) im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))) im))
(*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))) im)
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(pow.f64 (*.f64 (fabs.f64 im) (sqrt.f64 im)) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (fabs.f64 im) (sqrt.f64 im))))
(/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im)))
#s(literal 1 binary64)
(*.f64 (fabs.f64 im) (sqrt.f64 im))
(sqrt.f64 (*.f64 im im))
(fabs.f64 (neg.f64 im))
(fabs.f64 im)
(pow.f64 im #s(literal 1/2 binary64))
(sqrt.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal 2 binary64) im))) #s(literal 1/2 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) (sinh.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
(*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))
(-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 im))
(log.f64 (/.f64 #s(literal 2 binary64) im))
(/.f64 #s(literal -2 binary64) (neg.f64 im))
(/.f64 #s(literal 2 binary64) im)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 re (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (sqrt.f64 im) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (sqrt.f64 im) (*.f64 re (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) re) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (sqrt.f64 im) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im))))))))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 im (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) im))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 im (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 im (*.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 re (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal 2 binary64) im (*.f64 re (+.f64 #s(literal 2 binary64) (/.f64 re im)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal 2 binary64) im (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (neg (/ (* im im) re)) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 5/4 binary64) (/.f64 #s(literal 1 binary64) im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) im)) im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 5/4 binary64) (/.f64 #s(literal 1 binary64) im))) im) (*.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 im im))))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 5/4 binary64) (/.f64 #s(literal 1 binary64) im))))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 5/4 binary64) (/.f64 #s(literal 1 binary64) im)))))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) im)) im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 5/4 binary64) (/.f64 #s(literal 1 binary64) im))) im) (*.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 im im))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 5/4 binary64) (/.f64 #s(literal 1 binary64) im))))))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 2 binary64) im (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) im))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 2 binary64) im (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 re (fma.f64 #s(literal 2 binary64) (*.f64 re (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) im)) im) (*.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 im im)))))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) im)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) im)
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+.f64 im re))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+.f64 im (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (+.f64 im (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 re (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64))) (*.f64 re (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 5 binary64)))) (/.f64 #s(literal 1 binary64) im)) im) (*.f64 #s(literal 3/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 im im))))))) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 (*.f64 im im) im))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 im im) im)))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (fma.f64 (*.f64 re re) (+.f64 re (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 (*.f64 im im) im)))) (*.f64 (*.f64 im im) im)))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (fma.f64 (*.f64 re re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 (*.f64 im im) im)) (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64)))))) (*.f64 (*.f64 im im) im)))))) (*.f64 (*.f64 im im) im)))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) im))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 im (*.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* (* re re) re) (*.f64 (*.f64 re re) re))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 im im))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal -1 binary64) (*.f64 im re) (*.f64 im im)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (fma.f64 re (-.f64 (*.f64 #s(literal 2 binary64) re) im) (*.f64 im im)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (fma.f64 re (-.f64 (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im)))) im) (*.f64 im im)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im re)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 re (-.f64 re im)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 re (-.f64 (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im)))) im)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 re (-.f64 (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 im re))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 re (+.f64 im (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) im)))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 re (+.f64 im (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 re (+.f64 im (*.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))))))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 im) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))
#s(approx (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im))))
#s(approx (* (sqrt 2) re) (*.f64 re (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 re (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 re (fma.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 re (fma.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal -1/64 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (*.f64 re #s(literal 2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 2 binary64))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 re (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 re (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (*.f64 im im) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 re (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (*.f64 im im) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal -1/64 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (*.f64 im im) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (*.f64 im im) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 re (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 re (+.f64 #s(literal 4 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 re (+.f64 #s(literal 4 binary64) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 1/64 binary64) (pow.f64 im #s(literal 8 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 8 binary64)))) (*.f64 im im)) (fma.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 re (fma.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 re (+.f64 #s(literal 4 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (*.f64 re re))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 re (+.f64 #s(literal 4 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (*.f64 re re)) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 re (+.f64 #s(literal 4 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (*.f64 re re)) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 6 binary64)) (fma.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))))) (pow.f64 re #s(literal 6 binary64)))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal 2 binary64) re))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 re (-.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 re re)))) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))) (*.f64 re re))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 re (-.f64 (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))) (*.f64 re re)) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 re (-.f64 (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 re re)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))))) (pow.f64 re #s(literal 6 binary64))))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))) (*.f64 re re)) (+.f64 (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (fma.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))) (pow.f64 re #s(literal 6 binary64)))))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re)))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 (*.f64 (*.f64 re re) re) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 re re))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 (*.f64 (*.f64 re re) re) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 (*.f64 (*.f64 re re) re) (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 re re)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))))) (pow.f64 re #s(literal 6 binary64)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))))
#s(approx (+ (* im im) (* re re)) (*.f64 re re))
#s(approx (+ (* im im) (* re re)) (*.f64 (*.f64 re re) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 re re))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 im im) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 im im) (*.f64 re re)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (-.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (-.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/64 binary64) (pow.f64 im #s(literal 8 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 8 binary64)))) (pow.f64 re #s(literal 6 binary64)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 re re))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 (*.f64 re re) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 (*.f64 re re) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 (*.f64 re re) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal -1/32 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal -1/64 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 im) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fabs.f64 im))) (*.f64 (sqrt.f64 im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) re)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im)))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fabs.f64 im))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (*.f64 #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (fma.f64 #s(literal 1/1024 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/64 binary64) (pow.f64 im #s(literal 8 binary64)) (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 8 binary64)))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (*.f64 im im))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (*.f64 #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (fma.f64 #s(literal 1/1024 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (*.f64 im im)) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im))) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (fma.f64 #s(literal 1/128 binary64) (pow.f64 im #s(literal 8 binary64)) (*.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 8 binary64)))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)))) re)))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (pow.f64 re #s(literal 5 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 re (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 1/6 binary64))) (sqrt.f64 #s(literal 1/6 binary64))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 re (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64))))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (pow.f64 re #s(literal 5 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 re (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))))) (*.f64 (*.f64 re re) re)) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) #s(literal 2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 1/6 binary64))) (sqrt.f64 #s(literal 1/6 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 re (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64))))))) (*.f64 (*.f64 re re) re)) (*.f64 (sqrt.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/3 binary64))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1/3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/3 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (*.f64 re re)))) re)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/3 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (*.f64 re re)) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))) (pow.f64 re #s(literal 4 binary64)))))) re)))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/3 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/6 binary64) (fma.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))))))))) (fma.f64 #s(literal -1/24 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))) (fma.f64 #s(literal 1/288 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (*.f64 re re)) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))) (pow.f64 re #s(literal 4 binary64))))))) re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1/6 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 1/6 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (*.f64 re re)))) (*.f64 #s(literal 1/18 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) (*.f64 re re)))) re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 1/6 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (*.f64 re re)) (*.f64 #s(literal 1/6 binary64) (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))))) (pow.f64 re #s(literal 4 binary64)))))) (fma.f64 #s(literal -1/144 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/18 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) (*.f64 re re)) (*.f64 #s(literal 1/3 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) (pow.f64 re #s(literal 4 binary64))))))) re)))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 1/6 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (*.f64 re re)) (*.f64 #s(literal 1/6 binary64) (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))))) (pow.f64 re #s(literal 4 binary64))))))) (fma.f64 #s(literal -1/24 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal -1/144 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/288 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/18 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) (*.f64 re re)) (fma.f64 #s(literal 1/3 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/3 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))) (fma.f64 #s(literal -1/144 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/3 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))) (*.f64 #s(literal 1/18 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))) (-.f64 (*.f64 im im) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) (pow.f64 re #s(literal 6 binary64)))))))))) re)))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1/2 binary64) (*.f64 re (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (*.f64 re re)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 re (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))))) (pow.f64 re #s(literal 4 binary64)))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))))))))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im))))) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)))))))) (pow.f64 re #s(literal 4 binary64))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal 3 binary64) (*.f64 re re)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 3 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 3 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 im im) (*.f64 re re)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 3 binary64) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (/.f64 (*.f64 im im) (*.f64 re re)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal 2 binary64) (*.f64 re re)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 re re) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 re re) (-.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -1 binary64) (*.f64 re re)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 (*.f64 re re) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))))) #s(literal 1 binary64))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 (*.f64 re re) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (*.f64 #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (fma.f64 #s(literal 1/1024 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (*.f64 #s(literal -1 binary64) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 (sqrt.f64 im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fabs.f64 im))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (*.f64 #s(literal -1 binary64) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (fabs.f64 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (sqrt.f64 re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (sqrt.f64 re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (sqrt.f64 (*.f64 re #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (sqrt.f64 (*.f64 re #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (sqrt.f64 (*.f64 re #s(literal 2 binary64))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) re) (*.f64 #s(literal 2 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 #s(literal 2 binary64) re (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 #s(literal 2 binary64) re (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 re (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 re (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 re (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (sqrt.f64 re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 (sqrt.f64 re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal 4 binary64) re (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (fma.f64 #s(literal 4 binary64) re (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* -2 im) (*.f64 #s(literal -2 binary64) im))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re))) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re))) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re))) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re)))))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re)))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re))) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (fma.f64 (sqrt.f64 (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re))) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re))) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (sqrt.f64 (/.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 (*.f64 re re) re)))))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (*.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (fma.f64 #s(literal 4 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 (*.f64 im im) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))))))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 re re) re)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (fma.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 im im) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 re #s(literal 6 binary64)))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 (*.f64 re re) re)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (sqrt (+ (* im im) (* re re))) (+.f64 re (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (-.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 re re)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 im im) (*.f64 #s(literal 2 binary64) (*.f64 re re))) (*.f64 re re)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 (*.f64 im im) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))) (*.f64 re re)))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (-.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 (*.f64 im im) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re re)))))))) (*.f64 re re)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1/2 binary64))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re re))))) #s(literal 1/2 binary64))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 im im) (-.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 5/128 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64)))) (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -4 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re re))))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (fma.f64 #s(literal 1/2 binary64) (*.f64 im im) (*.f64 re re)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (fma.f64 (*.f64 im im) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) (*.f64 re re)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (fma.f64 (*.f64 im im) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re re)))))) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (sqrt.f64 re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (sqrt.f64 re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (-.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal -5 binary64))) (*.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) #s(literal 2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 im) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))) im))
#s(approx (/ 1 (* (fabs im) (sqrt im))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 #s(literal 1 binary64) (fabs.f64 im))))
#s(approx (* (fabs im) (sqrt im)) (*.f64 (sqrt.f64 im) (fabs.f64 im)))
#s(approx (fabs im) (fabs.f64 im))
#s(approx (sqrt im) (sqrt.f64 im))
#s(approx (exp (* (log (/ 2 im)) 1/2)) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))
#s(approx (* (log (/ 2 im)) 1/2) (*.f64 #s(literal 1/2 binary64) (log.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))
#s(approx (log (/ 2 im)) (log.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))
#s(approx (/ 2 im) (/.f64 #s(literal 2 binary64) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 im (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 im (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 im (fma.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (+.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (+.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (+.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re re)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 re re)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 im (+.f64 #s(literal 1 binary64) (/.f64 re im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) (/.f64 re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) (/.f64 re im))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 im (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 im (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -7 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (*.f64 im (*.f64 re re)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) re) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re)))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 im (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 im (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -7 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (*.f64 im (*.f64 re re)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) re) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re)))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 re im)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 im (-.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im)))) (*.f64 #s(literal -2 binary64) (/.f64 re im)))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 im (-.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 re (fma.f64 #s(literal -2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) im)))) (fma.f64 #s(literal -2 binary64) (/.f64 re im) (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) (/.f64 (*.f64 re re) (*.f64 im im)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -7 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 re re) re) (fma.f64 #s(literal 1/4 binary64) (*.f64 im (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re)))))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -7 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 re re) re) (fma.f64 #s(literal 1/4 binary64) (*.f64 im (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re)))))))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 re im)))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 im (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 re im) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))) (*.f64 im im)))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 im (+.f64 #s(literal 2 binary64) (fma.f64 #s(literal 2 binary64) (/.f64 re im) (fma.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))) (*.f64 im im)) (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))))) (*.f64 (*.f64 im im) im))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 im (+.f64 #s(literal 1 binary64) (/.f64 re im))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 im (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im)))) (fma.f64 #s(literal -1 binary64) (/.f64 re im) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 im (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im)) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)))) (fma.f64 #s(literal -1 binary64) (/.f64 re im) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)))))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im)) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))))) (pow.f64 im #s(literal 4 binary64))) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))))
#s(approx (+ (* im im) (* re re)) (*.f64 (*.f64 im im) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 im im) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 re im)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 im im) (-.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) (/.f64 re im))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 im im) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))) (/.f64 re im))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 im (-.f64 (/.f64 (*.f64 re re) im) re)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 im (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im)) (/.f64 (*.f64 re re) im)) re)))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 im (-.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 re #s(literal 5 binary64)) (pow.f64 im #s(literal 4 binary64))) (/.f64 (*.f64 re re) im)) (+.f64 re (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 im (+.f64 re (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 im (+.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 5 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 im (+.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 5 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 7 binary64)) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 im (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 im (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (fma.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))
#s(approx (* (log (/ 2 im)) 1/2) (*.f64 #s(literal 1/2 binary64) (log.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))
#s(approx (log (/ 2 im)) (log.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 #s(literal -1 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -1 binary64) (sqrt.f64 (*.f64 im #s(literal -1 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -1 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -1 binary64)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -1 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -1 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -1 binary64))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -1 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -1 binary64)))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -1 binary64))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 re (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im))) im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 re (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) (*.f64 #s(literal 1/2 binary64) (*.f64 re re))) im))) im))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 im) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re)))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 im (*.f64 re re)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) re) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re))))))))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re)))))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 im) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (*.f64 im (*.f64 re re)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) re) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 1/2 binary64) (*.f64 re re))))))))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 re im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 re re) im) (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im))))))
#s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (fma.f64 re (fma.f64 #s(literal -2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 re re) re)) im) (fma.f64 #s(literal -2 binary64) (*.f64 re re) (*.f64 re re))) im)) (*.f64 #s(literal -2 binary64) re)) im))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* 1/2 (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1/4 binary64) (*.f64 im (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))))))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 im) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 #s(literal -1 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (sqrt (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1/4 binary64) (*.f64 im (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))))))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 im) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 re im))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))) im) (*.f64 #s(literal 2 binary64) re)) im))))))
#s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))))) im) (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))))) im) (*.f64 #s(literal 2 binary64) re)) im))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) im))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 re im))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))) im)) (*.f64 #s(literal -1 binary64) re)) im))))))
#s(approx (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 re re) re) (fma.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re))))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))))) im) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)))) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 #s(literal 2 binary64) (*.f64 re re)))) im)) (*.f64 #s(literal -1 binary64) re)) im))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 im im) im)))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 im im) im) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im)))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 im im) im) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im))))))))
#s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 im im) im) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (pow.f64 re #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re))))) im) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im im))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 im im) (+.f64 #s(literal 1 binary64) (/.f64 re im))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 im im) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 (*.f64 re re) im)) re) im)))))
#s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (*.f64 (*.f64 im im) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) im) (*.f64 #s(literal 2 binary64) (*.f64 re re))) im)) re) im)))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 im re))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 re re) im)) re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) im) (*.f64 re re)) im)) re))))
#s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 re #s(literal 5 binary64)) (*.f64 im im))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 re re) re))) im) (*.f64 re re)) im)) re))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -1 binary64) (*.f64 im re)))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 re (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im)))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 5 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im))))))))
#s(approx (* (sqrt (+ (* im im) (* re re))) re) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 re #s(literal 5 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 re #s(literal 7 binary64)) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 #s(literal -1 binary64) (*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal -2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))) (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 im) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal -2 binary64)))))) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re (sqrt.f64 #s(literal -2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))))))
#s(approx (* (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) im) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))))
#s(approx (+ (* (* (/ 1 (* (fabs im) (sqrt im))) (* (sqrt 2) re)) 1/2) (exp (* (log (/ 2 im)) 1/2))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (/.f64 (*.f64 re (sqrt.f64 #s(literal 2 binary64))) (fabs.f64 im))) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))))
#s(approx (* (fabs im) (sqrt im)) (*.f64 #s(literal -1 binary64) (*.f64 (sqrt.f64 im) (*.f64 (fabs.f64 im) #s(literal -1 binary64)))))
#s(approx (sqrt im) (*.f64 #s(literal -1 binary64) (*.f64 (sqrt.f64 im) #s(literal -1 binary64))))
#s(approx (exp (* (log (/ 2 im)) 1/2)) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))
#s(approx (* (log (/ 2 im)) 1/2) (*.f64 #s(literal 1/2 binary64) (log.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -1 binary64) im)))))
#s(approx (log (/ 2 im)) (log.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal -1 binary64) im))))

eval134.0ms (2.7%)

Memory
9.9MiB live, 109.5MiB allocated; 17ms collecting garbage
Compiler

Compiled 46 003 to 4 317 computations (90.6% saved)

prune29.0ms (0.6%)

Memory
-27.9MiB live, 57.7MiB allocated; 11ms collecting garbage
Pruning

21 alts after pruning (10 fresh and 11 done)

PrunedKeptTotal
New6515656
Fresh055
Picked145
Done077
Total65221673
Accuracy
88.9%
Counts
673 → 21
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓44.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓78.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
✓44.2%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
17.6%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) (sqrt.f64 #s(literal 2 binary64))))
17.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) #s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) im) (*.f64 re re)) im)) re)))))))))
17.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) #s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (fma.f64 re (-.f64 (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im)))) im) (*.f64 im im)))))))
39.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (- (+ (* im im) (* re re)) (* re re)) (*.f64 im im)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
5.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 im im) im))) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
✓78.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓7.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓4.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
✓0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
✓17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1/3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)))))
✓50.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
47.2%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
42.2%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal -1 binary64))) #s(literal 2 binary64)))) im)))
✓25.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
50.5%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
45.2%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (exp.f64 (*.f64 (log.f64 im) #s(literal -1 binary64)))))) im)))
✓45.3%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im)))
Compiler

Compiled 1 725 to 658 computations (61.9% saved)

regimes62.0ms (1.3%)

Memory
17.3MiB live, 122.6MiB allocated; 14ms collecting garbage
Counts
31 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1/3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (- (+ (* im im) (* re re)) (* re re)) (*.f64 im im)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 im im) im))) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) #s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (fma.f64 re (-.f64 (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im)))) im) (*.f64 im im)))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) #s(approx (- (* re re) (* (sqrt (+ (* im im) (* re re))) re)) (*.f64 #s(literal -1 binary64) (*.f64 im (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 re re) re) im) (*.f64 re re)) im)) re)))))))))
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im)))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (exp.f64 (*.f64 (log.f64 im) #s(literal -1 binary64)))))) im)))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal -1 binary64))) #s(literal 2 binary64)))) im)))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
Calls

7 calls:

13.0ms
re
9.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
8.0ms
im
7.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
7.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
Results
AccuracySegmentsBranch
78.2%1(*.f64 im im)
82.0%2(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
82.0%2(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
82.3%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
82.3%2(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
82.4%2re
78.2%1im
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes42.0ms (0.9%)

Memory
13.6MiB live, 60.0MiB allocated; 2ms collecting garbage
Counts
22 → 5
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1/3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (- (+ (* im im) (* re re)) (* re re)) (*.f64 im im)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im)))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 im im) im))) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) #s(approx (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))) (fma.f64 re (-.f64 (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im)))) im) (*.f64 im im)))))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(approx (- (+ (* im im) (* re re)) (* re re)) (*.f64 im im)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
Calls

7 calls:

7.0ms
re
6.0ms
im
5.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
5.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
5.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
63.3%3(*.f64 im im)
63.3%3im
67.9%4(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
67.9%4(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
68.3%4(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
68.3%4(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
78.4%5re
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes56.0ms (1.2%)

Memory
-41.9MiB live, 4.5MiB allocated; 2ms collecting garbage
Counts
15 → 4
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (+ (* (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re))) (* (* re re) re)) (+ (+ (* im im) (* re re)) (- (* re re) (* (sqrt (+ (* im im) (* re re))) re))))) (*.f64 #s(literal -1/3 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 im im) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
Calls

1 calls:

55.0ms
re
Results
AccuracySegmentsBranch
76.7%4re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes4.0ms (0.1%)

Memory
3.4MiB live, 3.4MiB allocated; 0ms collecting garbage
Counts
10 → 3
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (neg.f64 (/.f64 (*.f64 im im) re)))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
Calls

1 calls:

3.0ms
re
Results
AccuracySegmentsBranch
74.5%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

Memory
2.9MiB live, 2.9MiB allocated; 0ms collecting garbage
Counts
8 → 3
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 #s(approx (+ (* (* 1/2 (sqrt (/ 1 (* (* im im) im)))) (* (sqrt 2) re)) (sqrt (* (/ 1 im) 2))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im)))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
Calls

1 calls:

3.0ms
re
Results
AccuracySegmentsBranch
69.0%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

Memory
2.7MiB live, 2.7MiB allocated; 0ms collecting garbage
Counts
6 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (/ (- (+ (* im im) (* re re)) (* re re)) (- (sqrt (+ (* im im) (* re re))) re))) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
Calls

1 calls:

2.0ms
re
Results
AccuracySegmentsBranch
65.5%2re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes7.0ms (0.1%)

Memory
10.0MiB live, 10.0MiB allocated; 0ms collecting garbage
Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts
1 → 1
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
Calls

7 calls:

1.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
1.0ms
re
1.0ms
im
1.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
1.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
50.8%1(*.f64 im im)
50.8%1im
50.8%1(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
50.8%1(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
50.8%1(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
50.8%1(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
50.8%1re
Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch25.0ms (0.5%)

Memory
10.8MiB live, 10.8MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
22.0ms
-3.4146956610765515e+156
-1.3897969614855673e+152
Samples
7.0ms28×3valid
5.0ms29×2valid
4.0ms39×1valid
2.0ms32×0valid
Compiler

Compiled 274 to 230 computations (16.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 14.0ms
ival-hypot: 7.0ms (51% of total)
adjust: 2.0ms (14.6% of total)
ival-sqrt: 2.0ms (14.6% of total)
ival-mult!: 2.0ms (14.6% of total)
ival-add!: 1.0ms (7.3% of total)

bsearch69.0ms (1.4%)

Memory
-2.9MiB live, 89.0MiB allocated; 13ms collecting garbage
Algorithm
4×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
15.0ms
1.4274475743976106e+51
4.061547062681486e+55
13.0ms
8.43161259912653e-165
3.066005802236965e-157
29.0ms
-4388796460760173.5
-0.003015740306441123
7.0ms
-3.4146956610765515e+156
-1.3897969614855673e+152
Samples
23.0ms357×0valid
11.0ms46×2valid
9.0ms38×3valid
2.0ms23×1valid
Compiler

Compiled 1 493 to 1 117 computations (25.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 34.0ms
ival-hypot: 17.0ms (50% of total)
ival-mult!: 8.0ms (23.5% of total)
ival-sqrt: 5.0ms (14.7% of total)
adjust: 2.0ms (5.9% of total)
ival-add!: 2.0ms (5.9% of total)

bsearch31.0ms (0.6%)

Memory
18.5MiB live, 59.8MiB allocated; 8ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.4274475743976106e+51
4.061547062681486e+55
1.0ms
8.43161259912653e-165
3.066005802236965e-157
26.0ms
-1.0755107414137809e+71
-2.8309272131187212e+63
Samples
7.0ms32×1valid
6.0ms25×3valid
4.0ms24×2valid
4.0ms63×0valid
Compiler

Compiled 956 to 777 computations (18.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 17.0ms
ival-hypot: 10.0ms (60.5% of total)
adjust: 2.0ms (12.1% of total)
ival-sqrt: 2.0ms (12.1% of total)
ival-mult!: 2.0ms (12.1% of total)
ival-add!: 1.0ms (6% of total)

bsearch10.0ms (0.2%)

Memory
-28.0MiB live, 17.2MiB allocated; 3ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
8.0ms
7.979638103905899e+22
1.3764919157538314e+23
1.0ms
-1.0755107414137809e+71
-2.8309272131187212e+63
Samples
6.0ms64×0valid
Compiler

Compiled 543 to 430 computations (20.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 5.0ms
ival-sqrt: 3.0ms (65.7% of total)
ival-hypot: 1.0ms (21.9% of total)
ival-mult!: 1.0ms (21.9% of total)
adjust: 0.0ms (0% of total)
ival-add!: 0.0ms (0% of total)

bsearch602.0ms (12.4%)

Memory
-93.1MiB live, 48.1MiB allocated; 991ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
582.0ms
7.979638103905899e+22
1.3764919157538314e+23
18.0ms
-2.404404977504411e+187
-4.511826626434729e+186
Samples
7.0ms31×3valid
4.0ms23×2valid
3.0ms28×1valid
1.0ms14×0valid
Compiler

Compiled 396 to 322 computations (18.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 12.0ms
ival-hypot: 6.0ms (51% of total)
adjust: 2.0ms (17% of total)
ival-sqrt: 2.0ms (17% of total)
ival-mult!: 2.0ms (17% of total)
ival-add!: 1.0ms (8.5% of total)

bsearch1.0ms (0%)

Memory
1.8MiB live, 1.8MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
7.979638103905899e+22
1.3764919157538314e+23
Compiler

Compiled 174 to 142 computations (18.4% saved)

derivations226.0ms (4.6%)

Memory
-43.7MiB live, 184.3MiB allocated; 21ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 440 to 77 computations (82.5% saved)

preprocess57.0ms (1.2%)

Memory
40.1MiB live, 129.3MiB allocated; 9ms collecting garbage
Compiler

Compiled 1 790 to 620 computations (65.4% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated; 0ms collecting garbage

Profiling

Loading profile data...