math.sqrt on complex, real part

Time bar (total: 4.9s)

start0.0ms (0%)

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

analyze141.0ms (2.9%)

Memory
16.2MiB live, 158.0MiB allocated; 42ms 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.4s (28.8%)

Memory
24.3MiB live, 1 861.8MiB allocated; 263ms collecting garbage
Samples
646.0ms6 243×0valid
191.0ms454×3valid
169.0ms798×2valid
103.0ms761×1valid
Precisions
Click to see histograms. Total time spent on operations: 751.0ms
ival-hypot: 334.0ms (44.5% of total)
ival-mult: 180.0ms (24% of total)
ival-sqrt: 86.0ms (11.5% of total)
ival-add: 79.0ms (10.5% of total)
adjust: 56.0ms (7.5% of total)
exact: 7.0ms (0.9% of total)
ival-true: 6.0ms (0.8% of total)
ival-assert: 3.0ms (0.4% of total)
Bogosity

explain198.0ms (4%)

Memory
-19.8MiB live, 365.1MiB allocated; 53ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1290-2(-1.932811859893358e-158 -7.942213375215914e-276)(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
360-0-(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
240-0-(+.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-rescue1090
↳(+.f64 (*.f64 re re) (*.f64 im im))overflow109
↳(*.f64 re re)overflow64
↳(*.f64 im im)overflow57
sqrt.f64(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))uflow-rescue340
↳(+.f64 (*.f64 re re) (*.f64 im im))underflow18
↳(*.f64 im im)underflow73
↳(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))underflow7
↳(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))underflow41
↳(*.f64 re re)underflow52
↳(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)underflow41
+.f64(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)cancellation240
sqrt.f64(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))uflow-rescue180
↳(+.f64 (*.f64 re re) (*.f64 im im))underflow18
↳(*.f64 re re)underflow52
↳(*.f64 im im)underflow73
sqrt.f64(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))oflow-rescue20
↳(+.f64 (*.f64 re re) (*.f64 im im))overflow109
↳(*.f64 re re)overflow64
↳(*.f64 im im)overflow57
↳(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))overflow2
Confusion
Predicted +Predicted -
+1530
-0103
Precision
1.0
Recall
1.0
Confusion?
Predicted +Predicted MaybePredicted -
+15300
-00103
Precision?
1.0
Recall?
1.0
Freqs
test
numberfreq
0103
1119
234
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
39.0ms382×0valid
18.0ms64×2valid
13.0ms34×3valid
10.0ms32×1valid
Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 56.0ms
ival-mult: 19.0ms (34.1% of total)
ival-hypot: 17.0ms (30.5% of total)
adjust: 7.0ms (12.6% of total)
ival-add: 6.0ms (10.8% of total)
ival-sqrt: 5.0ms (9% of total)
ival-true: 1.0ms (1.8% of total)
exact: 1.0ms (1.8% of total)
ival-assert: 0.0ms (0% of total)

preprocess242.0ms (4.9%)

Memory
7.1MiB live, 191.7MiB allocated; 25ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03077
110477
224475
343875
492575
5304475
6659075
01215
02015
14315
211815
324515
448615
5154515
6437115
0852510
Stop Event
1×iter limit
1×node limit
1×iter limit
1×node limit
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))))
Outputs
(*.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 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
Symmetry

(abs im)

Compiler

Compiled 15 to 12 computations (20% saved)

eval0.0ms (0%)

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

Compiled 0 to 2 computations (-∞% saved)

prune1.0ms (0%)

Memory
0.9MiB live, 0.9MiB allocated; 0ms collecting garbage
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶43.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))))
Compiler

Compiled 15 to 12 computations (20% saved)

series23.0ms (0.5%)

Memory
33.3MiB live, 33.3MiB 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)

simplify250.0ms (5.1%)

Memory
-8.6MiB live, 174.2MiB allocated; 28ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06274333
120124173
090343451
Stop Event
1×iter limit
1×node limit
Counts
119 → 119
Calls
Call 1
Inputs
#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
#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)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)))
#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)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))))
#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)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))))) re)) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#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))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 re #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 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)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#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)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 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) (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) #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))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) 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))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) 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))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) 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 (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) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* re re) (*.f64 re re))
#s(approx re #s(hole binary64 re))
#s(approx re 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)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
#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)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 1 binary64))) re))
#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)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 1 binary64)))) re))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 1 binary64)))) re))
#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))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 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)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#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)) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))) re))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) 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) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64)) re))
#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) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64))) re))
#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))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) 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))) (fma.f64 (*.f64 re #s(literal 1/2 binary64)) (*.f64 (/.f64 im re) (/.f64 im re)) re))
#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))) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) re re))
#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 (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))) re re))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (* re re) (* im im)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re 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)))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)))) (fma.f64 (*.f64 #s(literal 1/32 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)))) (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 im (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)) (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 (*.f64 #s(literal 1/1024 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/64 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64)))) im (*.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))
#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))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 (*.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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)) (/.f64 (*.f64 (neg.f64 im) im) 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)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 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)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) (neg.f64 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) (neg.f64 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) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) 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) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) im) im (*.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re))) (neg.f64 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) im (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))))) (neg.f64 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))) re) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) im (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64)))))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))))
#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))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64)))))
#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 (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))) re re)))
#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)))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64))))
#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)))) (fma.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 1 binary64))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)) (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re))))))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 1 binary64))))
#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))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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))) (fma.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/2 binary64)) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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))) #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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)) (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re))))))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#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)) #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)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #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)) #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 (+ (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) (pow.f64 re #s(literal 3 binary64)))) (*.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) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) 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) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) 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))) 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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) 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))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) 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))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) 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 (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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* im im) (*.f64 im im))
#s(approx im #s(hole binary64 im))
#s(approx im 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)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) im))
#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)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))) im))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/16 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))) im))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) 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)) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 re im) im 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) (fma.f64 (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im)) im 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))) re) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im))) im 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))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) im))
#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))) (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))) im))
#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 (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))))) im im))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (+ (* re re) (* im im)) (*.f64 (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 1 binary64)) im) 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)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64)))))
#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)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (sqrt.f64 #s(literal -1 binary64))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64))))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 re (*.f64 re (sqrt.f64 #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 im) #s(literal 3/16 binary64))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))))))
#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))) (*.f64 (*.f64 (neg.f64 (sqrt.f64 im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#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))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))))
#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))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (sqrt.f64 #s(literal -1 binary64))) #s(literal -1/4 binary64) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 re (*.f64 re (sqrt.f64 #s(literal -1 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 im) #s(literal 3/8 binary64))) (neg.f64 (pow.f64 im #s(literal 3 binary64))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 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)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re 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)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 (neg.f64 re) re) im)) 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 re re)) (neg.f64 im))) im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 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) (*.f64 (neg.f64 im) (-.f64 #s(literal 1 binary64) (/.f64 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) (*.f64 (neg.f64 im) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) 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))) re) (*.f64 (neg.f64 im) (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 re (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) im))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))))
#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))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)))))
#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 (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))))) im im)))

rewrite60.0ms (1.2%)

Memory
16.7MiB live, 62.8MiB allocated; 4ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01275
02075
17475
062748
Stop Event
1×iter limit
1×iter limit
1×node limit
1×iter limit
Counts
12 → 242
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
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 (hypot.f64 im re) re)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 im re) re)))
(pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re))
(/.f64 (*.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (hypot.f64 im re) re))
(/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re))) (-.f64 (hypot.f64 im re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (hypot.f64 im re) #s(literal 2 binary64))) (*.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))) (-.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 re #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))) (*.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)) (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re))) (-.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)))
(/.f64 (+.f64 (pow.f64 (+.f64 (hypot.f64 im re) re) #s(literal 3 binary64)) (pow.f64 (+.f64 (hypot.f64 im re) re) #s(literal 3 binary64))) (fma.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re) (-.f64 (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)) (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)))))
(/.f64 (+.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re))) (-.f64 (hypot.f64 im re) re))
(/.f64 (+.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re) (*.f64 (-.f64 (hypot.f64 im re) re) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (-.f64 (hypot.f64 im re) re) (-.f64 (hypot.f64 im re) re)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (*.f64 (-.f64 (hypot.f64 im re) re) (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))))) (*.f64 (-.f64 (hypot.f64 im re) re) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (-.f64 (hypot.f64 im re) re) (*.f64 (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (-.f64 (hypot.f64 im re) re)))
(/.f64 (fma.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (*.f64 (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))))) (*.f64 (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (+.f64 re (+.f64 (hypot.f64 im re) re)))
(fma.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re) (*.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re)))
(fma.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64) (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64)))
(fma.f64 (hypot.f64 im re) #s(literal 2 binary64) (*.f64 re #s(literal 2 binary64)))
(fma.f64 re #s(literal 2 binary64) (*.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (hypot.f64 im re) (*.f64 re #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) re (*.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(-.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64)))
(-.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (+.f64 (+.f64 (hypot.f64 im re) re) (hypot.f64 im re)) re)
(+.f64 (+.f64 (+.f64 (hypot.f64 im re) re) re) (hypot.f64 im re))
(+.f64 (*.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re)) (*.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re)))
(+.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64)) (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64)))
(+.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(+.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))
(+.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re))
(+.f64 (hypot.f64 im re) (+.f64 re (+.f64 (hypot.f64 im re) re)))
(+.f64 re (+.f64 (hypot.f64 im re) (+.f64 (hypot.f64 im re) re)))
#s(literal 2 binary64)
(/.f64 (-.f64 (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (-.f64 re (hypot.f64 im re)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re))) (neg.f64 (-.f64 (hypot.f64 im re) re)))
(/.f64 (neg.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))) (neg.f64 (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re))
(/.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (fma.f64 re re (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (hypot.f64 im re) re))))
(/.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) re)
(-.f64 (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (hypot.f64 im re) re)) (/.f64 (*.f64 re re) (-.f64 (hypot.f64 im re) re)))
(+.f64 (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) (/.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(+.f64 (hypot.f64 im re) re)
(+.f64 re (hypot.f64 im re))
(*.f64 (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (*.f64 (+.f64 re im) (-.f64 re im))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(sqrt.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(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)) (pow.f64 re #s(literal 1 binary64)))
(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)) (pow.f64 re #s(literal 1 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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)) (pow.f64 re #s(literal 1 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (neg.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(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)) (neg.f64 (neg.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 (fabs.f64 re)))
(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 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) (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 (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) (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 (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) (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) (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) (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 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 (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 (neg.f64 (neg.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 (fabs.f64 im)))
(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 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (hypot.f64 im re)) (neg.f64 (hypot.f64 im re)))
(*.f64 (fabs.f64 (hypot.f64 im re)) (fabs.f64 (hypot.f64 im re)))
(*.f64 (hypot.f64 im re) (hypot.f64 im re))
(pow.f64 (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1 binary64))
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (-.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (*.f64 (neg.f64 im) im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (*.f64 re re) (*.f64 (neg.f64 im) im)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (neg.f64 (*.f64 (+.f64 re im) (-.f64 re im))))
(/.f64 (neg.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64)))) (neg.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (*.f64 (+.f64 re im) (-.f64 re im)))
(/.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(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 (neg.f64 (neg.f64 im)) im))
(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 (neg.f64 (neg.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 (neg.f64 (neg.f64 im)) im))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) re (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) re (*.f64 im im))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) im (*.f64 re re))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 (neg.f64 (neg.f64 im)) im))
(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 (neg.f64 (neg.f64 im)) im))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 re re (*.f64 im im))
(sqrt.f64 (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (+.f64 re im) (-.f64 re im))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (+.f64 re im) (-.f64 re im))))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 (neg.f64 re)) (neg.f64 re)))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 re)))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 im im) (*.f64 re (neg.f64 re)))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 (neg.f64 im)) (neg.f64 im)))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 im)))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) (/.f64 (pow.f64 im #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 (neg.f64 (neg.f64 im)) im))
(+.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 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (pow.f64 re #s(literal 1 binary64)) re)
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 re #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 re) re))
(neg.f64 (*.f64 re (neg.f64 re)))
(fabs.f64 (*.f64 re re))
(exp.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 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (pow.f64 im #s(literal 1 binary64)) im)
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 im #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 im) im))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
im

eval99.0ms (2%)

Memory
-47.5MiB live, 121.9MiB allocated; 98ms collecting garbage
Compiler

Compiled 8 685 to 2 130 computations (75.5% saved)

prune14.0ms (0.3%)

Memory
-1.4MiB live, 43.6MiB allocated; 3ms collecting garbage
Pruning

11 alts after pruning (11 fresh and 0 done)

PrunedKeptTotal
New35611367
Fresh000
Picked101
Done000
Total35711368
Accuracy
86.9%
Counts
368 → 11
Alt Table
Click to see full alt table
StatusAccuracyProgram
27.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
43.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
▶6.3%
(*.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))))
▶51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
▶48.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))))
28.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
▶14.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
43.8%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im)))
49.3%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
▶29.1%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
Compiler

Compiled 488 to 356 computations (27% saved)

series25.0ms (0.5%)

Memory
28.2MiB live, 71.7MiB allocated; 5ms collecting garbage
Counts
32 → 140
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
#s(literal 2 binary64)
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 re) #s(literal 1 binary64))
(sqrt.f64 re)
#s(literal 1 binary64)
(*.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) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
(/.f64 (*.f64 (neg.f64 im) im) re)
(*.f64 (neg.f64 im) im)
(neg.f64 im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
(*.f64 #s(literal 2 binary64) 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 #s(hole binary64 re))
#s(approx (* (sqrt re) 1) #s(hole binary64 (sqrt re)))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#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 im) 2) re) (* 2 im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 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 re) 1) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#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 (* (neg im) im) #s(hole binary64 (* -1 (pow im 2))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (* 2 im) #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 (* 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 im) 2) re) (* 2 im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (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))))))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
Calls

6 calls:

TimeVariablePointExpression
7.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))) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt re) 1) (sqrt re) 1 (* 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg 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)) (+ (* (+ (/ re im) 2) re) (* 2 im)) (+ (/ re im) 2) (/ re im) (* 2 im))
3.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))) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt re) 1) (sqrt re) 1 (* 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg 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)) (+ (* (+ (/ re im) 2) re) (* 2 im)) (+ (/ re im) 2) (/ re im) (* 2 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))) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt re) 1) (sqrt re) 1 (* 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg 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)) (+ (* (+ (/ re im) 2) re) (* 2 im)) (+ (/ re im) 2) (/ re im) (* 2 im))
3.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))) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt re) 1) (sqrt re) 1 (* 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg 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)) (+ (* (+ (/ re im) 2) re) (* 2 im)) (+ (/ re im) 2) (/ re im) (* 2 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))) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt re) 1) (sqrt re) 1 (* 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg 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)) (+ (* (+ (/ re im) 2) re) (* 2 im)) (+ (/ re im) 2) (/ re im) (* 2 im))

simplify200.0ms (4.1%)

Memory
3.9MiB live, 284.2MiB allocated; 43ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06884666
121544496
084173758
Stop Event
1×iter limit
1×node limit
Counts
140 → 140
Calls
Call 1
Inputs
#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 re) 1) #s(hole binary64 (sqrt re)))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#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 im) 2) re) (* 2 im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 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 re) 1) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#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 (* (neg im) im) #s(hole binary64 (* -1 (pow im 2))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (* 2 im) #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 (* 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 im) 2) re) (* 2 im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (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))))))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
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)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)))
#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)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))))
#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)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))))) re)) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#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))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 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)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#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)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 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) (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) #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))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) 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))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) 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))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) 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 (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) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx re #s(hole binary64 re))
#s(approx re re)
#s(approx (* (sqrt re) 1) #s(hole binary64 (sqrt re)))
#s(approx (* (sqrt re) 1) (sqrt.f64 re))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (* (sqrt re) 1) (sqrt.f64 re))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (neg re) (neg.f64 re))
#s(approx (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ (* (neg im) im) re) (*.f64 (neg.f64 im) (/.f64 im re)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 #s(literal 2 binary64) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(literal 2 binary64))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (+ (/ re im) 2) (-.f64 (/.f64 re im) #s(literal -2 binary64)))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (/ re im) (/.f64 re im))
#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)))) (sqrt.f64 re))
#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)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))) re))
#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)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) re))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) re))
#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))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 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)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#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)) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))) re))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) 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) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64)) re))
#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) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64))) re))
#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))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64))) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) 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))) (fma.f64 (*.f64 re #s(literal 1/2 binary64)) (*.f64 (/.f64 im re) (/.f64 im re)) re))
#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))) (fma.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) re re))
#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 (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))) re re))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (/.f64 (*.f64 re re) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (*.f64 re re)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 #s(literal 2 binary64) re) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im))) (*.f64 re re)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) (/.f64 re im))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (/ re im) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) 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)))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)))) (fma.f64 (*.f64 #s(literal 1/32 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)))) (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 (*.f64 #s(literal 1/1024 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/64 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64)))) im (*.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))
#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))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 (*.f64 #s(literal 1/512 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 5 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 re #s(literal 3 binary64))))))
#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)) (*.f64 (neg.f64 im) (/.f64 im 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)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) (neg.f64 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)) (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) (neg.f64 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) (neg.f64 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) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) 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) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) im) im (*.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re))) (neg.f64 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) (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) im (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))))) (neg.f64 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))) re) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) im (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64)))))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64)) (neg.f64 re)))
#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))) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))) (neg.f64 re)))
#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 (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))) re re)))
#s(approx (* (sqrt re) 1) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* (sqrt re) 1) (sqrt.f64 re))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* (sqrt re) 1) (sqrt.f64 re))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 (*.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal -2 binary64)) re) #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im)) re) re))
#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)))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 re)))
#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)))) (fma.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (sqrt.f64 re)))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)) (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re))))))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (sqrt.f64 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))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/4 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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))) (fma.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/2 binary64)) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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))) #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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)) (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re))))))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#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)) #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)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #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)) #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 (+ (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) (pow.f64 re #s(literal 3 binary64)))) (*.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) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) 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) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) 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))) 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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) 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))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) 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))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) 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 (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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx im #s(hole binary64 im))
#s(approx im im)
#s(approx (* (neg im) im) #s(hole binary64 (* -1 (pow im 2))))
#s(approx (* (neg im) im) (*.f64 (neg.f64 im) im))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (neg im) (neg.f64 im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (/.f64 (*.f64 re (fma.f64 #s(literal 2 binary64) im re)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re)) im (*.f64 re re)) im))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (+ (/ re im) 2) (/.f64 (fma.f64 #s(literal 2 binary64) im re) im))
#s(approx (* 2 im) #s(hole binary64 (* 2 im)))
#s(approx (* 2 im) (*.f64 #s(literal 2 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)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) im))
#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)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))) im))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/16 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))) im))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) 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)) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) im))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 re im) im 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) (fma.f64 (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im)) im 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))) re) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im))) im 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))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) im))
#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))) (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))) im))
#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 (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))))) im im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))) 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)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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)))) (*.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 #s(literal -1 binary64))) #s(literal 1/4 binary64))) (neg.f64 im)))
#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)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (sqrt.f64 #s(literal -1 binary64))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 #s(literal -1 binary64))) #s(literal 1/4 binary64)))) (neg.f64 im)))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 im)) #s(literal 3/16 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64)))))) (neg.f64 im)))
#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))) (*.f64 (*.f64 (neg.f64 (sqrt.f64 im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))
#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))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 #s(literal -1 binary64))) #s(literal 1/2 binary64))) (neg.f64 im)))
#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))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (sqrt.f64 #s(literal -1 binary64))) #s(literal -1/4 binary64) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 #s(literal -1 binary64))) #s(literal 1/2 binary64)))) (neg.f64 im)))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) re) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 im)) #s(literal 3/8 binary64)) (neg.f64 (pow.f64 im #s(literal 3 binary64)))))) (neg.f64 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 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)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) (neg.f64 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)) (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 (neg.f64 re) re) im)) im)) (neg.f64 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 re re)) (neg.f64 im))) im)) (neg.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 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) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re im)) (neg.f64 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) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im)) (neg.f64 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))) re) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 re (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) im)) (neg.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) (neg.f64 im)))
#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))) (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))) (neg.f64 im)))
#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 (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))))) im im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal -2 binary64)) (neg.f64 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* 2 im)) (*.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 re re) im)) im) #s(literal -1 binary64) #s(literal -2 binary64)) (neg.f64 im)))

rewrite77.0ms (1.6%)

Memory
-31.0MiB live, 108.3MiB allocated; 26ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
040341
063337
1207337
01506252
Stop Event
1×iter limit
1×iter limit
1×node limit
1×iter limit
Counts
32 → 205
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
#s(literal 2 binary64)
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 re) #s(literal 1 binary64))
(sqrt.f64 re)
#s(literal 1 binary64)
(*.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) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
(/.f64 (*.f64 (neg.f64 im) im) re)
(*.f64 (neg.f64 im) im)
(neg.f64 im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
(*.f64 #s(literal 2 binary64) im)
Outputs
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (*.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) #s(literal 2 binary64)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (*.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))))
(/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))))
(/.f64 (-.f64 (*.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64))) (*.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))) (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 re #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))) (*.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (-.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))))
(/.f64 (fma.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (+.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))))
(/.f64 (fma.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(/.f64 (fma.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))))))
(/.f64 (fma.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(/.f64 (fma.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))))))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (*.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(fma.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1 binary64) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1 binary64)))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64) (*.f64 re #s(literal 2 binary64)))
(fma.f64 re #s(literal 2 binary64) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) re (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)))
(-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64)))
(-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(approx (sqrt (+ (* re re) (* im im))) im)) re)
(+.f64 (+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) re) #s(approx (sqrt (+ (* re re) (* im im))) im))
(+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (*.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(+.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1 binary64)) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1 binary64)))
(+.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
#s(literal 2 binary64)
(/.f64 (-.f64 (*.f64 re re) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64))) (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))
(/.f64 (neg.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (neg.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(/.f64 (neg.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))))))
(/.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 re re (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)))))
(-.f64 (/.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (/.f64 (*.f64 re re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(+.f64 (/.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))))) (/.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))))))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
(*.f64 (pow.f64 re #s(literal 1/4 binary64)) (pow.f64 re #s(literal 1/4 binary64)))
(*.f64 #s(literal 1 binary64) (sqrt.f64 re))
(*.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 (pow.f64 re #s(literal 1/4 binary64)) (pow.f64 re #s(literal 1/4 binary64)))
(*.f64 #s(literal 1 binary64) (sqrt.f64 re))
(*.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)))
#s(literal 1 binary64)
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (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 (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (*.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (*.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (*.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))) (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 re #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))) (*.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))))))
(/.f64 (-.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))) (-.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 3 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (-.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))))
(/.f64 (fma.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (+.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))))
(/.f64 (fma.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(/.f64 (fma.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re)) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (*.f64 (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(/.f64 (fma.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (*.f64 (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))))
(fma.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 1 binary64) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 1 binary64)))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64) (*.f64 re #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (*.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(fma.f64 re #s(literal 2 binary64) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (*.f64 re #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) re (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))
(-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64)))
(-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) re)
(+.f64 (+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) re) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)))
(+.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) (*.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(+.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 1 binary64)) (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 1 binary64)))
(+.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(/.f64 (-.f64 (*.f64 re re) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))) (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))))
(/.f64 (neg.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re))) (neg.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(/.f64 (neg.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (neg.f64 (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 re re (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) (/.f64 (*.f64 re re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(+.f64 (/.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))) (/.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 re (-.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)))))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(*.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
(*.f64 (/.f64 im re) (neg.f64 im))
(*.f64 (neg.f64 im) (/.f64 im re))
(*.f64 im (/.f64 (neg.f64 im) re))
(/.f64 (*.f64 (neg.f64 im) im) (neg.f64 (neg.f64 re)))
(/.f64 (*.f64 (neg.f64 im) im) re)
(/.f64 (*.f64 im im) (neg.f64 re))
(neg.f64 (/.f64 (*.f64 (neg.f64 im) im) (neg.f64 re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(neg.f64 (*.f64 im (/.f64 im re)))
(*.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 im))
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 im))
(*.f64 (fabs.f64 im) (neg.f64 (fabs.f64 im)))
(*.f64 (neg.f64 im) (neg.f64 (neg.f64 im)))
(*.f64 (neg.f64 im) im)
(*.f64 im (neg.f64 im))
(neg.f64 (*.f64 im im))
(neg.f64 im)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))))
(*.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64))) (-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)))
(/.f64 (-.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal -2 binary64) im) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (*.f64 im im) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal -2 binary64) im)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (*.f64 im im)))) (neg.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal -2 binary64) im))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 im #s(literal 2 binary64)) (-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal -2 binary64) im)))
(/.f64 (fma.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 im im) (-.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) im))))
(/.f64 (fma.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 (*.f64 im #s(literal 2 binary64)) (-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64))))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))
(fma.f64 im #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(fma.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 im #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(-.f64 (/.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal -2 binary64) im))))
(-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (neg.f64 im) #s(literal 2 binary64)))
(-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal -2 binary64) im))
(-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (neg.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64))) re))
(-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (neg.f64 re) (+.f64 (/.f64 re im) #s(literal 2 binary64))))
(+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)
(+.f64 (/.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (fma.f64 (*.f64 im #s(literal 2 binary64)) (-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 im #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (*.f64 im #s(literal 2 binary64)) (-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)))))
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64)))
(+.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(+.f64 im (+.f64 im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)))
(/.f64 (-.f64 #s(literal 4 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (-.f64 #s(literal 2 binary64) (/.f64 re im)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 4 binary64))) (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))))
(/.f64 (neg.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (/.f64 re im)) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (+.f64 #s(literal 4 binary64) (-.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (/.f64 re im)) (pow.f64 (/.f64 re im) #s(literal 2 binary64))))
(-.f64 (/.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64))) (/.f64 #s(literal 4 binary64) (-.f64 (/.f64 re im) #s(literal 2 binary64))))
(+.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) #s(literal 1 binary64))
(+.f64 (/.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (/.f64 re im)) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))) (/.f64 #s(literal 8 binary64) (fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (/.f64 re im)) (pow.f64 (/.f64 re im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(+.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (/.f64 re im)))
(+.f64 #s(literal 2 binary64) (/.f64 re im))
(/.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 re im)
(neg.f64 (/.f64 (neg.f64 re) im))
(neg.f64 (/.f64 re (neg.f64 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 (+.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(fma.f64 #s(literal 1 binary64) im (*.f64 #s(literal 1 binary64) im))
(fma.f64 im #s(literal 1 binary64) (*.f64 im #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) im) (*.f64 #s(literal 1 binary64) im))
(+.f64 (*.f64 im #s(literal 1 binary64)) (*.f64 im #s(literal 1 binary64)))
(+.f64 im im)

eval48.0ms (1%)

Memory
25.6MiB live, 114.7MiB allocated; 13ms collecting garbage
Compiler

Compiled 13 004 to 1 758 computations (86.5% saved)

prune15.0ms (0.3%)

Memory
-0.3MiB live, 46.5MiB allocated; 2ms collecting garbage
Pruning

11 alts after pruning (8 fresh and 3 done)

PrunedKeptTotal
New3563359
Fresh156
Picked235
Done000
Total35911370
Accuracy
87.9%
Counts
370 → 11
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶27.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
43.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓6.3%
(*.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))))
✓51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
▶49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
▶48.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
28.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
✓14.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
▶15.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
49.3%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
▶29.1%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Compiler

Compiled 395 to 287 computations (27.3% saved)

series105.0ms (2.1%)

Memory
14.2MiB live, 254.2MiB allocated; 56ms collecting garbage
Counts
35 → 318
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
#s(literal 2 binary64)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
(sqrt.f64 re)
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))
(*.f64 (/.f64 im re) (neg.f64 im))
(/.f64 im re)
(neg.f64 im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(sqrt.f64 #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 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64))
(+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))
(pow.f64 re #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (hypot.f64 im re) #s(literal 3 binary64))
(hypot.f64 im re)
(fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(-.f64 re (hypot.f64 im re))
(pow.f64 (hypot.f64 im re) #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 (* 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) #s(hole binary64 (sqrt re)))
#s(approx re #s(hole binary64 re))
#s(approx (* (/ im re) (neg im)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (* 2 im))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* 2 re)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* re (+ 2 (* re (- (* 3 (/ 1 im)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 9)))))))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (pow im 3)))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* (pow re 2) (+ re (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (pow im 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (* (pow re 2) (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 3))) (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))) (* (pow re 2) (+ (* 1/2 (/ (* (pow re 2) (- 1 (* 1/2 (/ (* (+ (* 2 (pow im 4)) (pow im 4)) (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 6))))) (pow im 3))) (* 1/2 (/ (- (+ (* 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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* 2 re))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* re (+ 2 (* -1/2 (/ re im)))))) (pow im 2))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- re im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* -1/2 (/ re im)))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) im)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow im 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (+ (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 (* 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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 4 re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 4 (pow re 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (/ (pow im 4) (pow re 4)))))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (+ (/ (pow im 4) (pow re 4)) (/ (pow im 6) (pow re 6))))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4))) (* 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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* 2 (pow re 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* (pow re 3) (+ 2 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (pow re 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* 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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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)))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow re 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #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) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))) (pow re 2)))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (+ (* 1/2 (pow im 2)) (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4)))))) re))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (pow im 2)))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* -1 (/ (+ (* 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))) (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2)))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1/2 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* 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 (* -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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* 2 re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 2)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* 1/8 (/ (pow im 4) (pow re 4))) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/16 (/ (pow im 6) (pow re 6))) (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 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 im #s(hole binary64 im))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 4 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (* 2 re))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (* 3 (/ 1 re)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (+ (* 3 (/ 1 re)) (* (pow im 2) (- (/ 1 (pow re 3)) (* 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 9)))))) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (* 2 (pow re 3)))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (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))))) (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (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))))))) (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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* 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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (- (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 4) (pow im 4))) (+ (/ (pow re 2) (pow im 2)) (/ (pow re 4) (pow im 4))))))) (* 1/4 (/ (pow (+ (* 2 (pow re 2)) (pow re 2)) 2) (pow im 4)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #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))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #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))) (* 1/2 (/ (- (pow re 6) (* 1/2 (* (+ (* 2 (pow re 2)) (pow re 2)) (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2)))))) (pow im 6)))))))))
#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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (* 2 (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 2) (pow im 2))) (/ re im)) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 4) (pow im 4))) (/ re im)) (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -1 (/ (+ (* -1 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (* 2 (pow re 3))) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (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)))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (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))) (* 1/2 (/ (- (pow re 6) (* 1/2 (* (+ (* 2 (pow re 2)) (pow re 2)) (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2)))))) (pow im 6))))))))))
#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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -2 (/ (pow re 2) im)) (* -1 re)) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im))) im))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* 1/2 (/ (pow re 2) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* -1 (/ (- (* 1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)) 1)))))
Calls

6 calls:

TimeVariablePointExpression
29.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) im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt re) 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)) (* (/ im re) (neg im)) (/ im re) (neg 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)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (pow re 3) 3 (pow (sqrt (+ (* im im) (* re re))) 3) (sqrt (+ (* im im) (* re re))) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (pow (sqrt (+ (* im im) (* re re))) 2))
15.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) im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt re) 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)) (* (/ im re) (neg im)) (/ im re) (neg 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)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (pow re 3) 3 (pow (sqrt (+ (* im im) (* re re))) 3) (sqrt (+ (* im im) (* re re))) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (pow (sqrt (+ (* im im) (* re re))) 2))
14.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) im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt re) 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)) (* (/ im re) (neg im)) (/ im re) (neg 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)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (pow re 3) 3 (pow (sqrt (+ (* im im) (* re re))) 3) (sqrt (+ (* im im) (* re re))) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (pow (sqrt (+ (* im im) (* re re))) 2))
14.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) im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt re) 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)) (* (/ im re) (neg im)) (/ im re) (neg 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)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (pow re 3) 3 (pow (sqrt (+ (* im im) (* re re))) 3) (sqrt (+ (* im im) (* re re))) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (pow (sqrt (+ (* im im) (* re re))) 2))
6.0ms
re
@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) im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt re) 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)) (* (/ im re) (neg im)) (/ im re) (neg 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)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (pow re 3) 3 (pow (sqrt (+ (* im im) (* re re))) 3) (sqrt (+ (* im im) (* re re))) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (pow (sqrt (+ (* im im) (* re re))) 2))

simplify575.0ms (11.7%)

Memory
-42.8MiB live, 383.3MiB allocated; 808ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0175717771
1568017239
0818914589
Stop Event
1×iter limit
1×node limit
Counts
318 → 318
Calls
Call 1
Inputs
#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) #s(hole binary64 (sqrt re)))
#s(approx re #s(hole binary64 re))
#s(approx (* (/ im re) (neg im)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (* 2 im))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* 2 re)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* re (+ 2 (* re (- (* 3 (/ 1 im)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 9)))))))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (pow im 3)))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* (pow re 2) (+ re (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (pow im 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (* (pow re 2) (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 3))) (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))) (* (pow re 2) (+ (* 1/2 (/ (* (pow re 2) (- 1 (* 1/2 (/ (* (+ (* 2 (pow im 4)) (pow im 4)) (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 6))))) (pow im 3))) (* 1/2 (/ (- (+ (* 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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* 2 re))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* re (+ 2 (* -1/2 (/ re im)))))) (pow im 2))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- re im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* -1/2 (/ re im)))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) im)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow im 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (+ (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 (* 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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 4 re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 4 (pow re 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (/ (pow im 4) (pow re 4)))))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (+ (/ (pow im 4) (pow re 4)) (/ (pow im 6) (pow re 6))))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4))) (* 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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* 2 (pow re 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* (pow re 3) (+ 2 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (pow re 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* 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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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)))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow re 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #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) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))) (pow re 2)))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (+ (* 1/2 (pow im 2)) (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4)))))) re))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (pow im 2)))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* -1 (/ (+ (* 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))) (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2)))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1/2 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* 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 (* -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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* 2 re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 2)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* 1/8 (/ (pow im 4) (pow re 4))) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/16 (/ (pow im 6) (pow re 6))) (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 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 im #s(hole binary64 im))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 4 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (* 2 re))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (* 3 (/ 1 re)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (+ (* 3 (/ 1 re)) (* (pow im 2) (- (/ 1 (pow re 3)) (* 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 9)))))) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (* 2 (pow re 3)))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (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))))) (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (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))))))) (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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* 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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (- (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 4) (pow im 4))) (+ (/ (pow re 2) (pow im 2)) (/ (pow re 4) (pow im 4))))))) (* 1/4 (/ (pow (+ (* 2 (pow re 2)) (pow re 2)) 2) (pow im 4)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #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))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #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))) (* 1/2 (/ (- (pow re 6) (* 1/2 (* (+ (* 2 (pow re 2)) (pow re 2)) (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2)))))) (pow im 6)))))))))
#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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (* 2 (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 2) (pow im 2))) (/ re im)) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 4) (pow im 4))) (/ re im)) (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #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 (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -1 (/ (+ (* -1 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (* 2 (pow re 3))) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (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)))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (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))) (* 1/2 (/ (- (pow re 6) (* 1/2 (* (+ (* 2 (pow re 2)) (pow re 2)) (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2)))))) (pow im 6))))))))))
#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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -2 (/ (pow re 2) im)) (* -1 re)) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im))) im))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* 1/2 (/ (pow re 2) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* -1 (/ (- (* 1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)) 1)))))
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)))) (*.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)))) #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)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (*.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)))) #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)))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) 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)))) #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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#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))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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))) (fma.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 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)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#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)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 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) (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) #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))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (sqrt re) (sqrt.f64 re))
#s(approx re #s(hole binary64 re))
#s(approx re re)
#s(approx (* (/ im re) (neg im)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* (/ im re) (neg im)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (/ im re) (/.f64 im re))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 #s(literal 2 binary64) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(literal 2 binary64))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (+ (/ re im) 2) (-.f64 (/.f64 re im) #s(literal -2 binary64)))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (/ re im) (/.f64 re im))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) re) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (+.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)))) im) (/.f64 #s(literal 3/2 binary64) (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) re) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (+.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)))) im) (/.f64 #s(literal 3/2 binary64) (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal 2 binary64) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 2 binary64) re) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) im) #s(literal -1 binary64) (/.f64 #s(literal 3/2 binary64) (*.f64 im im)))) re (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (* 2 im))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* 2 re)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) im (*.f64 #s(literal 2 binary64) re)) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* re (+ 2 (* re (- (* 3 (/ 1 im)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 9)))))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) im (*.f64 (fma.f64 (-.f64 (/.f64 #s(literal 3 binary64) im) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 im #s(literal 9 binary64)))) re #s(literal 2 binary64)) re)) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (pow im 3)))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (pow.f64 im #s(literal 3 binary64)))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 re re)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/2 binary64) (pow.f64 im #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* (pow re 2) (+ re (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (fma.f64 (fma.f64 (/.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/2 binary64) re) (*.f64 re re) (pow.f64 im #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (fma.f64 (fma.f64 (fma.f64 (*.f64 re (/.f64 (fma.f64 #s(literal 3 binary64) (*.f64 im im) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 im #s(literal 3 binary64)))) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (pow re 3) (pow.f64 re #s(literal 3 binary64)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (pow im 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (pow.f64 im #s(literal 3 binary64)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* 1/2 (/ (* (pow re 2) (+ (* 2 (pow im 4)) (pow im 4))) (pow im 3))) (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 re re)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/2 binary64) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (* (pow re 2) (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 3))) (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))))) (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (*.f64 im im) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))))) (*.f64 re re) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (pow re 2) (+ (* 1/2 (/ (+ (* 2 (pow im 4)) (pow im 4)) (pow im 3))) (* (pow re 2) (+ (* 1/2 (/ (* (pow re 2) (- 1 (* 1/2 (/ (* (+ (* 2 (pow im 4)) (pow im 4)) (- (+ (* 2 (pow im 2)) (pow im 2)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 6))))) (pow im 6))))) (pow im 3))) (* 1/2 (/ (- (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) (/.f64 (fma.f64 #s(literal 3 binary64) (*.f64 im im) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64))))) (pow.f64 im #s(literal 6 binary64)))) #s(literal 1/2 binary64))) (*.f64 re re) (fma.f64 #s(literal 3 binary64) (*.f64 im im) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 im #s(literal 6 binary64)))))) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (pow.f64 im #s(literal 3 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) 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))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) 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 (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) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 im im))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (neg.f64 im) re (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* 2 re))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 im)) re (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* re (+ 2 (* -1/2 (/ re im)))))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 re im) #s(literal 2 binary64)) re (neg.f64 im)) re (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (neg.f64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- re im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (-.f64 re im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* -1/2 (/ re im)))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 re im) #s(literal 1 binary64)) re) im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (-.f64 (*.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 re re)) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re) im))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow im 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 im im))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
#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)))) (*.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)))) #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)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#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)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))) re))
#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))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 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)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#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)) (*.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) 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) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64)) re))
#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) (*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal -2 binary64)) re))
#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))) re) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal -2 binary64)) re))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re re) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (*.f64 re re)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im))) (*.f64 re re)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) (/.f64 re im))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (/ re im) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) re))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 2 binary64))) re))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (/.f64 (pow.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 2 binary64))))) re))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (/.f64 (pow.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 4 re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal 4 binary64) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 re re)) #s(literal 2 binary64) #s(literal 4 binary64)) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (+.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (/.f64 (-.f64 (fma.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64)))) (fma.f64 (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 (-.f64 (fma.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 2 binary64))) #s(literal 4 binary64)) re))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 4 (pow re 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (fma.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 4 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (/ (pow im 4) (pow re 4)))))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (+.f64 (+.f64 (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))))) #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (+ (/ (pow im 4) (pow re 4)) (/ (pow im 6) (pow re 6))))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (-.f64 (+.f64 (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64) (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64)))))) #s(literal 4 binary64)) (fma.f64 (/.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal 3 binary64) (*.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* 2 (pow re 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64)))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* (pow re 3) (+ 2 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal 2 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 2 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (pow re 3)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (pow.f64 re #s(literal 3 binary64)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2)))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64)) re))
#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))) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64)) re))
#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 (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64)) re))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 re re))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (-.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re))) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (-.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re))) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (-.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) #s(literal 1 binary64)) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))) (*.f64 re re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) re))
#s(approx (- re (sqrt (+ (* im im) (* 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)))) re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (/.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* re re)))) (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow re 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 re re))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re 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)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#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)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64))))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/1024 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (pow.f64 re #s(literal 3 binary64))))))
#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))) (*.f64 (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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))) (fma.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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))) (fma.f64 (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 im (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (pow.f64 re #s(literal 3 binary64))))))
#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)) (neg.f64 (/.f64 (*.f64 im im) 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)) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) 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)) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) 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) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) 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) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) 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) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) 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))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (sqrt re) (neg.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 im re) #s(literal -2 binary64)) re) #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (sqrt.f64 #s(literal 1/6 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/6 binary64)) (/.f64 (pow.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (sqrt.f64 #s(literal 1/6 binary64))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) #s(literal -1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/6 binary64)) (/.f64 (pow.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal -1/3 binary64) (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))) (pow re 2)))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (neg.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 re re)) #s(literal 2 binary64) (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (+ (* 1/2 (pow im 2)) (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4)))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (neg.f64 (/.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3 binary64) (*.f64 im im)) (fma.f64 (/.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))))) #s(literal -1/6 binary64)) (fma.f64 (*.f64 #s(literal -1/24 binary64) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal 1/288 binary64) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64))))))) re)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (*.f64 #s(literal 3 binary64) (*.f64 im im))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (pow im 2)))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (/.f64 #s(literal 2 binary64) re) (fma.f64 (*.f64 im im) #s(literal 2 binary64) (fma.f64 im im (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))))) (*.f64 (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) re) (/.f64 #s(literal 1/4 binary64) re)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal 2 binary64) (+.f64 (fma.f64 (*.f64 im im) #s(literal 2 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))) (fma.f64 im im (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64)))))) (fma.f64 (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) re) (/.f64 #s(literal 1/4 binary64) re) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* -1 (/ (+ (* 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))) (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2)))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal 2 binary64) (+.f64 (fma.f64 (*.f64 im im) #s(literal 2 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))) (fma.f64 im im (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64)))))) (fma.f64 (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) re) (/.f64 #s(literal 1/4 binary64) re) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1/2 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal -1/2 binary64)))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (neg.f64 re) (*.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 3 binary64) (*.f64 im im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 re re))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (neg.f64 re) (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 3 binary64) (*.f64 im im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 re re))) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 3 binary64) (*.f64 im im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 re re))) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/2 binary64))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (pow.f64 (neg.f64 re) #s(literal 3 binary64)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow im 2)) (pow im 2)) (pow re 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal 1 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow re 3) (+ 1 (+ (* 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 (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (pow.f64 (neg.f64 re) #s(literal 3 binary64)) (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))))
#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))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (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))) #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 (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (*.f64 re re) #s(literal 3 binary64)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 #s(literal 3/2 binary64) (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 3 binary64)) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 re re))) #s(literal 3 binary64)) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 re re)))) #s(literal 3 binary64)) (*.f64 re re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* 2 re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal 2 binary64) re))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 2)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 #s(literal -1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal -2 binary64))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* 1/8 (/ (pow im 4) (pow re 4))) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 re) (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/16 (/ (pow im 6) (pow re 6))) (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/16 binary64) #s(literal -2 binary64)) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
#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)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))))
#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)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.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)))) #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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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))) #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))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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))) #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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#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)) #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)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #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)) #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 (+ (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) (pow.f64 re #s(literal 3 binary64)))) (*.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) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) 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) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) 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))) 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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re)))
#s(approx im #s(hole binary64 im))
#s(approx im im)
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (neg im) (neg.f64 im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (*.f64 im re) #s(literal 2 binary64) (*.f64 re re)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re)) im (*.f64 re re)) im))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (+ (/ re im) 2) (/.f64 (fma.f64 #s(literal 2 binary64) im re) im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (+ im im) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 5 binary64))) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 re re)) #s(literal 1/2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re))) re))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 5 binary64))) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 re re)) #s(literal 1/2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re))) re))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 4 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)) #s(literal 2 binary64) (*.f64 #s(literal 4 binary64) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 im im) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 5 binary64))) (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 re re)) #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64)))) (*.f64 im im) (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))))) (*.f64 im im) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (* 2 re))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) re) (*.f64 im im) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (* 3 (/ 1 re)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) re (*.f64 (-.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 re #s(literal 9 binary64)))) (*.f64 im im))) (*.f64 im im) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (+ (* 3 (/ 1 re)) (* (pow im 2) (- (/ 1 (pow re 3)) (* 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 9)))))) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) re (*.f64 (-.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 9 binary64)))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 3 binary64) re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 re #s(literal 9 binary64)))) (*.f64 im im))) (*.f64 im im) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64)))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (* 2 (pow re 3)))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/2 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 im im) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) (*.f64 im im) (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* 1/2 (/ (* (pow im 2) (+ (* 2 (pow re 4)) (pow re 4))) (pow re 3))) (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal 3 binary64))) #s(literal 1/2 binary64) (pow.f64 re #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (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))))) (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (*.f64 im im) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (+ (* (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))))))) (pow re 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) (*.f64 im im) (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal 3 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) 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))) #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))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) 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 (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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (*.f64 im im) #s(literal 1/2 binary64) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64)) (*.f64 im im) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/16 binary64) (/.f64 #s(literal 1/8 binary64) (*.f64 re re))) (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 im im) (*.f64 re re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal -1/16 binary64) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (*.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 5/128 binary64) (*.f64 im im)) (pow.f64 re #s(literal 7 binary64))) (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.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)))) #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)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.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)))) #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)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.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)))) #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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#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))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#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))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 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) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#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)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) 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)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (*.f64 (/.f64 re im) (/.f64 re im))) im))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) (*.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal -2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re 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) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) (/.f64 re im)) 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))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (*.f64 (/.f64 re im) (/.f64 re im))) im))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 7 binary64))))) (*.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))))))) im))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 7 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))))))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 re im) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 re im) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 im im))) (*.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 3/2 binary64)))) (pow.f64 im #s(literal 3 binary64))) #s(literal 2 binary64))) #s(literal -2 binary64)) im))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (-.f64 (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (fma.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))) #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (- (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 4) (pow im 4))) (+ (/ (pow re 2) (pow im 2)) (/ (pow re 4) (pow im 4))))))) (* 1/4 (/ (pow (+ (* 2 (pow re 2)) (pow re 2)) 2) (pow im 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (+.f64 (-.f64 (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (fma.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))) #s(literal -2 binary64)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (pow.f64 im #s(literal 3 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2)))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #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))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #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))) (* 1/2 (/ (- (pow re 6) (* 1/2 (* (+ (* 2 (pow re 2)) (pow re 2)) (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2)))))) (pow im 6)))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 im #s(literal 3 binary64))))
#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))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) im))
#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))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64)) im))
#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 (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64)) im))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (* 2 (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (neg.f64 re) im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (*.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal -1/2 binary64)))) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 2) (pow im 2))) (/ re im)) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) im) (/.f64 (*.f64 re re) im) (-.f64 (/.f64 re im) #s(literal 1 binary64))) im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 4) (pow im 4))) (/ re im)) (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/8 binary64) (/.f64 re im)) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))) im))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 1 binary64)) (*.f64 im 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)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#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)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))))
#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))) (neg.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#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))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#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))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 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)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re 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)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 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) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64))))
#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) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im) #s(literal -1 binary64) #s(literal 1 binary64))))
#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))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal -2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 re re) im)) im) #s(literal -1 binary64) #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (neg.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 re (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal -2 binary64) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) im) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) re)) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 3/2 binary64)))) im) #s(literal -2 binary64) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) #s(literal 2 binary64))) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 #s(literal -2 binary64) (pow.f64 im #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (-.f64 (fma.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal -2 binary64) (*.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im))) #s(literal -2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -1 (/ (+ (* -1 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (* 2 (pow re 3))) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (-.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) (neg.f64 (/.f64 (fma.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) im))) (pow.f64 im #s(literal 3 binary64))))) #s(literal -2 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (fma.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (/.f64 #s(literal 1/2 binary64) im) (pow.f64 (/.f64 (neg.f64 re) im) #s(literal 3 binary64))) #s(literal 1 binary64))))
#s(approx (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) #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 (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (+.f64 (fma.f64 (*.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im)) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) im) #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64))) (pow.f64 im #s(literal 3 binary64))))) #s(literal 1 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (pow im 3))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (pow.f64 (neg.f64 im) #s(literal 3 binary64)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (pow im 3) (+ 1 (* 1/2 (/ (+ (* 2 (pow re 2)) (pow re 2)) (pow im 2))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (fma.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (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)))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) #s(hole binary64 (* -1 (* (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))) (* 1/2 (/ (- (pow re 6) (* 1/2 (* (+ (* 2 (pow re 2)) (pow re 2)) (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2)))))) (pow im 6))))))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 3) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) (+.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 3 binary64) im) (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) (pow.f64 im #s(literal 4 binary64)))) (*.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))))) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))))
#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))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64))))
#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 (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -2 (/ (pow re 2) im)) (* -1 re)) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 re re) im) (neg.f64 re)) im) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im))) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 (/.f64 (*.f64 #s(literal -1 binary64) (+.f64 re (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 3 binary64)) im) #s(literal 1/2 binary64) (*.f64 (*.f64 re re) #s(literal 2 binary64))) im))) im) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) im)
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 im) (-.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* 1/2 (/ (pow re 2) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* -1 (/ (- (* 1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) im) #s(literal -1 binary64) re) im)) #s(literal 1 binary64))))

rewrite40.0ms (0.8%)

Memory
4.3MiB live, 51.0MiB allocated; 2ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
043378
072323
0272323
Stop Event
1×iter limit
1×iter limit
1×iter limit
1×unsound
1×iter limit
Counts
35 → 120
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
#s(literal 2 binary64)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
(sqrt.f64 re)
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))
(*.f64 (/.f64 im re) (neg.f64 im))
(/.f64 im re)
(neg.f64 im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(sqrt.f64 #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 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64))
(+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))
(pow.f64 re #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (hypot.f64 im re) #s(literal 3 binary64))
(hypot.f64 im re)
(fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(-.f64 re (hypot.f64 im re))
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64))
Outputs
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(pow.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)))
(*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
(+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
#s(literal 2 binary64)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
(pow.f64 re #s(literal 1/2 binary64))
(sqrt.f64 re)
re
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (neg.f64 im) (/.f64 im re))
(*.f64 (/.f64 im re) (neg.f64 im))
(/.f64 (*.f64 im (neg.f64 im)) re)
(neg.f64 (*.f64 (/.f64 im re) im))
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 im re)
(neg.f64 im)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im))) (-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im)))
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 3 binary64))) (fma.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im)))))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))
(fma.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) im))
(fma.f64 #s(literal 2 binary64) im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im))
(+.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(/.f64 (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
(/.f64 (+.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (/.f64 re im) (/.f64 re im) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(+.f64 #s(literal 2 binary64) (/.f64 re im))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 re im)
(*.f64 #s(literal 2 binary64) im)
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (+.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(+.f64 im im)
(*.f64 (sqrt.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))))
(pow.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 2 binary64))) (sqrt.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(sqrt.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 2 binary64) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 2 binary64))) (neg.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))
(*.f64 (fma.f64 re re (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re (hypot.f64 im re)))) (+.f64 (hypot.f64 im re) re))
(/.f64 (-.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))) (-.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))))
(/.f64 (+.f64 (pow.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 3 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) #s(literal 3 binary64))) (fma.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)) (-.f64 (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (*.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))))))
(fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 3/2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64)))
(fma.f64 (pow.f64 re #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3/2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))
(fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (hypot.f64 im re) (pow.f64 re #s(literal 3 binary64)))
(fma.f64 (hypot.f64 im re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (pow.f64 re #s(literal 3 binary64)))
(fma.f64 (*.f64 re re) re (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))
(fma.f64 re (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))
(+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))
(+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))
(*.f64 (pow.f64 re #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3/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)))
#s(literal 3 binary64)
(*.f64 (pow.f64 (hypot.f64 im re) #s(literal 3/2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (hypot.f64 im re))
(*.f64 (hypot.f64 im re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3/2 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 3 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 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) 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 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (*.f64 (-.f64 re (hypot.f64 im re)) re)) (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 3 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (*.f64 (-.f64 re (hypot.f64 im re)) re) (-.f64 (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (*.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 1 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 1 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(fma.f64 (hypot.f64 im re) (hypot.f64 im re) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(+.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(/.f64 (-.f64 (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (+.f64 (hypot.f64 im re) re))
(/.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (fma.f64 re re (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re (hypot.f64 im re)))))
(-.f64 re (hypot.f64 im re))
(*.f64 (pow.f64 (hypot.f64 im re) #s(literal 1 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 1 binary64)))
(*.f64 (hypot.f64 im re) (hypot.f64 im re))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)))

eval83.0ms (1.7%)

Memory
5.1MiB live, 148.6MiB allocated; 24ms collecting garbage
Compiler

Compiled 28 244 to 3 362 computations (88.1% saved)

prune19.0ms (0.4%)

Memory
5.2MiB live, 51.2MiB allocated; 3ms collecting garbage
Pruning

12 alts after pruning (6 fresh and 6 done)

PrunedKeptTotal
New5584562
Fresh123
Picked235
Done033
Total56112573
Accuracy
87.9%
Counts
573 → 12
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶49.3%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
18.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) #s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))))))
▶16.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
▶49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
▶43.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓6.3%
(*.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))))
✓51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓48.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
▶28.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
✓14.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
✓15.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
✓29.1%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Compiler

Compiled 471 to 309 computations (34.4% saved)

series50.0ms (1%)

Memory
-2.3MiB live, 89.0MiB allocated; 9ms collecting garbage
Counts
39 → 427
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
#s(literal 1/2 binary64)
(sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #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 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
#s(literal 4 binary64)
re
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))
(+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(fma.f64 re re (*.f64 im im))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
(fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(*.f64 #s(literal 3 binary64) im)
#s(literal 3 binary64)
(*.f64 re re)
(*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))
(pow.f64 im #s(literal 3 binary64))
(fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(-.f64 re (hypot.f64 im re))
(hypot.f64 im re)
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64))
Outputs
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ re (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx re #s(hole binary64 re))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (* 2 im))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* 2 re)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* re (+ 2 (* re (- (* 3 (/ 1 im)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 9)))))))))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (+ (* 2 (pow im 3)) (* 3 (* im (pow re 2))))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* 2 re))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* re (+ 2 (* -1/2 (/ re im)))))) (pow im 2))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- re im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* -1/2 (/ re im)))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) 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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow im 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (sqrt re)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/128 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* re (+ 4 (/ (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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 4 re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 4 (pow re 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (/ (pow im 4) (pow re 4)))))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (+ (/ (pow im 4) (pow re 4)) (/ (pow im 6) (pow re 6))))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4))) (* 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 (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* 3 (* im (pow re 2)))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ (pow im 3) (pow re 2))) (* 3 im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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)))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow re 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/32 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/256 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))) (pow re 2)))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (+ (* 1/2 (pow im 2)) (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4)))))) re))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (pow im 2)))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* -1 (/ (+ (* 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))) (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2)))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* 2 re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 2)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* 1/8 (/ (pow im 4) (pow re 4))) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/16 (/ (pow im 6) (pow re 6))) (+ 2 (+ (* -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)))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* (pow im 2) (+ (* -5/128 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/128 (sqrt (/ 1 (pow re 7)))) (* 21/1024 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im #s(hole binary64 im))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 4 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (* 2 re))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (* 3 (/ 1 re)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (+ (* 3 (/ 1 re)) (* (pow im 2) (- (/ 1 (pow re 3)) (* 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 9)))))) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* im (+ (* 2 (pow im 2)) (* 3 (pow re 2))))))
#s(approx (* 3 im) #s(hole binary64 (* 3 im)))
#s(approx (* (pow im 3) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (pow im 3) #s(hole binary64 (pow im 3)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* 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 (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (- (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 4) (pow im 4))) (+ (/ (pow re 2) (pow im 2)) (/ (pow re 4) (pow im 4))))))) (* 1/4 (/ (pow (+ (* 2 (pow re 2)) (pow re 2)) 2) (pow im 4)))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* (pow im 3) (+ 2 (* 3 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (* 2 (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 2) (pow im 2))) (/ re im)) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 4) (pow im 4))) (/ re im)) (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (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 (* 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))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -1 (/ (+ (* -1 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (* 2 (pow re 3))) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* -1 (* (pow im 3) (- (* -3 (/ (pow re 2) (pow im 2))) 2)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -2 (/ (pow re 2) im)) (* -1 re)) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im))) im))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* 1/2 (/ (pow re 2) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* -1 (/ (- (* 1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)) 1)))))
#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))))))))))
Calls

6 calls:

TimeVariablePointExpression
8.0ms
im
@inf
((* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt 2) 2 (sqrt (+ (sqrt (+ (* re re) (* im im))) 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)) (+ (* 4 re) (/ (* im im) re)) 4 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))) (+ (* re re) (* im im)) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (* 3 im) 3 (* re re) (* (pow im 3) 2) (pow im 3) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (pow (sqrt (+ (* im im) (* re re))) 2))
6.0ms
re
@-inf
((* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt 2) 2 (sqrt (+ (sqrt (+ (* re re) (* im im))) 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)) (+ (* 4 re) (/ (* im im) re)) 4 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))) (+ (* re re) (* im im)) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (* 3 im) 3 (* re re) (* (pow im 3) 2) (pow im 3) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (pow (sqrt (+ (* im im) (* re re))) 2))
6.0ms
re
@0
((* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt 2) 2 (sqrt (+ (sqrt (+ (* re re) (* im im))) 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)) (+ (* 4 re) (/ (* im im) re)) 4 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))) (+ (* re re) (* im im)) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (* 3 im) 3 (* re re) (* (pow im 3) 2) (pow im 3) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (pow (sqrt (+ (* im im) (* re re))) 2))
6.0ms
im
@-inf
((* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt 2) 2 (sqrt (+ (sqrt (+ (* re re) (* im im))) 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)) (+ (* 4 re) (/ (* im im) re)) 4 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))) (+ (* re re) (* im im)) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (* 3 im) 3 (* re re) (* (pow im 3) 2) (pow im 3) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (pow (sqrt (+ (* im im) (* re re))) 2))
5.0ms
im
@0
((* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) im (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt 2) 2 (sqrt (+ (sqrt (+ (* re re) (* im im))) 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)) (+ (* 4 re) (/ (* im im) re)) 4 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))) (+ (* re re) (* im im)) (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (* 3 im) 3 (* re re) (* (pow im 3) 2) (pow im 3) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (- re (sqrt (+ (* im im) (* re re)))) (sqrt (+ (* im im) (* re re))) (pow (sqrt (+ (* im im) (* re re))) 2))

simplify310.0ms (6.3%)

Memory
20.6MiB live, 337.7MiB allocated; 51ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0203622343
1643321758
0807518410
Stop Event
1×iter limit
1×node limit
Counts
427 → 427
Calls
Call 1
Inputs
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ re (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx re #s(hole binary64 re))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (* 2 im))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* 2 re)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* re (+ 2 (* re (- (* 3 (/ 1 im)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 9)))))))))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (+ (* 2 (pow im 3)) (* 3 (* im (pow re 2))))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* 2 re))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* re (+ 2 (* -1/2 (/ re im)))))) (pow im 2))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- re im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* -1/2 (/ re im)))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) 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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow im 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (sqrt re)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/128 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* re (+ 4 (/ (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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 4 re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 4 (pow re 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (/ (pow im 4) (pow re 4)))))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (+ (/ (pow im 4) (pow re 4)) (/ (pow im 6) (pow re 6))))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4))) (* 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 (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* 3 (* im (pow re 2)))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ (pow im 3) (pow re 2))) (* 3 im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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)))) re)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow re 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/32 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/256 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))) (pow re 2)))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (+ (* 1/2 (pow im 2)) (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4)))))) re))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (pow im 2)))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* -1 (/ (+ (* 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))) (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2)))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* 2 re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 2)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* 1/8 (/ (pow im 4) (pow re 4))) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/16 (/ (pow im 6) (pow re 6))) (+ 2 (+ (* -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)))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* (pow im 2) (+ (* -5/128 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/128 (sqrt (/ 1 (pow re 7)))) (* 21/1024 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im #s(hole binary64 im))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 4 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (* 2 re))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (* 3 (/ 1 re)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (+ (* 3 (/ 1 re)) (* (pow im 2) (- (/ 1 (pow re 3)) (* 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 9)))))) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* im (+ (* 2 (pow im 2)) (* 3 (pow re 2))))))
#s(approx (* 3 im) #s(hole binary64 (* 3 im)))
#s(approx (* (pow im 3) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (pow im 3) #s(hole binary64 (pow im 3)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* 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 (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (+ (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 (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 (* 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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (- (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 4) (pow im 4))) (+ (/ (pow re 2) (pow im 2)) (/ (pow re 4) (pow im 4))))))) (* 1/4 (/ (pow (+ (* 2 (pow re 2)) (pow re 2)) 2) (pow im 4)))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* (pow im 3) (+ 2 (* 3 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (* 2 (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 2) (pow im 2))) (/ re im)) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 4) (pow im 4))) (/ re im)) (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#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 (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (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 (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 (* 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))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -1 (/ (+ (* -1 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (* 2 (pow re 3))) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* -1 (* (pow im 3) (- (* -3 (/ (pow re 2) (pow im 2))) 2)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -2 (/ (pow re 2) im)) (* -1 re)) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im))) im))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* 1/2 (/ (pow re 2) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* -1 (/ (- (* 1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)) 1)))))
#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))))))))))
Outputs
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ re (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 2)))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) #s(literal 2 binary64))) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) re)) re)))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (-.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 4 binary64))) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) #s(literal 2 binary64))) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 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) (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) #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))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 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)) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) re (sqrt.f64 im)))
#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)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 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 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) re (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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)))) #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 (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (*.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)))) #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 (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) 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)))) #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 (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/32 binary64))) re)) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#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 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))))) re)) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) 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) (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) re))
#s(approx re #s(hole binary64 re))
#s(approx re re)
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) im)
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) 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 (+ (* im im) (* re re))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) 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 (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) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (+.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)))) im) (/.f64 #s(literal 3/2 binary64) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (+.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)))) im) (/.f64 #s(literal 3/2 binary64) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 5/4 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))) re (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal 2 binary64) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 2 binary64) re) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)) im) #s(literal -1 binary64) (/.f64 #s(literal 3/2 binary64) (*.f64 im im)))) re (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)))) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) im)))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (* 2 im))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) re) re (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* 2 re)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) im (*.f64 #s(literal 2 binary64) re)) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 2 (pow im 3)) (* (pow re 2) (+ im (+ (* 2 im) (* re (+ 2 (* re (- (* 3 (/ 1 im)) (* 1/4 (/ (pow (+ (* 2 (pow im 4)) (pow im 4)) 2) (pow im 9)))))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) im (*.f64 (fma.f64 (-.f64 (/.f64 #s(literal 3 binary64) im) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 im #s(literal 9 binary64)))) re #s(literal 2 binary64)) re)) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (+ (* 2 (pow im 3)) (* 3 (* im (pow re 2))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) re) re (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* re re) (*.f64 re re))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 im im))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* -1 (* im re)) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (neg.f64 im) re (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* 2 re))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 im)) re (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* re (+ (* -1 im) (* re (+ 2 (* -1/2 (/ re im)))))) (pow im 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 re im) #s(literal 2 binary64)) re (neg.f64 im)) re (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (neg.f64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- re im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (-.f64 re im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* -1/2 (/ re im)))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 re im) #s(literal 1 binary64)) re) im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (- (* re (+ 1 (* re (- (* 1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))) im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (-.f64 (*.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 re re)) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re) im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) 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))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) 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 (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) (pow.f64 im #s(literal 3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow im 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 im im))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (sqrt re)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) re))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) re))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (sqrt (/ 1 re)) (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/128 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5)))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/128 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) re))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) 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) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64)) re))
#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) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 2 binary64)) re))
#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))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 2 binary64)) re))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))) re))
#s(approx (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt 2) (sqrt (+ (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 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#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)) (*.f64 (sqrt.f64 re) (sqrt.f64 #s(literal 2 binary64))))
#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)) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (sqrt.f64 #s(literal 2 binary64)))) re))
#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)) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (sqrt.f64 #s(literal 2 binary64))))) re))
#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 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (pow.f64 im #s(literal 4 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (sqrt.f64 #s(literal 2 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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)))) #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 (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))) re))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))))) re))
#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 (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#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 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#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) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 4 binary64)) re))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (* 4 re) (/ (* im im) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) re)
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64)) re))
#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 (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64)) re))
#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 (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64)) re))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 2 binary64))) re))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (/.f64 (pow.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 2 binary64))))) re))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (/.f64 (pow.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) #s(literal 2 binary64)) #s(literal 2 binary64)) (fma.f64 (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 9 binary64))))) (-.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* 4 re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal 4 binary64) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 re re)) #s(literal 2 binary64) #s(literal 4 binary64)) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 4 binary64)) re))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (+.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 (/.f64 (-.f64 (*.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)) (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal -1/8 binary64) (fma.f64 (*.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 (-.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64) (*.f64 #s(literal -2 binary64) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)))) (fma.f64 im im (*.f64 #s(literal -1/2 binary64) (*.f64 im im))))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 2 binary64))) #s(literal 4 binary64)) re))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* 4 (pow re 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (fma.f64 #s(literal 3 binary64) (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 4 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (/ (pow im 4) (pow re 4)))))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (+.f64 (+.f64 (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))))) #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow re 3) (- (+ 4 (+ (* 2 (/ (pow im 2) (pow re 2))) (+ (* 2 (/ (pow im 4) (pow re 4))) (+ (/ (pow im 2) (pow re 2)) (+ (/ (pow im 4) (pow re 4)) (/ (pow im 6) (pow re 6))))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 4))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (-.f64 (+.f64 (fma.f64 (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64) (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64)))))) #s(literal 4 binary64)) (fma.f64 (/.f64 (*.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal 3 binary64) (*.f64 im im))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 re #s(literal 4 binary64))))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* 3 (* im (pow re 2)))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (*.f64 (*.f64 (*.f64 re re) im) #s(literal 3 binary64)))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ (pow im 3) (pow re 2))) (* 3 im)))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (*.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 3 binary64)) re) (/.f64 #s(literal 2 binary64) re) (*.f64 #s(literal 3 binary64) im)) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 re re))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (- (+ 1 (/ (pow im 2) (pow re 2))) (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (-.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re))) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (-.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re))) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (-.f64 (+.f64 (fma.f64 (/.f64 im re) (/.f64 im re) (/.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64)))) #s(literal 1 binary64)) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))))) (*.f64 re re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (/ (- (* 1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) re))
#s(approx (- re (sqrt (+ (* im im) (* 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)))) re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (/.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* re re)))) (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) 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))) (*.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64)) re))
#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))) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64)) re))
#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 (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64)) re))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (pow re 2)))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 re re))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/16 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/32 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/32 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/256 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 9/256 binary64))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))))) #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 9/128 binary64))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) 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) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) 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) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) 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) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) 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))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 #s(literal -1/8 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (*.f64 #s(literal 1/1024 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (pow.f64 re #s(literal 3 binary64))))))
#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)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)) (fma.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.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) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#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 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.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) (pow.f64 re #s(literal 3 binary64))))))) (pow.f64 re #s(literal 3 binary64))))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#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 (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (*.f64 #s(literal 1/1024 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (pow.f64 re #s(literal 3 binary64))))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))) (pow.f64 re #s(literal 3 binary64))))))
#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 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 re) (fma.f64 (*.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (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)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (*.f64 im im)) 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) 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) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (+ (* 4 re) (/ (* im im) re)) (*.f64 (neg.f64 re) (-.f64 (neg.f64 (*.f64 (/.f64 im re) (/.f64 im re))) #s(literal 4 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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 (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))))
#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 (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 1 binary64))))
#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 (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (sqrt.f64 #s(literal 1/6 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/6 binary64)) (/.f64 (pow.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* (sqrt (/ (+ (* 2 (pow im 2)) (pow im 2)) re)) (* (sqrt -1) (* (sqrt 1/6) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (sqrt.f64 #s(literal 1/6 binary64))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) #s(literal -1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64)))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 1/6 binary64)) (sqrt.f64 #s(literal 2 binary64))) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/6 binary64)) (/.f64 (pow.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/6 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (*.f64 (sqrt.f64 (/.f64 re (*.f64 #s(literal 3 binary64) (*.f64 im im)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))))) (sqrt.f64 #s(literal 1/6 binary64))))) (pow.f64 re #s(literal 3 binary64))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1/3 (/ (+ (* 2 (pow im 2)) (pow im 2)) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal -1/3 binary64) (/.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))) (pow re 2)))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) re) (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3 binary64) (*.f64 im im)))) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))) (+ (* 1/288 (* (pow im 6) (+ (* 2 (pow im 2)) (pow im 2)))) (* 1/3 (* (+ (* 1/2 (pow im 2)) (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 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/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)))) (* 1/18 (* (+ (* 1/2 (pow im 2)) (pow im 2)) (+ (* 2 (pow im 2)) (pow im 2))))))))) (pow re 4)))))) re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (neg.f64 (/.f64 (fma.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3 binary64) (*.f64 im im)) (fma.f64 (/.f64 (-.f64 (*.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))))) #s(literal -1/6 binary64)) (fma.f64 (*.f64 #s(literal -1/24 binary64) (pow.f64 im #s(literal 4 binary64))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal 1/288 binary64) (pow.f64 im #s(literal 6 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im)))))) (pow.f64 re #s(literal 6 binary64))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 re re)) (/.f64 (-.f64 (*.f64 #s(literal 1/6 binary64) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))))) (fma.f64 (*.f64 #s(literal 1/3 binary64) (*.f64 #s(literal 3/2 binary64) (*.f64 im im))) (fma.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) (*.f64 #s(literal -1/18 binary64) (*.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (*.f64 (*.f64 #s(literal -1/144 binary64) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 3 binary64) (*.f64 im im))))) (pow.f64 re #s(literal 4 binary64))))))) re)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (+ (* 2 (pow im 2)) (pow im 2))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (*.f64 #s(literal 3 binary64) (*.f64 im im))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (pow im 2)))) (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) re) (/.f64 #s(literal 2 binary64) re) (fma.f64 (*.f64 im im) #s(literal 2 binary64) (fma.f64 im im (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))))) (*.f64 (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) re) (/.f64 #s(literal 1/4 binary64) re)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal 2 binary64) (+.f64 (fma.f64 (*.f64 im im) #s(literal 2 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))) (fma.f64 im im (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64)))))) (fma.f64 (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) re) (/.f64 #s(literal 1/4 binary64) re) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* re (- (+ (* -1 (/ (+ (* 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))) (+ (* 2 (/ (pow im 4) (pow re 2))) (+ (* 2 (pow im 2)) (+ (/ (pow im 4) (pow re 2)) (+ (/ (pow im 6) (pow re 4)) (pow im 2)))))) (+ (* 1/4 (/ (pow (+ (* 2 (pow im 2)) (pow im 2)) 2) (pow re 2))) (* 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 (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (fma.f64 (pow.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (-.f64 (pow.f64 im #s(literal 6 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)))))))) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (-.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal 2 binary64) (+.f64 (fma.f64 (*.f64 im im) #s(literal 2 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))) (fma.f64 im im (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64)))))) (fma.f64 (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64)) re) (/.f64 #s(literal 1/4 binary64) re) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 1/2 binary64)) (fma.f64 #s(literal 3 binary64) (pow.f64 im #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (*.f64 im im)) #s(literal 2 binary64))))) (pow.f64 re #s(literal 4 binary64))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* 3 (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (*.f64 re re) #s(literal 3 binary64)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 #s(literal 3/2 binary64) (*.f64 (/.f64 im re) (/.f64 im re)) #s(literal 3 binary64)) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 re re))) #s(literal 3 binary64)) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow re 2) (+ 3 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (+ (* 1/2 (/ (pow im 2) (pow re 2))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 #s(literal 3/2 binary64) (*.f64 im im)) (*.f64 re re)))) #s(literal 3 binary64)) (*.f64 re re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* 2 re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 #s(literal 2 binary64) re))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 2)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 re) (-.f64 (*.f64 (/.f64 #s(literal -1/2 binary64) re) (/.f64 (*.f64 im im) re)) #s(literal 2 binary64))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* 1/8 (/ (pow im 4) (pow re 4))) (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 re) (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 2 binary64)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* re (- (* -1/16 (/ (pow im 6) (pow re 6))) (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 re) (-.f64 (/.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))))
#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))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal -1/8 binary64) (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))) #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 (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (/.f64 (*.f64 im im) re) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* (pow im 2) (+ (* -5/128 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal -5/128 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (sqrt re) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/128 (sqrt (/ 1 (pow re 7)))) (* 21/1024 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 21/1024 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 11 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))) #s(literal -5/128 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (sqrt.f64 re)))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal -5/64 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 21/512 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 11 binary64)))) (*.f64 #s(literal -5/64 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 7 binary64)))))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (+ (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) (pow.f64 re #s(literal 3 binary64)))) (*.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) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) 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) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) 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))) 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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re)))
#s(approx im #s(hole binary64 im))
#s(approx im im)
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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 (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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)) (fma.f64 (/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) (sqrt.f64 #s(literal 2 binary64)))))
#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)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) (sqrt.f64 #s(literal 2 binary64)))))
#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 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) (sqrt.f64 #s(literal 2 binary64)))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.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)))) #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 (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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))) #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 (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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))) #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) (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 re re)))) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64)))) #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)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #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)) #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) (+ (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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (+ (* 4 re) (/ (* im im) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* im im) (*.f64 im im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) 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 (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) 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 (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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/4 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/4 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 5 binary64))) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 re re)) #s(literal 1/2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re))) re))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* 1/2 (* (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (sqrt (/ 1 re)))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* (pow im 2) (+ (* 1/2 (* (sqrt (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))) (* 1/2 (* (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (+ (* 1/2 (/ (* (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (- (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (+ (* 1/4 (/ (pow (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) 2) (* re (pow (sqrt 2) 2)))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* re (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))) (pow re 2))))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 5 binary64))) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 re re)) #s(literal 1/2 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (+.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) re) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re))) re))))) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 2 (* (pow im 2) (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)))) (* 4 re))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)) #s(literal 2 binary64) (*.f64 #s(literal 4 binary64) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2))))))) (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 im im) (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* 2 (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re))) (* (pow im 2) (+ (* 2 (* (pow im 2) (- (+ (* 1/8 (/ 1 (pow re 5))) (* 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 5)))) (+ (* 1/8 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 4))) (* 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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (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 5))) (+ (* 1/4 (/ 1 (pow re 3))) (* 1/2 (/ (- (* 1/2 (/ (+ (* 2 (pow re 4)) (pow re 4)) (pow re 5))) (/ 1 re)) (pow re 2)))))))))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (fma.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (-.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 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)))) #s(literal 1/2 binary64))) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 5 binary64))) (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))) (*.f64 re re)) #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64)))) (*.f64 im im) (-.f64 (*.f64 (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/2 binary64)) (fma.f64 (/.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) (*.f64 re re)) #s(literal 1/2 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 re #s(literal 3 binary64))))))) (*.f64 im im) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)))) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (* 2 re))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) re) (*.f64 im im) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (* 3 (/ 1 re)) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) re (*.f64 (-.f64 (/.f64 #s(literal 3 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 re #s(literal 9 binary64)))) (*.f64 im im))) (*.f64 im im) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (+ (* 4 (pow re 3)) (* (pow im 2) (+ re (+ (* 2 re) (* (pow im 2) (- (+ (* 3 (/ 1 re)) (* (pow im 2) (- (/ 1 (pow re 3)) (* 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 9)))))) (* 1/4 (/ (pow (+ (* 2 (pow re 4)) (pow re 4)) 2) (pow re 9)))))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (fma.f64 #s(literal 3 binary64) re (*.f64 (-.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) (/.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64)) (pow.f64 re #s(literal 6 binary64))))) (pow.f64 re #s(literal 9 binary64)))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 3 binary64) re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64))) #s(literal 2 binary64))) (pow.f64 re #s(literal 9 binary64)))) (*.f64 im im))) (*.f64 im im) (*.f64 #s(literal 4 binary64) (pow.f64 re #s(literal 3 binary64)))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* im (+ (* 2 (pow im 2)) (* 3 (pow re 2))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (*.f64 (fma.f64 (*.f64 re re) #s(literal 3 binary64) (*.f64 (*.f64 im im) #s(literal 2 binary64))) im))
#s(approx (* 3 im) #s(hole binary64 (* 3 im)))
#s(approx (* 3 im) (*.f64 #s(literal 3 binary64) im))
#s(approx (* (pow im 3) 2) #s(hole binary64 (* 2 (pow im 3))))
#s(approx (* (pow im 3) 2) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
#s(approx (pow im 3) #s(hole binary64 (pow im 3)))
#s(approx (pow im 3) (pow.f64 im #s(literal 3 binary64)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* 1/2 (pow im 2)) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (*.f64 im im) #s(literal 1/2 binary64) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (+ (* (pow im 2) (+ 1/2 (* 1/8 (/ (pow im 2) (pow re 2))))) (pow re 2))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64)) (*.f64 im im) (*.f64 re re)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #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 (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/16 binary64) (/.f64 #s(literal 1/8 binary64) (*.f64 re re))) (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 im im) (*.f64 re re)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal -1/16 binary64) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* 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 (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (*.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 5/128 binary64) (*.f64 im im)) (pow.f64 re #s(literal 7 binary64))) (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) 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))) #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))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) 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 (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) (pow.f64 re #s(literal 3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (/.f64 re #s(literal 2 binary64)) (/.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))))) im))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (/.f64 re #s(literal 2 binary64)) (/.f64 re (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (*.f64 (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (*.f64 (/.f64 re im) (/.f64 re im))) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) (*.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re 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) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) (/.f64 re im)) 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))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* (sqrt 2) (sqrt (+ (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 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 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) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#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)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) re) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) im))
#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)) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) re (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 re re)) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) im))
#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 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 re re) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) re (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 re re)) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.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)))) #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 (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.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)))) #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 (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#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 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 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) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (*.f64 (/.f64 re im) (/.f64 re im))) im))
#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) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) (*.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal 2 binary64)) im))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (* 4 re) (/ (* im im) re)) (*.f64 (fma.f64 (/.f64 re (*.f64 im im)) #s(literal 4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) im))
#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 (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64)) im))
#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 (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64)) im))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 7 binary64))))) (*.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 7 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal 1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))))))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 re im) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (+.f64 (fma.f64 #s(literal 2 binary64) (+.f64 (/.f64 re im) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 im im))) (*.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 3/2 binary64)))) (pow.f64 im #s(literal 3 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) im))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (fma.f64 (/.f64 #s(literal 3 binary64) im) (/.f64 (*.f64 re re) im) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (fma.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 2 binary64) (*.f64 (/.f64 re im) (/.f64 re im)))) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* (pow im 3) (- (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (+ (* 2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 4) (pow im 4))) (+ (/ (pow re 2) (pow im 2)) (/ (pow re 4) (pow im 4))))))) (* 1/4 (/ (pow (+ (* 2 (pow re 2)) (pow re 2)) 2) (pow im 4)))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 (+.f64 (+.f64 (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (fma.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 2 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 2 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))))))) #s(literal 2 binary64)) (*.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)) (pow.f64 im #s(literal 4 binary64))))) (pow.f64 im #s(literal 3 binary64))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* (pow im 3) (+ 2 (* 3 (/ (pow re 2) (pow im 2)))))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (*.f64 (fma.f64 (/.f64 #s(literal 3 binary64) im) (/.f64 (*.f64 re re) im) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ re im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (* 2 (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (/.f64 (neg.f64 re) im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (+ (* -1 (/ re im)) (+ (* -1/2 (/ (pow re 3) (pow im 3))) (* 2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) (fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 re re) im) (*.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal -1/2 binary64)))) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* -1/2 (/ (pow re 2) (pow im 2))) (/ re im)) 1))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (fma.f64 (/.f64 #s(literal -1/2 binary64) im) (/.f64 (*.f64 re re) im) (-.f64 (/.f64 re im) #s(literal 1 binary64))) im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* im (- (+ (* 1/8 (/ (pow re 4) (pow im 4))) (/ re im)) (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (-.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal 1/8 binary64) (/.f64 re im)) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))) 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))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64)) im))
#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))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64)) im))
#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 (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64)) im))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (pow.f64 im #s(literal 5 binary64))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im) (*.f64 (/.f64 (sqrt.f64 im) #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64)))))) (pow.f64 im #s(literal 3 binary64)))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (pow.f64 im #s(literal 5 binary64))))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im) (*.f64 (/.f64 (sqrt.f64 im) #s(literal 2 binary64)) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64)))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 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) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64))))
#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) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im) #s(literal -1 binary64) #s(literal 1 binary64))))
#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))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (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) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/2 (* (sqrt 2) (sqrt (+ (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 (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (+ (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) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* (sqrt 2) (sqrt (+ (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 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)))))))
#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)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 im))))
#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)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))))))
#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)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64)))) (*.f64 re re)) (sqrt.f64 #s(literal -1 binary64))) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))))))
#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 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) 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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))
#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 (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64))))))
#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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)))))))
#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 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (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)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#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) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 #s(literal -1/4 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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 (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))))
#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 (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64))))
#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 (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) #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 (* 1/2 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal -1/4 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (neg.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* 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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 5 binary64))))) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) #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 (sqrt (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 re re) im) #s(literal -1/4 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal -1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal -1 binary64))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -2 im)))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 #s(literal -2 binary64) im))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) im) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) re)) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) #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 (/ (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (neg.f64 re) (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 3/2 binary64)))) im) #s(literal -2 binary64) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) #s(literal 2 binary64))) im))) im) #s(literal -1 binary64) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -2 (pow im 3))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (*.f64 #s(literal -2 binary64) (pow.f64 im #s(literal 3 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (neg.f64 (*.f64 (fma.f64 (/.f64 #s(literal 3 binary64) im) (/.f64 (*.f64 re re) im) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -2 (/ (pow re 3) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (neg.f64 (*.f64 (+.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64)) (*.f64 (/.f64 #s(literal 3 binary64) im) (/.f64 (*.f64 re re) im))) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64)))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) #s(hole binary64 (* -1 (* (pow im 3) (+ 2 (+ (* -1 (/ (+ (* -1 (/ (- (+ (* 2 (pow re 4)) (pow re 4)) (* 1/4 (pow (+ (* 2 (pow re 2)) (pow re 2)) 2))) im)) (* 2 (pow re 3))) (pow im 3))) (+ (* 2 (/ (pow re 2) (pow im 2))) (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (neg.f64 (*.f64 (+.f64 (fma.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 3 binary64) (neg.f64 (/.f64 (fma.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 3 binary64) (pow.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1/4 binary64) (pow.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) #s(literal 2 binary64)))) im))) (pow.f64 im #s(literal 3 binary64))))) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64)))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) #s(hole binary64 (* -1 (* (pow im 3) (- (* -3 (/ (pow re 2) (pow im 2))) 2)))))
#s(approx (+ (* (* 3 im) (* re re)) (* (pow im 3) 2)) (neg.f64 (*.f64 (-.f64 (*.f64 (/.f64 #s(literal -3 binary64) im) (/.f64 (*.f64 re re) im)) #s(literal 2 binary64)) (pow.f64 im #s(literal 3 binary64)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (/ re im)))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -2 (/ (pow re 2) im)) (* -1 re)) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (*.f64 re re) im) (neg.f64 re)) im) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1 (/ (+ (* -1 re) (* -1 (/ (+ (* 1/2 (/ (pow re 3) im)) (* 2 (pow re 2))) im))) im))))))
#s(approx (+ (* re (- re (sqrt (+ (* im im) (* re re))))) (pow (sqrt (+ (* im im) (* re re))) 2)) (*.f64 (fma.f64 (/.f64 (*.f64 #s(literal -1 binary64) (+.f64 re (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 3 binary64)) im) #s(literal 1/2 binary64) (*.f64 (*.f64 re re) #s(literal 2 binary64))) im))) im) #s(literal -1 binary64) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 im))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) im)
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 im) (-.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* 1/2 (/ (pow re 2) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ re (* -1 (/ (- (* 1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)) 1)))))
#s(approx (- re (sqrt (+ (* im im) (* re re)))) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) im) (/.f64 (pow.f64 re #s(literal 4 binary64)) im) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) im) #s(literal -1 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 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))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))))
#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))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) #s(literal 1 binary64))))
#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 (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal 1/2 binary64) im) (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))))) #s(literal 1 binary64))))

rewrite112.0ms (2.3%)

Memory
9.9MiB live, 107.8MiB allocated; 15ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
051465
087390
1298332
02078332
Stop Event
1×iter limit
1×iter limit
1×node limit
1×iter limit
Counts
39 → 658
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
#s(literal 1/2 binary64)
(sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #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 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
#s(literal 4 binary64)
re
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))
(+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)
(sqrt.f64 (fma.f64 re re (*.f64 im im)))
(fma.f64 re re (*.f64 im im))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
(fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(*.f64 #s(literal 3 binary64) im)
#s(literal 3 binary64)
(*.f64 re re)
(*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))
(pow.f64 im #s(literal 3 binary64))
(fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(-.f64 re (hypot.f64 im re))
(hypot.f64 im re)
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64))
Outputs
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 #s(literal 0 binary64)) (sqrt.f64 #s(literal 0 binary64)))
(/.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 0 binary64))))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
im
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 #s(literal 0 binary64)) (sqrt.f64 #s(literal 0 binary64)))
(/.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 0 binary64))))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 #s(literal 0 binary64)) (sqrt.f64 #s(literal 0 binary64)))
(/.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 0 binary64))))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.f64 (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 1/4 binary64)) (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
(exp.f64 (*.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(*.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 2 binary64)) (*.f64 #s(literal 16 binary64) (*.f64 re re))) (-.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))
(/.f64 (neg.f64 (-.f64 (*.f64 #s(literal 16 binary64) (*.f64 re re)) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re))))
(/.f64 (neg.f64 (fma.f64 #s(literal 64 binary64) (pow.f64 re #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(literal 16 binary64) (*.f64 re re) (*.f64 (/.f64 (*.f64 im im) re) (-.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re))))))
(/.f64 (-.f64 (*.f64 #s(literal 16 binary64) (*.f64 re re)) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re)))
(/.f64 (fma.f64 #s(literal 64 binary64) (pow.f64 re #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64))) (+.f64 (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 16 binary64) (*.f64 re re)) (*.f64 (*.f64 (*.f64 #s(literal 4 binary64) re) im) (/.f64 im re)))))
(/.f64 (fma.f64 #s(literal 64 binary64) (pow.f64 re #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64))) (fma.f64 #s(literal 16 binary64) (*.f64 re re) (*.f64 (/.f64 (*.f64 im im) re) (-.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))))
(fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re))
(fma.f64 (neg.f64 im) (/.f64 (neg.f64 im) re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
(fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 re #s(literal 4 binary64) (/.f64 (*.f64 im im) re))
(-.f64 (/.f64 (*.f64 #s(literal 16 binary64) (*.f64 re re)) (-.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re))) (/.f64 (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re))))
(-.f64 (*.f64 #s(literal 4 binary64) re) (*.f64 (neg.f64 im) (/.f64 im re)))
(-.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal -4 binary64) re))
(-.f64 (/.f64 (*.f64 im im) re) (*.f64 (neg.f64 re) #s(literal 4 binary64)))
(+.f64 (/.f64 (*.f64 #s(literal 64 binary64) (pow.f64 re #s(literal 3 binary64))) (fma.f64 #s(literal 16 binary64) (*.f64 re re) (*.f64 (/.f64 (*.f64 im im) re) (-.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re))))) (/.f64 (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64)) (fma.f64 #s(literal 16 binary64) (*.f64 re re) (*.f64 (/.f64 (*.f64 im im) re) (-.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re))))))
(+.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re))
(+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re))
#s(literal 4 binary64)
re
(*.f64 (/.f64 im re) im)
(*.f64 (neg.f64 im) (/.f64 (neg.f64 im) re))
(*.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) re))
(*.f64 im (/.f64 im re))
(/.f64 (*.f64 (neg.f64 im) im) (neg.f64 re))
(/.f64 (*.f64 im im) (neg.f64 (neg.f64 re)))
(/.f64 (*.f64 im im) re)
(neg.f64 (/.f64 (*.f64 (neg.f64 im) im) re))
(neg.f64 (/.f64 (*.f64 im im) (neg.f64 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 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (pow.f64 im #s(literal 1 binary64)) im)
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 im #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 im) im))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 im re) re)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 im re) re)))
(pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re))
(/.f64 (*.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) #s(literal 2 binary64)) (-.f64 (hypot.f64 im re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re))) (-.f64 (hypot.f64 im re) re))
(/.f64 (-.f64 (*.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (hypot.f64 im re) #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 2 binary64) re) (*.f64 #s(literal 2 binary64) re))) (-.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re)))
(/.f64 (+.f64 (pow.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) re) #s(literal 3 binary64))) (fma.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) re) (*.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re)))))
(/.f64 (-.f64 (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)) (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re))) (-.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)))
(/.f64 (+.f64 (pow.f64 (+.f64 (hypot.f64 im re) re) #s(literal 3 binary64)) (pow.f64 (+.f64 (hypot.f64 im re) re) #s(literal 3 binary64))) (fma.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re) (-.f64 (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)) (*.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)))))
(/.f64 (+.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re))) (-.f64 (hypot.f64 im re) re))
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re) (*.f64 (-.f64 (hypot.f64 im re) re) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (-.f64 (hypot.f64 im re) re) (-.f64 (hypot.f64 im re) re)))
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (*.f64 (-.f64 (hypot.f64 im re) re) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (-.f64 (hypot.f64 im re) re) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 (hypot.f64 im re) re) (*.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (-.f64 (hypot.f64 im re) re)))
(/.f64 (fma.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (*.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (+.f64 re (+.f64 (hypot.f64 im re) re)))
(fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)) (+.f64 re (+.f64 (hypot.f64 im re) re)))
(fma.f64 (fma.f64 (hypot.f64 im re) (-.f64 (hypot.f64 im re) re) (*.f64 re re)) (/.f64 (+.f64 (hypot.f64 im re) re) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) (+.f64 (hypot.f64 im re) re))
(fma.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re) (*.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re)))
(fma.f64 (hypot.f64 im re) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) re))
(fma.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64) (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64)))
(fma.f64 #s(literal 2 binary64) (hypot.f64 im re) (*.f64 #s(literal 2 binary64) re))
(fma.f64 #s(literal 2 binary64) re (*.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(fma.f64 re #s(literal 2 binary64) (*.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(-.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64)))
(-.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (+.f64 (+.f64 (hypot.f64 im re) re) (hypot.f64 im re)) re)
(+.f64 (+.f64 (+.f64 (hypot.f64 im re) re) re) (hypot.f64 im re))
(+.f64 (*.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re)) (*.f64 #s(literal 1 binary64) (+.f64 (hypot.f64 im re) re)))
(+.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64)) (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 2 binary64) re) (*.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(+.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re))
(+.f64 (hypot.f64 im re) (+.f64 re (+.f64 (hypot.f64 im re) re)))
(+.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re))
(+.f64 re (+.f64 (hypot.f64 im re) (+.f64 (hypot.f64 im re) re)))
(*.f64 (fma.f64 (hypot.f64 im re) (-.f64 (hypot.f64 im re) re) (*.f64 re re)) (/.f64 (+.f64 (hypot.f64 im re) re) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re))) (neg.f64 (-.f64 (hypot.f64 im re) re)))
(/.f64 (neg.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (-.f64 (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (-.f64 re (hypot.f64 im re)))
(/.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re))
(/.f64 (-.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 6 binary64))) (*.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 9 binary64)) (pow.f64 re #s(literal 9 binary64))) (*.f64 (+.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 6 binary64)) (pow.f64 (*.f64 (hypot.f64 im re) re) #s(literal 3 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 im re) (-.f64 (hypot.f64 im re) re) (*.f64 re re)))
(fma.f64 (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) re)
(fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)) re)
(-.f64 (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (hypot.f64 im re) re)) (/.f64 (*.f64 re re) (-.f64 (hypot.f64 im re) re)))
(+.f64 (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) (/.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(+.f64 (hypot.f64 im re) re)
(+.f64 re (hypot.f64 im re))
(*.f64 (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 1 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (fma.f64 re re (*.f64 (neg.f64 im) im))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (sqrt.f64 (*.f64 (+.f64 im re) (-.f64 im re))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(sqrt.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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 (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)) (pow.f64 re #s(literal 1 binary64)))
(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)) (pow.f64 re #s(literal 1 binary64)))
(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 (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)) (pow.f64 im #s(literal 1 binary64)))
(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 (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)) (pow.f64 re #s(literal 1 binary64)))
(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 (pow.f64 im #s(literal 1 binary64)) (neg.f64 (neg.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 (fabs.f64 re)))
(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 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (neg.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(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 (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) (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 (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) (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 (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) (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) (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) (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 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 (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 (neg.f64 (neg.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 (fabs.f64 im)))
(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 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 1 binary64)))
(*.f64 (neg.f64 (hypot.f64 im re)) (neg.f64 (hypot.f64 im re)))
(*.f64 (fabs.f64 (hypot.f64 im re)) (fabs.f64 (hypot.f64 im re)))
(*.f64 (exp.f64 (log.f64 (hypot.f64 im re))) (exp.f64 (log.f64 (hypot.f64 im re))))
(*.f64 (hypot.f64 im re) (hypot.f64 im re))
(pow.f64 (exp.f64 (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (*.f64 (neg.f64 re) re) #s(literal 3 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (+.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (*.f64 im im) (*.f64 (neg.f64 re) re)))))
(/.f64 (-.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (*.f64 (neg.f64 im) im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (*.f64 re re) (*.f64 (neg.f64 im) im)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (neg.f64 (fma.f64 re re (*.f64 (neg.f64 im) im))))
(/.f64 (neg.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (neg.f64 (*.f64 (+.f64 im re) (-.f64 im re))))
(/.f64 (neg.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (neg.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (neg.f64 (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 re re (*.f64 (neg.f64 im) im)))
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (+.f64 im re) (-.f64 im re)))
(/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)) (*.f64 (neg.f64 (neg.f64 im)) im))
(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 (neg.f64 (neg.f64 im)) im))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 (neg.f64 (neg.f64 re)) re))
(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 (neg.f64 (neg.f64 re)) re))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) im (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) im (*.f64 re re))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) re (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) re (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 im im (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 re re (*.f64 im im))
(sqrt.f64 (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)))
(-.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 re re (*.f64 (neg.f64 im) im))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 re re (*.f64 (neg.f64 im) im))))
(-.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (+.f64 im re) (-.f64 im re))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (+.f64 im re) (-.f64 im re))))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 (neg.f64 re)) (neg.f64 re)))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 re)))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(exp.f64 (*.f64 (log.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)))
(+.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) (/.f64 (pow.f64 im #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(+.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))) (/.f64 (pow.f64 re #s(literal 6 binary64)) (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(+.f64 (cosh.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))))
(+.f64 (*.f64 im im) (*.f64 (neg.f64 (neg.f64 re)) re))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 (neg.f64 (neg.f64 im)) im))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(/.f64 (*.f64 (sqrt.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(*.f64 (pow.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(pow.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (sqrt.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(/.f64 (sqrt.f64 (neg.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (neg.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(/.f64 (sqrt.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(*.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (-.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)))) (-.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(*.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (+.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 6 binary64)))) (fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re)) (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64))))
(/.f64 (neg.f64 (neg.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))))) (neg.f64 (neg.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(/.f64 (neg.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))) (neg.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(neg.f64 (/.f64 (neg.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(neg.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
#s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64))) (-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im)))
(/.f64 (-.f64 (*.f64 #s(literal 27 binary64) (pow.f64 (*.f64 im (*.f64 re re)) #s(literal 3 binary64))) (pow.f64 (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)) (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 4 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 4 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 #s(literal -2 binary64) (pow.f64 im #s(literal 3 binary64))))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 3 binary64)) #s(literal 8 binary64) (*.f64 #s(literal 27 binary64) (pow.f64 (*.f64 im (*.f64 re re)) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im)) (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 4 binary64))) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 #s(literal -2 binary64) (pow.f64 im #s(literal 3 binary64)))))
(/.f64 (fma.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 3 binary64)) #s(literal 8 binary64) (*.f64 #s(literal 27 binary64) (pow.f64 (*.f64 im (*.f64 re re)) #s(literal 3 binary64)))) (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 4 binary64) (-.f64 (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) re) (*.f64 re (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))))))
(/.f64 (fma.f64 (pow.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 3 binary64)) #s(literal 8 binary64) (*.f64 #s(literal 27 binary64) (pow.f64 (*.f64 im (*.f64 re re)) #s(literal 3 binary64)))) (fma.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im)) (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64))))
(fma.f64 (*.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3/2 binary64))) (pow.f64 im #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 (*.f64 #s(literal 2 binary64) (*.f64 im im)) im (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) (neg.f64 re)) (neg.f64 re) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) (neg.f64 re)) (neg.f64 re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) (fabs.f64 re)) (fabs.f64 re) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) (fabs.f64 re)) (fabs.f64 re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (*.f64 im (*.f64 re re)) #s(literal 3 binary64) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (*.f64 im (*.f64 re re)) #s(literal 3 binary64) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) re) re (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) re) re (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (pow.f64 im #s(literal 3/2 binary64)) (*.f64 (pow.f64 im #s(literal 3/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 (neg.f64 re) (*.f64 (neg.f64 re) (*.f64 #s(literal 3 binary64) im)) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (neg.f64 re) (*.f64 (neg.f64 re) (*.f64 #s(literal 3 binary64) im)) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 re) (*.f64 (fabs.f64 re) (*.f64 #s(literal 3 binary64) im)) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 re) (*.f64 (fabs.f64 re) (*.f64 #s(literal 3 binary64) im)) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 #s(literal 3 binary64) (*.f64 im (*.f64 re re)) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 #s(literal 3 binary64) (*.f64 im (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (*.f64 im im) (*.f64 im #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 im (*.f64 (*.f64 im im) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(fma.f64 im (*.f64 #s(literal 3 binary64) (*.f64 re re)) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 im (*.f64 #s(literal 3 binary64) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 (*.f64 re re) (*.f64 #s(literal 3 binary64) im) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 (*.f64 re re) (*.f64 #s(literal 3 binary64) im) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(fma.f64 re (*.f64 (*.f64 #s(literal 3 binary64) im) re) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(fma.f64 re (*.f64 (*.f64 #s(literal 3 binary64) im) re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 #s(literal -2 binary64) (pow.f64 im #s(literal 3 binary64))))) (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 4 binary64)) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 #s(literal -2 binary64) (pow.f64 im #s(literal 3 binary64))))))
(-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (*.f64 #s(literal -2 binary64) (pow.f64 im #s(literal 3 binary64))))
(-.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (*.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64)) #s(literal 2 binary64)))
(-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 #s(literal 3 binary64) im) re)) re))
(-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 #s(literal 3 binary64) im)) (*.f64 re re)))
(-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal -3 binary64) (*.f64 im (*.f64 re re))))
(-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (neg.f64 re) re) (*.f64 #s(literal 3 binary64) im)))
(+.f64 (/.f64 (*.f64 #s(literal 27 binary64) (pow.f64 (*.f64 im (*.f64 re re)) #s(literal 3 binary64))) (fma.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im)) (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im)) (pow.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) #s(literal 2 binary64)))))
(+.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (*.f64 (neg.f64 (pow.f64 (neg.f64 im) #s(literal 3 binary64))) #s(literal 2 binary64)))
(+.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))
(+.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im))
(*.f64 #s(literal 3 binary64) im)
(*.f64 im #s(literal 3 binary64))
#s(literal 3 binary64)
(*.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 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (pow.f64 re #s(literal 1 binary64)) re)
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 re #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 re) re))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3/2 binary64))) (pow.f64 im #s(literal 3/2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) (*.f64 im im)) im)
(*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 im im))
(*.f64 (pow.f64 im #s(literal 3/2 binary64)) (*.f64 (pow.f64 im #s(literal 3/2 binary64)) #s(literal 2 binary64)))
(*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))
(*.f64 (*.f64 im im) (*.f64 im #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (pow.f64 im #s(literal 3 binary64)))
(*.f64 im (*.f64 (*.f64 im im) #s(literal 2 binary64)))
(fma.f64 (*.f64 im (fabs.f64 im)) (fabs.f64 im) (pow.f64 im #s(literal 3 binary64)))
(fma.f64 (neg.f64 (pow.f64 im #s(literal 3/2 binary64))) (neg.f64 (pow.f64 im #s(literal 3/2 binary64))) (pow.f64 im #s(literal 3 binary64)))
(fma.f64 (fabs.f64 (pow.f64 im #s(literal 3/2 binary64))) (fabs.f64 (pow.f64 im #s(literal 3/2 binary64))) (pow.f64 im #s(literal 3 binary64)))
(fma.f64 (pow.f64 im #s(literal 3/2 binary64)) (pow.f64 im #s(literal 3/2 binary64)) (pow.f64 im #s(literal 3 binary64)))
(fma.f64 (*.f64 (neg.f64 im) im) (neg.f64 im) (pow.f64 im #s(literal 3 binary64)))
(fma.f64 (neg.f64 im) (*.f64 (neg.f64 im) im) (pow.f64 im #s(literal 3 binary64)))
(fma.f64 (fabs.f64 im) (*.f64 (fabs.f64 im) im) (pow.f64 im #s(literal 3 binary64)))
(fma.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)) (*.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))
(fma.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(fma.f64 (*.f64 im im) im (pow.f64 im #s(literal 3 binary64)))
(fma.f64 im (*.f64 im im) (pow.f64 im #s(literal 3 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))) (*.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64))))
(+.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 1 binary64)))
(+.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64)))
(*.f64 (*.f64 im (fabs.f64 im)) (fabs.f64 im))
(*.f64 (neg.f64 (pow.f64 im #s(literal 3/2 binary64))) (neg.f64 (pow.f64 im #s(literal 3/2 binary64))))
(*.f64 (fabs.f64 (pow.f64 im #s(literal 3/2 binary64))) (fabs.f64 (pow.f64 im #s(literal 3/2 binary64))))
(*.f64 (pow.f64 im #s(literal 3/2 binary64)) (pow.f64 im #s(literal 3/2 binary64)))
(*.f64 (*.f64 (neg.f64 im) im) (neg.f64 im))
(*.f64 (neg.f64 im) (*.f64 (neg.f64 im) im))
(*.f64 (fabs.f64 im) (*.f64 (fabs.f64 im) im))
(*.f64 (*.f64 im im) im)
(*.f64 im (*.f64 im im))
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 3 binary64))
(pow.f64 (pow.f64 im #s(literal 3/2 binary64)) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 3/2 binary64))
(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 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64))) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re)))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re)) (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 4 binary64))) (-.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 6 binary64))) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 6 binary64))) (fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re)) (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (hypot.f64 im re)) (neg.f64 (hypot.f64 im re)) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(fma.f64 (fabs.f64 (hypot.f64 im re)) (fabs.f64 (hypot.f64 im re)) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(fma.f64 (exp.f64 (log.f64 (hypot.f64 im re))) (exp.f64 (log.f64 (hypot.f64 im re))) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(fma.f64 (hypot.f64 im re) (hypot.f64 im re) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(-.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (*.f64 (hypot.f64 im re) re))
(-.f64 (/.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)) (-.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(-.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (*.f64 (neg.f64 (hypot.f64 im re)) (hypot.f64 im re)))
(-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (neg.f64 (-.f64 re (hypot.f64 im re))) re))
(-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (neg.f64 re) (-.f64 re (hypot.f64 im re))))
(+.f64 (/.f64 (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 3 binary64)) (fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re)) (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)))) (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 6 binary64)) (fma.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re)) (pow.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) #s(literal 2 binary64)))))
(+.f64 (*.f64 (-.f64 re (hypot.f64 im re)) re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 (-.f64 re (hypot.f64 im re)) re))
(*.f64 (/.f64 (-.f64 (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re))) (-.f64 (hypot.f64 im re) re))
(*.f64 (/.f64 (-.f64 (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) (neg.f64 (+.f64 (hypot.f64 im re) re)))
(/.f64 (neg.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (hypot.f64 im re) (+.f64 (hypot.f64 im re) re) (*.f64 re re))))
(/.f64 (-.f64 (*.f64 re re) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) (+.f64 (hypot.f64 im re) re))
(/.f64 (-.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) (fma.f64 (hypot.f64 im re) (+.f64 (hypot.f64 im re) re) (*.f64 re re)))
(-.f64 (/.f64 (*.f64 re re) (+.f64 (hypot.f64 im re) re)) (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (+.f64 (hypot.f64 im re) re)))
(-.f64 (/.f64 (pow.f64 re #s(literal 3 binary64)) (fma.f64 (hypot.f64 im re) (+.f64 (hypot.f64 im re) re) (*.f64 re re))) (/.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (fma.f64 (hypot.f64 im re) (+.f64 (hypot.f64 im re) re) (*.f64 re re))))
(-.f64 re (hypot.f64 im re))
(*.f64 (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 1 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (fma.f64 re re (*.f64 (neg.f64 im) im))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (sqrt.f64 (*.f64 (+.f64 im re) (-.f64 im re))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(sqrt.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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)) (pow.f64 im #s(literal 1 binary64)))
(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 (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)) (pow.f64 re #s(literal 1 binary64)))
(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)) (pow.f64 re #s(literal 1 binary64)))
(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 (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)) (pow.f64 im #s(literal 1 binary64)))
(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 (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)) (pow.f64 re #s(literal 1 binary64)))
(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 (pow.f64 im #s(literal 1 binary64)) (neg.f64 (neg.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 (fabs.f64 re)))
(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 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (neg.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(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 (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) (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 (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) (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 (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) (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) (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) (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 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 (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 (neg.f64 (neg.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 (fabs.f64 im)))
(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 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 1 binary64)))
(*.f64 (neg.f64 (hypot.f64 im re)) (neg.f64 (hypot.f64 im re)))
(*.f64 (fabs.f64 (hypot.f64 im re)) (fabs.f64 (hypot.f64 im re)))
(*.f64 (exp.f64 (log.f64 (hypot.f64 im re))) (exp.f64 (log.f64 (hypot.f64 im re))))
(*.f64 (hypot.f64 im re) (hypot.f64 im re))
(pow.f64 (exp.f64 (log.f64 (hypot.f64 im re))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 (*.f64 (neg.f64 re) re) #s(literal 3 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (+.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (*.f64 im im) (*.f64 (neg.f64 re) re)))))
(/.f64 (-.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 (*.f64 (neg.f64 im) im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (+.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (*.f64 re re) (*.f64 (neg.f64 im) im)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (neg.f64 (fma.f64 re re (*.f64 (neg.f64 im) im))))
(/.f64 (neg.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (neg.f64 (*.f64 (+.f64 im re) (-.f64 im re))))
(/.f64 (neg.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (neg.f64 (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (neg.f64 (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (fma.f64 re re (*.f64 (neg.f64 im) im)))
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 (+.f64 im re) (-.f64 im re)))
(/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64))))
(/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))
(fma.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)) (*.f64 (neg.f64 (neg.f64 im)) im))
(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 (neg.f64 (neg.f64 im)) im))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 (neg.f64 (neg.f64 re)) re))
(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 (neg.f64 (neg.f64 re)) re))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) im (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (pow.f64 im #s(literal 1 binary64)) im (*.f64 re re))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) re (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (pow.f64 re #s(literal 1 binary64)) re (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 im im (*.f64 (neg.f64 (neg.f64 re)) re))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 (neg.f64 (neg.f64 im)) im))
(fma.f64 re re (*.f64 im im))
(sqrt.f64 (pow.f64 (hypot.f64 im re) #s(literal 4 binary64)))
(-.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (fma.f64 re re (*.f64 (neg.f64 im) im))) (/.f64 (pow.f64 im #s(literal 4 binary64)) (fma.f64 re re (*.f64 (neg.f64 im) im))))
(-.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (+.f64 im re) (-.f64 im re))) (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (+.f64 im re) (-.f64 im re))))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 (neg.f64 re)) (neg.f64 re)))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 re)))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(exp.f64 (*.f64 (log.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64)))
(+.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))) (/.f64 (pow.f64 im #s(literal 6 binary64)) (+.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))) (pow.f64 re #s(literal 4 binary64)))))
(+.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))) (/.f64 (pow.f64 re #s(literal 6 binary64)) (-.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(+.f64 (cosh.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (hypot.f64 im re)) #s(literal 2 binary64))))
(+.f64 (*.f64 im im) (*.f64 (neg.f64 (neg.f64 re)) re))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 (neg.f64 (neg.f64 im)) im))
(+.f64 (*.f64 re re) (*.f64 im im))

eval183.0ms (3.7%)

Memory
0.9MiB live, 233.7MiB allocated; 55ms collecting garbage
Compiler

Compiled 41 488 to 5 058 computations (87.8% saved)

prune35.0ms (0.7%)

Memory
5.1MiB live, 95.3MiB allocated; 9ms collecting garbage
Pruning

20 alts after pruning (11 fresh and 9 done)

PrunedKeptTotal
New92310933
Fresh011
Picked145
Done156
Total92520945
Accuracy
87.9%
Counts
945 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
16.9%
(/.f64 (*.f64 (sqrt.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
6.5%
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
✓49.3%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
43.8%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) re) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) im))))
18.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) #s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))))))
16.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (exp.f64 (log.f64 (hypot.f64 im re))) (exp.f64 (log.f64 (hypot.f64 im re))) (*.f64 (-.f64 re (hypot.f64 im re)) re)))))
51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
15.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
5.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #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) im))))
6.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
✓49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
✓43.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓48.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
✓28.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
✓14.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
✓15.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
17.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) re)))))
16.2%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
✓29.1%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Compiler

Compiled 1 377 to 552 computations (59.9% saved)

regimes64.0ms (1.3%)

Memory
-32.2MiB live, 112.7MiB allocated; 22ms collecting garbage
Counts
29 → 4
Calls
Call 1
Inputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #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) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
(*.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) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) re) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3 binary64)))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 #s(literal 2 binary64)))) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(/.f64 (*.f64 (sqrt.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64))))) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) #s(approx (pow (sqrt (+ (* im im) (* re re))) 2) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 (*.f64 (+.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 3 binary64))) #s(literal 2 binary64)) (fma.f64 re (-.f64 re (hypot.f64 im re)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 (*.f64 re re) #s(literal 3 binary64)) im (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (-.f64 re (hypot.f64 im re)) re (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(approx (* (+ (pow re 3) (pow (sqrt (+ (* im im) (* re re))) 3)) 2) (fma.f64 (*.f64 #s(literal 3 binary64) im) (*.f64 re re) (*.f64 (pow.f64 im #s(literal 3 binary64)) #s(literal 2 binary64)))) (fma.f64 (exp.f64 (log.f64 (hypot.f64 im re))) (exp.f64 (log.f64 (hypot.f64 im re))) (*.f64 (-.f64 re (hypot.f64 im re)) re)))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Calls

7 calls:

14.0ms
im
10.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
9.0ms
(*.f64 im im)
8.0ms
re
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))))
Results
AccuracySegmentsBranch
65.9%3(*.f64 im im)
69.7%4(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
69.7%4(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
69.6%4(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
69.6%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))))
72.2%4re
67.5%4im
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes6.0ms (0.1%)

Memory
14.6MiB live, 14.6MiB allocated; 0ms collecting garbage
Counts
19 → 3
Calls
Call 1
Inputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #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) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) re)))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Calls

1 calls:

5.0ms
re
Results
AccuracySegmentsBranch
69.0%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes28.0ms (0.6%)

Memory
26.2MiB live, 71.2MiB allocated; 5ms collecting garbage
Counts
12 → 2
Calls
Call 1
Inputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 re) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(*.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 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
Calls

7 calls:

6.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
4.0ms
im
4.0ms
re
3.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))))
3.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
63.0%2(*.f64 im im)
63.0%2im
53.6%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
53.6%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))))
51.9%1(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
51.9%1(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
61.0%2re
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes14.0ms (0.3%)

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

2 calls:

11.0ms
im
2.0ms
(*.f64 im im)
Results
AccuracySegmentsBranch
62.7%2(*.f64 im im)
62.7%2im
Compiler

Compiled 4 to 5 computations (-25% saved)

regimes5.0ms (0.1%)

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

2 calls:

2.0ms
im
2.0ms
(*.f64 im im)
Results
AccuracySegmentsBranch
62.4%2(*.f64 im im)
62.4%2im
Compiler

Compiled 4 to 5 computations (-25% saved)

regimes13.0ms (0.3%)

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

7 calls:

3.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
29.1%1(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
29.1%1(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
29.1%1(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
29.1%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))))
32.1%2re
29.1%1(*.f64 im im)
29.1%1im
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes9.0ms (0.2%)

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

7 calls:

1.0ms
re
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
im
1.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
1.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
Results
AccuracySegmentsBranch
29.1%1(*.f64 im im)
29.1%1(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
29.1%1(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
29.1%1(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
29.1%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))))
29.1%1im
29.1%1re
Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch61.0ms (1.2%)

Memory
-12.0MiB live, 129.3MiB allocated; 11ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
17.0ms
1.76097273776591e+54
2.4042011918109255e+57
13.0ms
4.6629933885918216e-142
2.0173225162343202e-140
25.0ms
-1.6224974076867133e+103
-8.342152786087121e+100
Samples
20.0ms283×0valid
9.0ms22×3valid
6.0ms31×2valid
2.0ms16×1valid
Compiler

Compiled 918 to 615 computations (33% saved)

Precisions
Click to see histograms. Total time spent on operations: 28.0ms
ival-hypot: 11.0ms (39.3% of total)
ival-mult: 7.0ms (25% of total)
ival-sqrt: 5.0ms (17.8% of total)
adjust: 2.0ms (7.1% of total)
ival-add: 2.0ms (7.1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch20.0ms (0.4%)

Memory
4.8MiB live, 51.7MiB allocated; 2ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
17.0ms
2.8463053145659096e+43
2.366609027544011e+50
1.0ms
-1.6224974076867133e+103
-8.342152786087121e+100
Samples
9.0ms144×0valid
Compiler

Compiled 606 to 492 computations (18.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 6.0ms
ival-hypot: 3.0ms (49.6% of total)
ival-mult: 2.0ms (33.1% of total)
ival-add: 1.0ms (16.5% of total)
ival-sqrt: 1.0ms (16.5% of total)
ival-true: 0.0ms (0% of total)
adjust: 0.0ms (0% of total)
exact: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

bsearch21.0ms (0.4%)

Memory
4.6MiB live, 51.7MiB allocated; 3ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
19.0ms
4.84249688812023e-85
5.600256570328517e-82
Samples
7.0ms91×0valid
6.0ms31×2valid
1.0ms6×1valid
Compiler

Compiled 298 to 246 computations (17.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 10.0ms
ival-hypot: 5.0ms (47.9% of total)
ival-mult: 2.0ms (19.2% of total)
adjust: 1.0ms (9.6% of total)
ival-add: 1.0ms (9.6% of total)
ival-sqrt: 1.0ms (9.6% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory
2.5MiB live, 2.5MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
4.84249688812023e-85
5.600256570328517e-82
Compiler

Compiled 402 to 254 computations (36.8% saved)

bsearch1.0ms (0%)

Memory
2.5MiB live, 2.5MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
4.84249688812023e-85
5.600256570328517e-82
Compiler

Compiled 386 to 238 computations (38.3% saved)

bsearch14.0ms (0.3%)

Memory
-19.2MiB live, 27.9MiB allocated; 2ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
12.0ms
3.5700300620421837e-287
2.8669241410066367e-285
Samples
8.0ms112×0valid
Compiler

Compiled 172 to 168 computations (2.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 6.0ms
ival-hypot: 2.0ms (35.9% of total)
ival-add: 1.0ms (18% of total)
ival-mult: 1.0ms (18% of total)
ival-sqrt: 1.0ms (18% of total)
ival-true: 0.0ms (0% of total)
adjust: 0.0ms (0% of total)
exact: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

simplify81.0ms (1.6%)

Memory
-20.1MiB live, 48.2MiB allocated; 67ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
064344
193344
2172344
3310344
4615344
53396344
Stop Event
1×node limit
Calls
Call 1
Inputs
(if (<=.f64 re #s(literal -860000000000000017561824138844987662117953350146332012806007848070593176910277590707766989194103095296 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))))) (if (<=.f64 re #s(literal 1244244575898673/858099707516326214372737599885174152158679412517913176174307932398192897924707006515319955082681819372162038923935107254640248499964580476571753536389382144 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) (if (<=.f64 re #s(literal 2400000000000000046342232331920584420769028028111104507904 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -860000000000000017561824138844987662117953350146332012806007848070593176910277590707766989194103095296 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))))) (if (<=.f64 re #s(literal 240000000000000018635966172278955534691071950848 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 im #s(literal 2405975797261313/2187250724783011924372502227117621365353169430893212436425770606409952999199375923223513177023053824 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))))
(if (<=.f64 im #s(literal 2405975797261313/2187250724783011924372502227117621365353169430893212436425770606409952999199375923223513177023053824 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))))
(if (<=.f64 im #s(literal 2405975797261313/2187250724783011924372502227117621365353169430893212436425770606409952999199375923223513177023053824 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))))
(if (<=.f64 re #s(literal 2785922378684295/42860344287450692837937001962400072422456192468221344297750015534814042044997444899727935152627834325103786916702125873007485811427692561743938310298794299215738271099296923941684298420249484567511816728612185899934327765069595070236662175784308251658284785910746168670641719326610497547348822672277504 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Outputs
(if (<=.f64 re #s(literal -860000000000000017561824138844987662117953350146332012806007848070593176910277590707766989194103095296 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))))) (if (<=.f64 re #s(literal 1244244575898673/858099707516326214372737599885174152158679412517913176174307932398192897924707006515319955082681819372162038923935107254640248499964580476571753536389382144 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) (if (<=.f64 re #s(literal 2400000000000000046342232331920584420769028028111104507904 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -860000000000000017561824138844987662117953350146332012806007848070593176910277590707766989194103095296 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (neg.f64 im) re) im)))) (if (<=.f64 re #s(literal 1244244575898673/858099707516326214372737599885174152158679412517913176174307932398192897924707006515319955082681819372162038923935107254640248499964580476571753536389382144 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) (if (<=.f64 re #s(literal 2400000000000000046342232331920584420769028028111104507904 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -860000000000000017561824138844987662117953350146332012806007848070593176910277590707766989194103095296 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))))) (if (<=.f64 re #s(literal 240000000000000018635966172278955534691071950848 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal -860000000000000017561824138844987662117953350146332012806007848070593176910277590707766989194103095296 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (neg.f64 im) re) im)))) (if (<=.f64 re #s(literal 240000000000000018635966172278955534691071950848 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 im #s(literal 2405975797261313/2187250724783011924372502227117621365353169430893212436425770606409952999199375923223513177023053824 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))))
(if (<=.f64 im #s(literal 2405975797261313/2187250724783011924372502227117621365353169430893212436425770606409952999199375923223513177023053824 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))))
(if (<=.f64 im #s(literal 2405975797261313/2187250724783011924372502227117621365353169430893212436425770606409952999199375923223513177023053824 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))))
(if (<=.f64 re #s(literal 2785922378684295/42860344287450692837937001962400072422456192468221344297750015534814042044997444899727935152627834325103786916702125873007485811427692561743938310298794299215738271099296923941684298420249484567511816728612185899934327765069595070236662175784308251658284785910746168670641719326610497547348822672277504 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))

derivations225.0ms (4.6%)

Memory
29.3MiB live, 219.4MiB allocated; 18ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 344 to 66 computations (80.8% saved)

preprocess29.0ms (0.6%)

Memory
-19.3MiB live, 27.0MiB allocated; 3ms collecting garbage
Compiler

Compiled 218 to 108 computations (50.5% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...