math.sqrt on complex, real part

Time bar (total: 7.7s)

start0.0ms (0%)

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

analyze111.0ms (1.4%)

Memory
26.6MiB live, 169.0MiB allocated; 34ms 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 (18%)

Memory
12.0MiB live, 1 850.9MiB allocated; 348ms collecting garbage
Samples
541.0ms6 246×0valid
218.0ms794×2valid
156.0ms472×3valid
120.0ms744×1valid
Precisions
Click to see histograms. Total time spent on operations: 762.0ms
ival-hypot: 330.0ms (43.3% of total)
ival-mult: 149.0ms (19.6% of total)
ival-sqrt: 109.0ms (14.3% of total)
ival-add: 96.0ms (12.6% of total)
adjust: 65.0ms (8.5% of total)
exact: 10.0ms (1.3% of total)
ival-assert: 3.0ms (0.4% of total)
Bogosity

explain196.0ms (2.5%)

Memory
2.1MiB live, 288.1MiB allocated; 49ms collecting garbage
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
1280-1(-3.7899080061473665e-181 -1.3163243263606442e-158)(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
290-3(-1.4637856214859427e-207 -1.055923619887764e-259)(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
291(-1.4852275426222203e-225 -1.6884411370165184e-274)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-rescue1130
↳(+.f64 (*.f64 re re) (*.f64 im im))overflow113
↳(*.f64 re re)overflow68
↳(*.f64 im im)overflow62
+.f64(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)cancellation300
sqrt.f64(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))uflow-rescue260
↳(+.f64 (*.f64 re re) (*.f64 im im))underflow14
↳(*.f64 im im)underflow62
↳(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))underflow33
↳(*.f64 re re)underflow53
↳(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)underflow33
sqrt.f64(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))uflow-rescue140
↳(+.f64 (*.f64 re re) (*.f64 im im))underflow14
↳(*.f64 re re)underflow53
↳(*.f64 im im)underflow62
Confusion
Predicted +Predicted -
+1591
-096
Precision
1.0
Recall
0.99375
Confusion?
Predicted +Predicted MaybePredicted -
+15901
-0096
Precision?
1.0
Recall?
0.99375
Freqs
test
numberfreq
097
1135
224
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
52.0ms386×0valid
18.0ms62×2valid
11.0ms28×3valid
7.0ms36×1valid
Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 53.0ms
ival-hypot: 16.0ms (30.5% of total)
ival-mult: 16.0ms (30.5% of total)
adjust: 7.0ms (13.3% of total)
ival-add: 7.0ms (13.3% of total)
ival-sqrt: 5.0ms (9.5% of total)
ival-true: 1.0ms (1.9% of total)
exact: 1.0ms (1.9% of total)
ival-assert: 0.0ms (0% of total)

preprocess178.0ms (2.3%)

Memory
-7.1MiB live, 180.4MiB allocated; 26ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03692
111792
225790
344890
493590
5305790
6661190
01215
02015
14315
211815
324515
448615
5154515
6437115
0852515
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 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re 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.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler

Compiled 0 to 2 computations (-∞% saved)

prune1.0ms (0%)

Memory
1.2MiB live, 1.2MiB allocated; 0ms collecting garbage
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶40.8%
(*.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.3%)

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

rewrite215.0ms (2.8%)

Memory
-21.2MiB live, 213.7MiB allocated; 36ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06354546
06484088
138393962
082153790
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
131 → 202
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(/.f64 (+.f64 (*.f64 (-.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (*.f64 (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) (-.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)))) (*.f64 (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))
(/.f64 (+.f64 (*.f64 (-.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)) (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))) (*.f64 (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))))
(/.f64 (+.f64 (*.f64 (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (*.f64 (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))) (-.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)))) (*.f64 (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))) (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))
(/.f64 (+.f64 (*.f64 (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))) (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))) (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))))
(+.f64 (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))) (*.f64 re #s(literal 2 binary64)))
(+.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
#s(literal 2 binary64)
(/.f64 (-.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))))
(pow.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1 binary64))
(pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 im im) (*.f64 re re))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))) (neg.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))))
(*.f64 (fabs.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))) (fabs.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))))
(*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))))
(pow.f64 (*.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 2 binary64))
(pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #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 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (*.f64 re re) (*.f64 im 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 im re) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))
(sqrt.f64 (*.f64 (+.f64 (*.f64 im im) (*.f64 re re)) (+.f64 (*.f64 im im) (*.f64 re re))))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)))
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (pow.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal -2 binary64)))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
re
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)))
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal -2 binary64)))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im #s(literal 2 binary64)))
#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)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) (*.f64 re re)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64))) #s(literal 1/16 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)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (+.f64 (*.f64 im im) (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/64 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64)) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (ratio-of-squares.f64 im re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re #s(literal 2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re)))) re))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))))) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))))) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.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))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.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)))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 (*.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) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (-.f64 re (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) re))
#s(approx (* im im) (*.f64 im im))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (ratio-of-squares.f64 re im) (*.f64 (/.f64 re im) #s(literal 2 binary64)))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (/.f64 re im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im)))) im))
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (ratio-of-squares.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/4 binary64)) (*.f64 re re)) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 re (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64))) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))))))

eval229.0ms (3%)

Memory
3.0MiB live, 289.2MiB allocated; 46ms collecting garbage
Samples
88.0ms1 715×0valid
60.0ms845×0invalid
Compiler

Compiled 6 154 to 1 399 computations (77.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 59.0ms
ival-mult: 29.0ms (49.4% of total)
ival-div: 14.0ms (23.8% of total)
ival-pow: 8.0ms (13.6% of total)
ival-sqrt: 4.0ms (6.8% of total)
ival-true: 2.0ms (3.4% of total)
adjust: 1.0ms (1.7% of total)
exact: 1.0ms (1.7% of total)
ival-assert: 1.0ms (1.7% of total)

prune197.0ms (2.5%)

Memory
40.4MiB live, 370.4MiB allocated; 37ms collecting garbage
Pruning

15 alts after pruning (14 fresh and 1 done)

PrunedKeptTotal
New19414208
Fresh000
Picked011
Done000
Total19415209
Accuracy
87.3%
Counts
209 → 15
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶40.5%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
40.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re))))
✓40.8%
(*.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.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) 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))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re))))
6.2%
(*.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))))
▶54.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
32.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im)))))
51.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
51.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
▶26.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
▶27.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
13.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))))
14.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
50.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
Samples
124.0ms2 770×0valid
12.0ms302×0invalid
Compiler

Compiled 683 to 504 computations (26.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 71.0ms
ival-mult: 33.0ms (46.5% of total)
ival-div: 21.0ms (29.6% of total)
ival-pow: 9.0ms (12.7% of total)
ival-sqrt: 3.0ms (4.2% of total)
ival-true: 2.0ms (2.8% of total)
adjust: 1.0ms (1.4% of total)
ival-assert: 1.0ms (1.4% of total)
exact: 0.0ms (0% of total)

series38.0ms (0.5%)

Memory
-26.8MiB live, 64.3MiB allocated; 12ms collecting garbage
Counts
39 → 257
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
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
(*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)
(+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64))
(ratio-of-squares.f64 im re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im))
(*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)
(+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))
(ratio-of-squares.f64 re im)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)
(sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 im im)
(*.f64 re re)
(sqrt.f64 #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 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 (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (/ (* im im) (* re re)) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 im))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (/ (* re re) (* im im)) 1/2) #s(hole binary64 (* 1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (/ (* re re) (* im im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 4))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (* 1/2 (/ (pow re 2) im))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (* (pow re 2) (+ (* 1/2 (/ 1 im)) (/ im (pow re 2))))))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (* (pow re 2) (+ (* 1/2 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (/ (+ (* 1/2 (pow re 2)) (pow im 2)) im)))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (/ (+ (* 1/2 (pow re 2)) (pow im 2)) (pow im 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 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 re) (* im im)) 1/2) 1) im) #s(hole binary64 (* -1 (* im (- (* -1/2 (/ (pow re 2) (pow im 2))) 1)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Calls

6 calls:

TimeVariablePointExpression
8.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) (sqrt (+ (* re re) (* im 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) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* 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)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (+ (* (/ (* re re) (* im im)) 1/2) 1) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) 1 (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* im im) (* re re) (sqrt 2))
6.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* 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)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (+ (* (/ (* re re) (* im im)) 1/2) 1) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) 1 (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* im im) (* re re) (sqrt 2))
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))) 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) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* 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)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (+ (* (/ (* re re) (* im im)) 1/2) 1) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) 1 (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* im im) (* re re) (sqrt 2))
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))) 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) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* 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)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (+ (* (/ (* re re) (* im im)) 1/2) 1) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) 1 (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* im im) (* re re) (sqrt 2))
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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* 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)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (+ (* (/ (* re re) (* im im)) 1/2) 1) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) 1 (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* im im) (* re re) (sqrt 2))

rewrite238.0ms (3.1%)

Memory
-11.2MiB live, 250.0MiB allocated; 89ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
096110144
09998854
151928633
080888505
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
296 → 462
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
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
(*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)
(+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64))
(ratio-of-squares.f64 im re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im))
(*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)
(+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))
(ratio-of-squares.f64 re im)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)
(sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 im im)
(*.f64 re re)
(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)))))
#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 (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (/ (* im im) (* re re)) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 im))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (/ (* re re) (* im im)) 1/2) #s(hole binary64 (* 1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (/ (* re re) (* im im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* 4 re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 4))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (* 1/2 (/ (pow re 2) im))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (* (pow re 2) (+ (* 1/2 (/ 1 im)) (/ im (pow re 2))))))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (* (pow re 2) (+ (* 1/2 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (/ (+ (* 1/2 (pow re 2)) (pow im 2)) im)))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(hole binary64 (/ (+ (* 1/2 (pow re 2)) (pow im 2)) (pow im 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 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 re) (* im im)) 1/2) 1) im) #s(hole binary64 (* -1 (* im (- (* -1/2 (/ (pow re 2) (pow im 2))) 1)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(*.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 (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 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.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 binary64) (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 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.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))
#s(literal 2 binary64)
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.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)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(+.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
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1 binary64))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
(*.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) 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 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1 binary64))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
(*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re)
(*.f64 re (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)))
(+.f64 (*.f64 #s(literal 4 binary64) re) (*.f64 (ratio-of-squares.f64 im re) re))
(+.f64 (*.f64 #s(literal 4 binary64) re) (*.f64 re (ratio-of-squares.f64 im re)))
(/.f64 (-.f64 #s(literal 16 binary64) (pow.f64 (ratio-of-squares.f64 im re) #s(literal 2 binary64))) (-.f64 #s(literal 4 binary64) (ratio-of-squares.f64 im re)))
(/.f64 (-.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 2 binary64)) #s(literal 16 binary64)) (-.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)))
(/.f64 (+.f64 #s(literal 64 binary64) (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64))) (+.f64 #s(literal 16 binary64) (-.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 2 binary64)) (*.f64 #s(literal 4 binary64) (ratio-of-squares.f64 im re)))))
(/.f64 (+.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 64 binary64)) (+.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 2 binary64)) (-.f64 #s(literal 16 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)))))
(+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64))
(+.f64 #s(literal 4 binary64) (ratio-of-squares.f64 im re))
(*.f64 (/.f64 im re) (/.f64 im re))
(*.f64 im (/.f64 im (*.f64 re re)))
(ratio-of-squares.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re)))
(ratio-of-squares.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(ratio-of-squares.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(ratio-of-squares.f64 (exp.f64 (log.f64 im)) re)
(ratio-of-squares.f64 (neg.f64 im) (exp.f64 (log.f64 re)))
(ratio-of-squares.f64 (neg.f64 im) (neg.f64 re))
(ratio-of-squares.f64 (neg.f64 im) (fabs.f64 re))
(ratio-of-squares.f64 (neg.f64 im) re)
(ratio-of-squares.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(ratio-of-squares.f64 (fabs.f64 im) (neg.f64 re))
(ratio-of-squares.f64 (fabs.f64 im) (fabs.f64 re))
(ratio-of-squares.f64 (fabs.f64 im) re)
(ratio-of-squares.f64 im (exp.f64 (log.f64 re)))
(ratio-of-squares.f64 im (neg.f64 re))
(ratio-of-squares.f64 im (fabs.f64 re))
(ratio-of-squares.f64 im re)
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (*.f64 re re)))
(/.f64 (/.f64 (*.f64 im im) re) re)
(/.f64 (*.f64 im im) (*.f64 re re))
(exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)) (*.f64 (log.f64 re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re 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))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re 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))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im))) (*.f64 re #s(literal 2 binary64)))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re))
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re))))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im))
(*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)
(*.f64 im (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))))
(+.f64 (*.f64 #s(literal 1 binary64) im) (*.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) im))
(+.f64 (*.f64 im #s(literal 1 binary64)) (*.f64 im (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/8 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (+.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) (neg.f64 (*.f64 im im)))
(/.f64 (+.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)) (*.f64 im im))
(-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im)))
(+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))
(*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (ratio-of-squares.f64 re im))
(/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))
(*.f64 (/.f64 re im) (/.f64 re im))
(*.f64 re (/.f64 re (*.f64 im im)))
(ratio-of-squares.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im)))
(ratio-of-squares.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(ratio-of-squares.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(ratio-of-squares.f64 (exp.f64 (log.f64 re)) im)
(ratio-of-squares.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(ratio-of-squares.f64 (neg.f64 re) (neg.f64 im))
(ratio-of-squares.f64 (neg.f64 re) (fabs.f64 im))
(ratio-of-squares.f64 (neg.f64 re) im)
(ratio-of-squares.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(ratio-of-squares.f64 (fabs.f64 re) (neg.f64 im))
(ratio-of-squares.f64 (fabs.f64 re) (fabs.f64 im))
(ratio-of-squares.f64 (fabs.f64 re) im)
(ratio-of-squares.f64 re (exp.f64 (log.f64 im)))
(ratio-of-squares.f64 re (neg.f64 im))
(ratio-of-squares.f64 re (fabs.f64 im))
(ratio-of-squares.f64 re im)
(pow.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 re re)) (neg.f64 (*.f64 im im)))
(/.f64 (/.f64 (*.f64 re re) im) im)
(/.f64 (*.f64 re re) (*.f64 im im))
(exp.f64 (-.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)) (*.f64 (log.f64 im) #s(literal 2 binary64))))
#s(literal 1 binary64)
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) #s(literal 1 binary64))
(pow.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal -1/2 binary64)))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(exp.f64 (*.f64 (log.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)) (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))))
(pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.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 im #s(literal 6 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #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 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal -2 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (pow.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal -2 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (/.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im #s(literal 2 binary64)))
#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)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) (*.f64 re re)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64))) #s(literal 1/16 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)
#s(approx (* 4 re) (*.f64 #s(literal 4 binary64) re))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (/.f64 (*.f64 im im) re))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (/.f64 (+.f64 (*.f64 (*.f64 re re) #s(literal 4 binary64)) (*.f64 im im)) re))
#s(approx (+ (/ (* im im) (* re re)) 4) (ratio-of-squares.f64 im re))
#s(approx (+ (/ (* im im) (* re re)) 4) (/.f64 (+.f64 (*.f64 (*.f64 re re) #s(literal 4 binary64)) (*.f64 im im)) (*.f64 re re)))
#s(approx (/ (* im im) (* re re)) (ratio-of-squares.f64 im re))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) im)
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (+.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) im))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))))
#s(approx (* (/ (* re re) (* im im)) 1/2) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))
#s(approx (/ (* re re) (* im im)) (ratio-of-squares.f64 re im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (-.f64 (sqrt.f64 im) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) re))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) #s(literal 1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))) re) (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im))) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) re) (sqrt.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) (*.f64 re re)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64))) #s(literal 1/16 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 (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (+.f64 (*.f64 im im) (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/64 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64)) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (ratio-of-squares.f64 im re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re #s(literal 2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re)))) re))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (*.f64 #s(literal 4 binary64) re))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64))
#s(approx (+ (/ (* im im) (* re re)) 4) (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (*.f64 (+.f64 (/.f64 im (*.f64 re re)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re)))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64)) (*.f64 re re)) #s(literal 1 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/64 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64)) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 (*.f64 re #s(literal 2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64))) re))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64)) (+.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64)))) re))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 3/4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64)) (+.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64)))) (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re #s(literal 2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re)))) re))
#s(approx (+ (* im im) (* re re)) (*.f64 re re))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.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))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (*.f64 (neg.f64 re) (-.f64 (neg.f64 (ratio-of-squares.f64 im re)) #s(literal 4 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.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)) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pown3/2s.f64 re)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/512 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pown3/2s.f64 re)))) (*.f64 (*.f64 (/.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)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.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))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 im re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.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)))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 (*.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) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (-.f64 re (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) re))
#s(approx im im)
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (/.f64 (+.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)) im))
#s(approx (+ (* (/ (* re re) (* im im)) 1/2) 1) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.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)))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (*.f64 (pown3/2s.f64 re) (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (sqrt.f64 (*.f64 re #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 re #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))) (*.f64 im im)) (sqrt.f64 (*.f64 re #s(literal 2 binary64)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 (*.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) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (-.f64 re (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) re))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) (ratio-of-squares.f64 re im))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (/.f64 re im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im)))) im))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (*.f64 (+.f64 (*.f64 (/.f64 re (*.f64 im im)) #s(literal 4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (+ (/ (* im im) (* re re)) 4) (*.f64 (+.f64 (*.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 4 binary64)) (pow.f64 re #s(literal -2 binary64))) (*.f64 im im)))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (-.f64 (pow.f64 im #s(literal -1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (pown3/2s.f64 im) re))) im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (pown3/2s.f64 im) re))) (pow.f64 im #s(literal -1/2 binary64))) im))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (+.f64 (pow.f64 im #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (pown3/2s.f64 im) 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) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (/.f64 re im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im)))) im))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (ratio-of-squares.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/4 binary64)) (*.f64 re re)) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 re (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64))) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im)))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))))))
#s(approx (* (+ (* (/ (* re re) (* im im)) 1/2) 1) im) (*.f64 (neg.f64 im) (-.f64 (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im)) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (neg.f64 (sqrt.f64 (neg.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re))) (+.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re))))))
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 re (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64))) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im)))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 re im) #s(literal 3 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))))))

eval763.0ms (9.9%)

Memory
34.2MiB live, 1 423.8MiB allocated; 272ms collecting garbage
Samples
430.0ms8 869×0valid
88.0ms1 883×0invalid
Compiler

Compiled 11 662 to 2 349 computations (79.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 280.0ms
ival-mult: 186.0ms (66.4% of total)
ival-div: 67.0ms (23.9% of total)
ival-pow: 9.0ms (3.2% of total)
ival-true: 7.0ms (2.5% of total)
ival-sqrt: 4.0ms (1.4% of total)
ival-assert: 4.0ms (1.4% of total)
adjust: 3.0ms (1.1% of total)
exact: 1.0ms (0.4% of total)

prune319.0ms (4.1%)

Memory
27.2MiB live, 359.4MiB allocated; 94ms collecting garbage
Pruning

18 alts after pruning (12 fresh and 6 done)

PrunedKeptTotal
New3994403
Fresh189
Picked055
Done011
Total40018418
Accuracy
87.3%
Counts
418 → 18
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓40.5%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
▶53.8%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
50.4%
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) #s(literal 1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))) re) (sqrt.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
▶40.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re))))
✓40.8%
(*.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.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) 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))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re))))
6.2%
(*.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))))
✓54.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
32.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im)))))
▶51.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
51.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
✓26.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
✓27.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
13.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))))
▶14.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
48.0%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
50.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
Samples
209.0ms3 282×0valid
32.0ms302×0invalid
Compiler

Compiled 743 to 548 computations (26.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 141.0ms
ival-mult: 83.0ms (58.7% of total)
ival-div: 30.0ms (21.2% of total)
ival-pow: 16.0ms (11.3% of total)
ival-sqrt: 7.0ms (5% of total)
ival-true: 2.0ms (1.4% of total)
adjust: 1.0ms (0.7% of total)
exact: 1.0ms (0.7% of total)
ival-assert: 1.0ms (0.7% of total)

series44.0ms (0.6%)

Memory
3.2MiB live, 47.2MiB allocated; 15ms collecting garbage
Counts
40 → 334
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(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(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)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
(*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(neg.f64 re)
(+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))
(ratio-of-squares.f64 im re)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re))
(+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re)
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64)))
(pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 re re)
#s(literal -1/2 binary64)
Outputs
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (neg (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (/ (+ (* -1 (pow re 2)) (* -1/2 (pow im 2))) re)))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (/ (+ (* 1/2 (pow im 2)) (pow re 2)) (pow re 2))))
#s(approx (* (/ (* im im) (* re re)) 1/2) #s(hole binary64 (* 1/2 (/ (pow im 2) (pow re 2)))))
#s(approx (/ (* im im) (* re re)) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 im))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* -1 re)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 1))))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 re)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (+ (* -1 re) (* -1/2 (/ (pow im 2) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* (pow im 2) (- (* -1 (/ re (pow im 2))) (* 1/2 (/ 1 re))))))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (* (pow im 2) (+ (/ 1 (pow im 2)) (* 1/2 (/ 1 (pow re 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (+ (* im im) (* re re)) #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 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 im)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
Calls

6 calls:

TimeVariablePointExpression
16.0ms
im
@0
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 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) (* 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)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1) (* (/ (* im im) (* re re)) 1/2) (/ (* im im) (* re re)) 1 (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (pow (+ (* im im) (* re re)) -1/2) (+ (* im im) (* re re)) (* re re) -1/2)
5.0ms
im
@inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 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) (* 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)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1) (* (/ (* im im) (* re re)) 1/2) (/ (* im im) (* re re)) 1 (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (pow (+ (* im im) (* re re)) -1/2) (+ (* im im) (* re re)) (* re re) -1/2)
4.0ms
re
@inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 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) (* 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)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1) (* (/ (* im im) (* re re)) 1/2) (/ (* im im) (* re re)) 1 (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (pow (+ (* im im) (* re re)) -1/2) (+ (* im im) (* re re)) (* re re) -1/2)
4.0ms
re
@-inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 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) (* 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)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1) (* (/ (* im im) (* re re)) 1/2) (/ (* im im) (* re re)) 1 (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (pow (+ (* im im) (* re re)) -1/2) (+ (* im im) (* re re)) (* re re) -1/2)
3.0ms
im
@-inf
((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 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) (* 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)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1) (* (/ (* im im) (* re re)) 1/2) (/ (* im im) (* re re)) 1 (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (pow (+ (* im im) (* re re)) -1/2) (+ (* im im) (* re re)) (* re re) -1/2)

rewrite239.0ms (3.1%)

Memory
13.5MiB live, 384.7MiB allocated; 75ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0111314248
0115412160
1583311885
0812811591
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
374 → 517
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(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(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)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
(*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(neg.f64 re)
(+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))
(ratio-of-squares.f64 im re)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re))
(+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re)
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64)))
(pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 re re)
#s(literal -1/2 binary64)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (neg (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (/ (+ (* -1 (pow re 2)) (* -1/2 (pow im 2))) re)))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (* 1/2 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (/ (+ (* 1/2 (pow im 2)) (pow re 2)) (pow re 2))))
#s(approx (* (/ (* im im) (* re re)) 1/2) #s(hole binary64 (* 1/2 (/ (pow im 2) (pow re 2)))))
#s(approx (/ (* im im) (* re re)) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 im))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* -1 re)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* re (- (* -1/2 (/ (pow im 2) (pow re 2))) 1))))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 re)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (+ (* -1 re) (* -1/2 (/ (pow im 2) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) #s(hole binary64 (* (pow im 2) (- (* -1 (/ re (pow im 2))) (* 1/2 (/ 1 re))))))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(hole binary64 (* (pow im 2) (+ (/ 1 (pow im 2)) (* 1/2 (/ 1 (pow re 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (+ (* im im) (* re re)) #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 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 im)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
Outputs
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (sqrt.f64 #s(literal 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 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(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)))
(pow.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) #s(literal 1 binary64))
(pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(exp.f64 (*.f64 (log.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.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)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(+.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
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(literal 2 binary64)
(*.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))))
(*.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 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1 binary64))
(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)))
(exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/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(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 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 im im) (neg.f64 re)))))
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1 binary64))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
(*.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re)
(/.f64 (neg.f64 (*.f64 im im)) re)
(/.f64 (*.f64 im im) (neg.f64 re))
(neg.f64 (/.f64 (*.f64 im im) re))
(*.f64 im (/.f64 im re))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(/.f64 (*.f64 im im) re)
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (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))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (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))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re)))) (*.f64 #s(literal 2 binary64) re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re))
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re))))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re)))
(*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) re) #s(literal -1 binary64))
(*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re))
(*.f64 (neg.f64 re) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))))
(*.f64 #s(literal -1 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) re))
(neg.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) re))
(+.f64 (*.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) (neg.f64 re)) (*.f64 #s(literal 1 binary64) (neg.f64 re)))
(+.f64 (*.f64 (neg.f64 re) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))) (*.f64 (neg.f64 re) #s(literal 1 binary64)))
(*.f64 #s(literal -1 binary64) re)
(*.f64 re #s(literal -1 binary64))
(neg.f64 re)
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) (-.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (*.f64 (pow.f64 (ratio-of-squares.f64 im re) #s(literal 3 binary64)) #s(literal 1/8 binary64)) #s(literal 1 binary64)) (+.f64 (pow.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))))
(-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)))
(*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (ratio-of-squares.f64 im re))
(/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))
(*.f64 (/.f64 im re) (/.f64 im re))
(*.f64 im (/.f64 im (*.f64 re re)))
(ratio-of-squares.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(ratio-of-squares.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re))
(ratio-of-squares.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re))
(ratio-of-squares.f64 (pow.f64 im #s(literal 1 binary64)) re)
(ratio-of-squares.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 im) (fabs.f64 re))
(ratio-of-squares.f64 (neg.f64 im) (neg.f64 re))
(ratio-of-squares.f64 (neg.f64 im) re)
(ratio-of-squares.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64)))
(ratio-of-squares.f64 (fabs.f64 im) (fabs.f64 re))
(ratio-of-squares.f64 (fabs.f64 im) (neg.f64 re))
(ratio-of-squares.f64 (fabs.f64 im) re)
(ratio-of-squares.f64 im (pow.f64 re #s(literal 1 binary64)))
(ratio-of-squares.f64 im (fabs.f64 re))
(ratio-of-squares.f64 im (neg.f64 re))
(ratio-of-squares.f64 im re)
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (*.f64 re re)))
(/.f64 (/.f64 (*.f64 im im) re) re)
(/.f64 (*.f64 im im) (*.f64 re re))
#s(literal 1 binary64)
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(+.f64 (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))) (*.f64 #s(literal 2 binary64) re))
(+.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re) (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(/.f64 (-.f64 (pow.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))))
(*.f64 (pow.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64)) #s(literal -1 binary64)) (pow.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64)) #s(literal -1 binary64)))
(pow.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64)) #s(literal -1 binary64))
(pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re)))
(exp.f64 (*.f64 (log.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) #s(literal -1 binary64)))
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64)) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64)))
(pow.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))
(exp.f64 (*.f64 (log.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal -1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (log.f64 (+.f64 (*.f64 im im) (*.f64 re re))) #s(literal -1/2 binary64))))
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.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 im #s(literal 6 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (*.f64 re re) (*.f64 im 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)) (*.f64 (*.f64 im im) (*.f64 re re)))))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 re re)
(pow.f64 (pow.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 re #s(literal 1 binary64)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 re #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
#s(literal -1/2 binary64)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (-.f64 (sqrt.f64 im) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) #s(literal 1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))) re) (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im))) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) re) (sqrt.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) re) #s(literal 1 binary64)) re) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 re re)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64))) #s(literal 1/16 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)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.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)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64)))) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im)))
#s(approx (neg (/ (* im im) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (/.f64 (-.f64 (neg.f64 (*.f64 re re)) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))
#s(approx (neg re) (neg.f64 re))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) (ratio-of-squares.f64 re re)))
#s(approx (* (/ (* im im) (* re re)) 1/2) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)))
#s(approx (/ (* im im) (* re re)) (ratio-of-squares.f64 im re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.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)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64)))) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) re) #s(literal 1 binary64)) re) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 re re)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64))) #s(literal 1/16 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 (+ (* im im) (* re re)) -1/2) (pow.f64 im #s(literal -1 binary64)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 im #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64)))) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 re re)) (pow.f64 im #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 7/2 binary64))) #s(literal -5/16 binary64)) (*.f64 #s(literal -3/8 binary64) (pow.f64 im #s(literal -5 binary64)))) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 re re)) (pow.f64 im #s(literal -1 binary64))))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (+.f64 (*.f64 im im) (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (*.f64 #s(literal 2 binary64) re)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64)) (+.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64)))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) (pow.f64 #s(literal 2 binary64) #s(literal 3/4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64)) (+.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/4 binary64)))) (*.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 #s(literal 4 binary64) (ratio-of-squares.f64 im re)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re))) re))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (neg.f64 re))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)) #s(literal 1 binary64)) re))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 #s(literal 4 binary64) (ratio-of-squares.f64 im re)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (pow.f64 re #s(literal -1 binary64)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re))) #s(literal 1 binary64)) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re)))) re))
#s(approx (+ (* im im) (* re re)) (*.f64 re re))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.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)) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pown3/2s.f64 re)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/512 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pown3/2s.f64 re)))) (*.f64 (*.f64 (/.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)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64)) (*.f64 (*.f64 im im) #s(literal -1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 im im) #s(literal -1/2 binary64))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.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))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 im im) #s(literal -1/2 binary64)))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))) re)))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 1/8 binary64)) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64)) (*.f64 (*.f64 im im) #s(literal -1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 im im) #s(literal -1/2 binary64))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.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))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (*.f64 im im) #s(literal -1/2 binary64)))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 #s(literal -1 binary64) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re))) #s(literal 1 binary64)) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re)))) re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #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)) (+.f64 (*.f64 (*.f64 (pown3/2s.f64 re) (ratio-of-squares.f64 im (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (sqrt.f64 (*.f64 #s(literal 2 binary64) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal 2 binary64) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal 2 binary64) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 (*.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) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) (*.f64 #s(literal 2 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 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))) (-.f64 re (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) re))
#s(approx im im)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* im im) (*.f64 im im))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (-.f64 (neg.f64 re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal 2 binary64))) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 (*.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) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) (*.f64 #s(literal 2 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 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))) (-.f64 re (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 re #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 3/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 7/2 binary64))) #s(literal -5/16 binary64)) (*.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (-.f64 (pow.f64 im #s(literal -1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 (pown3/2s.f64 im) re))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (pown3/2s.f64 im) re))) (pow.f64 im #s(literal -1/2 binary64))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (pow.f64 im #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 re re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (pown3/2s.f64 im) 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) (*.f64 (+.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (/.f64 re im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) (ratio-of-squares.f64 re im))) im))
#s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 (/.f64 (neg.f64 re) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (+ (* (/ (* im im) (* re re)) 1/2) 1) (*.f64 (-.f64 (pow.f64 im #s(literal -2 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -2 binary64)))) (*.f64 im im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) (ratio-of-squares.f64 re im))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (/.f64 re im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)))) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (ratio-of-squares.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (ratio-of-squares.f64 re im)))) im))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (ratio-of-squares.f64 re im) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.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 2))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (sqrt.f64 (neg.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re))) (+.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 re (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64))) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.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 2))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/4 binary64)) (*.f64 re re)) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.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 2))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/4 binary64)) (*.f64 re re)) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 re (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64))) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 re re))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 #s(literal -1 binary64) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (ratio-of-squares.f64 re im))) #s(literal 1 binary64)) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (ratio-of-squares.f64 re im)))) im)))

eval575.0ms (7.4%)

Memory
-30.3MiB live, 870.1MiB allocated; 239ms collecting garbage
Samples
313.0ms6 376×0valid
59.0ms1 304×0invalid
Compiler

Compiled 12 114 to 2 457 computations (79.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 198.0ms
ival-mult: 128.0ms (64.7% of total)
ival-div: 42.0ms (21.2% of total)
ival-pow: 14.0ms (7.1% of total)
ival-true: 5.0ms (2.5% of total)
ival-sqrt: 4.0ms (2% of total)
ival-assert: 3.0ms (1.5% of total)
adjust: 2.0ms (1% of total)
exact: 1.0ms (0.5% of total)

prune371.0ms (4.8%)

Memory
-11.7MiB live, 367.7MiB allocated; 52ms collecting garbage
Pruning

21 alts after pruning (13 fresh and 8 done)

PrunedKeptTotal
New3988406
Fresh257
Picked325
Done066
Total40321424
Accuracy
89.7%
Counts
424 → 21
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓40.5%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
✓53.8%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
14.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
50.4%
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) #s(literal 1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))) re) (sqrt.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
▶51.6%
(*.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))))
▶54.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re))))
✓40.8%
(*.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.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))))
6.2%
(*.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))))
6.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) #s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)) #s(literal 1 binary64)) re))) re))))
✓54.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
32.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im)))))
▶51.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
✓26.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
✓27.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
▶13.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))))
✓14.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
48.0%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
48.1%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
▶50.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))))
Samples
245.0ms3 794×0valid
12.0ms302×0invalid
Compiler

Compiled 907 to 642 computations (29.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 164.0ms
ival-mult: 111.0ms (67.6% of total)
ival-div: 24.0ms (14.6% of total)
ival-pow: 16.0ms (9.7% of total)
ival-sqrt: 7.0ms (4.3% of total)
ival-true: 3.0ms (1.8% of total)
ival-assert: 2.0ms (1.2% of total)
adjust: 1.0ms (0.6% of total)
exact: 1.0ms (0.6% of total)

series130.0ms (1.7%)

Memory
18.2MiB live, 196.9MiB allocated; 69ms collecting garbage
Counts
54 → 441
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re))
#s(literal 2 binary64)
(+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re)
(/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)))
#s(literal 1 binary64)
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)
(-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))
(*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))
(ratio-of-squares.f64 re im)
re
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))))
(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)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64)))
(*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))
(neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re))
(/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)
(+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im))
(*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))
(ratio-of-squares.f64 (*.f64 im im) re)
(*.f64 im im)
#s(literal -1/4 binary64)
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
(+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
(*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re)
(+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
(*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(pow.f64 im #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(sqrt.f64 #s(literal 2 binary64))
(*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im))
#s(literal 1/8 binary64)
(pown3/2s.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(sqrt.f64 (*.f64 #s(literal 2 binary64) im))
(*.f64 #s(literal 2 binary64) im)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 im))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (/ 1 im)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 1))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (+ 1 (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (/ (* re re) (* im im)) 1/2) #s(hole binary64 (* 1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (/ (* re re) (* im im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx re #s(hole binary64 re))
#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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (* 2 re)))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (* 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 (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* 1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (/ (- (* -1 (* (pow im 2) (pow re 2))) (* -1/4 (pow im 4))) (pow re 3))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 3))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 2)))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 2))))
#s(approx (* (/ (* (* im im) (* im im)) (* re re)) -1/4) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 2)))))
#s(approx (/ (* (* im im) (* im im)) (* re re)) #s(hole binary64 (/ (pow im 4) (pow re 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #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 (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2))))))
#s(approx (* (sqrt 2) re) #s(hole binary64 (* re (sqrt 2))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 3)))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (* (pow re 2) (- (/ 1 (* im (pow re 2))) (* 1/2 (/ 1 (pow im 3)))))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (* (pow re 2) (- (/ 1 (pow re 2)) (* 1/2 (/ 1 (pow im 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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (* (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 (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (/ (- (* 1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (sqrt 2))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (pow re 2) (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re)))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (pow re 2) (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* (sqrt im) (/ (sqrt 2) (pow re 2))))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (sqrt 2))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* (pow re 2) (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re)))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 re)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) 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)))) #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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* -1 (/ (- (* -1/4 (/ (pow im 4) (pow re 2))) (* -1 (pow im 2))) re))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* -1 (/ (+ (* -1 (pow im 2)) (* 1/4 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2)))) re)) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* -1 (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (/ (+ (* -1/2 (pow re 2)) (pow im 2)) (pow im 3))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (/ (- (pow im 2) (* 1/2 (pow re 2))) (pow im 2))))
#s(approx im #s(hole binary64 im))
#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 (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (* im 2) #s(hole binary64 (* 2 im)))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (pow im 3)) (* re (sqrt 2))))) (pow im 2))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt 2)))) (* im (+ (* 1/2 (* (sqrt im) (* re (sqrt 2)))) (* (sqrt (pow im 3)) (sqrt 2))))) (pow im 2))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (pow im 3)) (* re (sqrt 2))))) (pow im 2))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* re (sqrt 2)))) (* 1/2 (* (sqrt (pow im 3)) (sqrt 2)))) (pow im 2))))
#s(approx (* (* (pow im -1/2) 1/2) (sqrt 2)) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* (pow im -1/2) 1/2) #s(hole binary64 (* 1/2 (sqrt (/ 1 im)))))
#s(approx (pow im -1/2) #s(hole binary64 (sqrt (/ 1 im))))
#s(approx (* 1/8 (sqrt (/ 1 (pow im 3)))) #s(hole binary64 (* 1/8 (sqrt (/ 1 (pow im 3))))))
#s(approx (sqrt (/ 1 (pow im 3))) #s(hole binary64 (sqrt (/ 1 (pow im 3)))))
#s(approx (sqrt (* 2 im)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* 2 im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (+ (* 2 re) (/ (pow re 2) im))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* (pow im 4) (- (* 1/4 (/ 1 (pow re 3))) (/ 1 (* (pow im 2) re))))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* (pow im 4) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (* (pow im 4) (- (/ 1 (pow im 2)) (* 1/4 (/ 1 (pow re 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* im (+ (* 1/8 (* (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 (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 im)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (* -1 (/ (- (* 1/2 (/ (pow re 2) (pow im 2))) 1) 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)))) #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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -2) (sqrt -1))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (* (pow (sqrt -1) 2) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* re (* (pow (sqrt -1) 2) (sqrt 2)))))) im)) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* re (* (pow (sqrt -1) 2) (sqrt 2)))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (+ (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (* (pow (sqrt -1) 2) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* re (* (pow (sqrt -1) 2) (sqrt 2))))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* (pow (sqrt -1) 2) (sqrt 2))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (+ (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (pow (sqrt -1) 2) (sqrt 2)))))))
#s(approx (* (* (pow im -1/2) 1/2) (sqrt 2)) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* (pow (sqrt -1) 2) (sqrt 2))))))
#s(approx (* (pow im -1/2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (pow (sqrt -1) 2)))))
#s(approx (pow im -1/2) #s(hole binary64 (* (sqrt (/ 1 im)) (pow (sqrt -1) 2))))
#s(approx (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) #s(hole binary64 (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2)))))))
#s(approx (* 1/8 (sqrt (/ 1 (pow im 3)))) #s(hole binary64 (* -1/8 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ 1 (pow im 3))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (* 2 im)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -2) (sqrt -1))))))
Calls

6 calls:

TimeVariablePointExpression
27.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 1 (pow (+ (* im im) (* re re)) -1/2) (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (- 1 (* (/ (* re re) (* im im)) 1/2)) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) re im (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (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) (* 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 2)) (* (+ (/ re im) 2) re) (+ (/ re im) 2) (/ re im) (* im 2) (* 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) (* im im)) (* re re)) -1/4) (* im im)) re)) (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (/ (* (* im im) (* im im)) (* re re)) (* im im) -1/4 (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (pow im -1/2) 1/2) (pow im -1/2) -1/2 (sqrt 2) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))) 1/8 (sqrt (/ 1 (pow im 3))) (* (sqrt 2) re) (sqrt (* 2 im)) (* 2 im))
26.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 1 (pow (+ (* im im) (* re re)) -1/2) (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (- 1 (* (/ (* re re) (* im im)) 1/2)) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) re im (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (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) (* 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 2)) (* (+ (/ re im) 2) re) (+ (/ re im) 2) (/ re im) (* im 2) (* 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) (* im im)) (* re re)) -1/4) (* im im)) re)) (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (/ (* (* im im) (* im im)) (* re re)) (* im im) -1/4 (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (pow im -1/2) 1/2) (pow im -1/2) -1/2 (sqrt 2) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))) 1/8 (sqrt (/ 1 (pow im 3))) (* (sqrt 2) re) (sqrt (* 2 im)) (* 2 im))
18.0ms
re
@0
((* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 1 (pow (+ (* im im) (* re re)) -1/2) (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (- 1 (* (/ (* re re) (* im im)) 1/2)) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) re im (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (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) (* 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 2)) (* (+ (/ re im) 2) re) (+ (/ re im) 2) (/ re im) (* im 2) (* 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) (* im im)) (* re re)) -1/4) (* im im)) re)) (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (/ (* (* im im) (* im im)) (* re re)) (* im im) -1/4 (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (pow im -1/2) 1/2) (pow im -1/2) -1/2 (sqrt 2) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))) 1/8 (sqrt (/ 1 (pow im 3))) (* (sqrt 2) re) (sqrt (* 2 im)) (* 2 im))
9.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 1 (pow (+ (* im im) (* re re)) -1/2) (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (- 1 (* (/ (* re re) (* im im)) 1/2)) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) re im (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (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) (* 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 2)) (* (+ (/ re im) 2) re) (+ (/ re im) 2) (/ re im) (* im 2) (* 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) (* im im)) (* re re)) -1/4) (* im im)) re)) (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (/ (* (* im im) (* im im)) (* re re)) (* im im) -1/4 (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (pow im -1/2) 1/2) (pow im -1/2) -1/2 (sqrt 2) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))) 1/8 (sqrt (/ 1 (pow im 3))) (* (sqrt 2) re) (sqrt (* 2 im)) (* 2 im))
9.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 1 (pow (+ (* im im) (* re re)) -1/2) (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (- 1 (* (/ (* re re) (* im im)) 1/2)) (* (/ (* re re) (* im im)) 1/2) (/ (* re re) (* im im)) re im (* 1/2 (sqrt (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)))) (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) (* 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 2)) (* (+ (/ re im) 2) re) (+ (/ re im) 2) (/ re im) (* im 2) (* 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) (* im im)) (* re re)) -1/4) (* im im)) re)) (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (/ (* (* im im) (* im im)) (* re re)) (* im im) -1/4 (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (pow im -1/2) 1/2) (pow im -1/2) -1/2 (sqrt 2) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))) 1/8 (sqrt (/ 1 (pow im 3))) (* (sqrt 2) re) (sqrt (* 2 im)) (* 2 im))

rewrite295.0ms (3.8%)

Memory
7.3MiB live, 281.5MiB allocated; 107ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0148118558
0154815713
1785115709
0918915431
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
495 → 644
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re))
#s(literal 2 binary64)
(+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re)
(/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)))
#s(literal 1 binary64)
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)
(-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))
(*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))
(ratio-of-squares.f64 re im)
re
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))))
(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)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64)))
(*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))
(neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re))
(/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)
(+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im))
(*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))
(ratio-of-squares.f64 (*.f64 im im) re)
(*.f64 im im)
#s(literal -1/4 binary64)
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))))
(+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
(*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re)
(+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
(*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(pow.f64 im #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(sqrt.f64 #s(literal 2 binary64))
(*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im))
#s(literal 1/8 binary64)
(pown3/2s.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(sqrt.f64 (*.f64 #s(literal 2 binary64) im))
(*.f64 #s(literal 2 binary64) im)
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 im))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* 3/8 (/ (pow re 2) (pow im 5))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow re 2) (- (* (pow re 2) (+ (* -5/16 (/ (pow re 2) (pow im 7))) (* 3/8 (/ 1 (pow im 5))))) (* 1/2 (/ 1 (pow im 3))))) (/ 1 im))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (/ 1 im)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (+ (* -1/2 (/ (pow re 2) (pow im 3))) (/ 1 im))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 1))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (+ 1 (* -1/2 (/ (pow re 2) (pow im 2))))))
#s(approx (* (/ (* re re) (* im im)) 1/2) #s(hole binary64 (* 1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (/ (* re re) (* im im)) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx re #s(hole binary64 re))
#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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (* 2 re)))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (* 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 (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* 1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (/ (- (* -1 (* (pow im 2) (pow re 2))) (* -1/4 (pow im 4))) (pow re 3))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 3))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 2)))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 2))))
#s(approx (* (/ (* (* im im) (* im im)) (* re re)) -1/4) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 2)))))
#s(approx (/ (* (* im im) (* im im)) (* re re)) #s(hole binary64 (/ (pow im 4) (pow re 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #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 (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2))))))
#s(approx (* (sqrt 2) re) #s(hole binary64 (* re (sqrt 2))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ 1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) re)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 3)))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (* (pow re 2) (- (/ 1 (* im (pow re 2))) (* 1/2 (/ 1 (pow im 3)))))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (* -1/2 (/ (pow re 2) (pow im 2)))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (* (pow re 2) (- (/ 1 (pow re 2)) (* 1/2 (/ 1 (pow im 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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (* (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 (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (/ (- (* 1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (sqrt 2))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (pow re 2) (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re)))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (pow re 2) (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* (sqrt im) (/ (sqrt 2) (pow re 2))))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (sqrt 2))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* (pow re 2) (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re)))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 re)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow im 2) (pow re 2)))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (* -1/2 (/ (pow im 2) (pow re 2))))) re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))) (pow re 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow im 2) (+ (* -1 (pow im 4)) (* 1/4 (pow im 4))))) (pow im 6)) (pow re 6))) (* -1/2 (/ (pow im 2) (pow re 2)))))) 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)))) #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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* -1 (/ (- (* -1/4 (/ (pow im 4) (pow re 2))) (* -1 (pow im 2))) re))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* -1 (/ (+ (* -1 (pow im 2)) (* 1/4 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (+ (* -1 (* (sqrt im) (/ (sqrt 2) re))) (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2)))) re)) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* -1 (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (/ (sqrt 2) re))) (* -1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* 3/8 (/ (pow im 2) (pow re 5))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/16 (/ (pow im 2) (pow re 7))) (* 3/8 (/ 1 (pow re 5))))) (* 1/2 (/ 1 (pow re 3))))) (/ 1 re))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (/ (+ (* -1/2 (pow re 2)) (pow im 2)) (pow im 3))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(hole binary64 (/ (- (pow im 2) (* 1/2 (pow re 2))) (pow im 2))))
#s(approx im #s(hole binary64 im))
#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 (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx (* im 2) #s(hole binary64 (* 2 im)))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* (pow im 2) (- (* 1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (pow im 3)) (* re (sqrt 2))))) (pow im 2))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt 2)))) (* im (+ (* 1/2 (* (sqrt im) (* re (sqrt 2)))) (* (sqrt (pow im 3)) (sqrt 2))))) (pow im 2))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (pow im 3)) (* re (sqrt 2))))) (pow im 2))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (/ (+ (* 1/8 (* (sqrt im) (* re (sqrt 2)))) (* 1/2 (* (sqrt (pow im 3)) (sqrt 2)))) (pow im 2))))
#s(approx (* (* (pow im -1/2) 1/2) (sqrt 2)) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))
#s(approx (* (pow im -1/2) 1/2) #s(hole binary64 (* 1/2 (sqrt (/ 1 im)))))
#s(approx (pow im -1/2) #s(hole binary64 (sqrt (/ 1 im))))
#s(approx (* 1/8 (sqrt (/ 1 (pow im 3)))) #s(hole binary64 (* 1/8 (sqrt (/ 1 (pow im 3))))))
#s(approx (sqrt (/ 1 (pow im 3))) #s(hole binary64 (sqrt (/ 1 (pow im 3)))))
#s(approx (sqrt (* 2 im)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* 2 im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im)))
#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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (+ (/ re im) 2) re) #s(hole binary64 (+ (* 2 re) (/ (pow re 2) im))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) #s(hole binary64 (* (pow im 4) (- (* 1/4 (/ 1 (pow re 3))) (/ 1 (* (pow im 2) re))))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) #s(hole binary64 (* (pow im 4) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) #s(hole binary64 (* (pow im 4) (- (/ 1 (pow im 2)) (* 1/4 (/ 1 (pow re 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* im (+ (* 1/8 (* (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 (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (/ 1 (pow (+ (* im im) (* re re)) -1/2)) 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 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 im)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) #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 (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (/ -1 im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (* -1/2 (/ (pow re 2) (pow im 2)))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (* -1/2 (/ (pow re 2) (pow im 2))))) im))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) #s(hole binary64 (* -1 (/ (+ 1 (+ (* -1/2 (/ (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))) (pow im 4))) (+ (* -1/2 (/ (+ (* 1/2 (* (pow re 2) (+ (* -1 (pow re 4)) (* 1/4 (pow re 4))))) (pow re 6)) (pow im 6))) (* -1/2 (/ (pow re 2) (pow im 2)))))) im))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) #s(hole binary64 (* -1 (/ (- (* 1/2 (/ (pow re 2) (pow im 2))) 1) 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)))) #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 (+ (* 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 (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -2) (sqrt -1))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (* (pow (sqrt -1) 2) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* re (* (pow (sqrt -1) 2) (sqrt 2)))))) im)) (* (sqrt (/ 1 im)) (* (sqrt -2) (sqrt -1))))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* re (* (pow (sqrt -1) 2) (sqrt 2)))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) #s(hole binary64 (+ (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* (pow re 2) (* (pow (sqrt -1) 2) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* re (* (pow (sqrt -1) 2) (sqrt 2))))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* (pow (sqrt -1) 2) (sqrt 2))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) #s(hole binary64 (+ (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (pow (sqrt -1) 2) (sqrt 2)))))))
#s(approx (* (* (pow im -1/2) 1/2) (sqrt 2)) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (* (pow (sqrt -1) 2) (sqrt 2))))))
#s(approx (* (pow im -1/2) 1/2) #s(hole binary64 (* 1/2 (* (sqrt (/ 1 im)) (pow (sqrt -1) 2)))))
#s(approx (pow im -1/2) #s(hole binary64 (* (sqrt (/ 1 im)) (pow (sqrt -1) 2))))
#s(approx (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) #s(hole binary64 (* -1/8 (* (sqrt (/ 1 (pow im 3))) (* re (* (pow (sqrt -1) 2) (sqrt 2)))))))
#s(approx (* 1/8 (sqrt (/ 1 (pow im 3)))) #s(hole binary64 (* -1/8 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (/ 1 (pow im 3))) #s(hole binary64 (* -1 (* (sqrt (/ 1 (pow im 3))) (pow (sqrt -1) 2)))))
#s(approx (sqrt (* 2 im)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -2) (sqrt -1))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re)))
(pow.f64 (*.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re))
(+.f64 (*.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 2 binary64) (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64))) (*.f64 re #s(literal 2 binary64)))
(+.f64 (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re) (+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re))
#s(literal 2 binary64)
(/.f64 (-.f64 (*.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64))) (*.f64 re re)) (-.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re))
(/.f64 (+.f64 (pow.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (*.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64))) (-.f64 (*.f64 re re) (*.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re))))
(+.f64 (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)) re)
(+.f64 re (pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64)))
(pow.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)) #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))))
(/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)))
(exp.f64 (*.f64 (log.f64 #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) #s(literal -1 binary64)))
#s(literal 1 binary64)
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))) (neg.f64 im))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)
(-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) im))
(+.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)) im))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))))))
(-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (ratio-of-squares.f64 re im)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)))
(*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (ratio-of-squares.f64 re im))
(/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))
(*.f64 (/.f64 re im) (/.f64 re im))
(*.f64 re (/.f64 re (*.f64 im im)))
(ratio-of-squares.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(ratio-of-squares.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im))
(ratio-of-squares.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im))
(ratio-of-squares.f64 (pow.f64 re #s(literal 1 binary64)) im)
(ratio-of-squares.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 re) (neg.f64 im))
(ratio-of-squares.f64 (neg.f64 re) (fabs.f64 im))
(ratio-of-squares.f64 (neg.f64 re) im)
(ratio-of-squares.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64)))
(ratio-of-squares.f64 (fabs.f64 re) (neg.f64 im))
(ratio-of-squares.f64 (fabs.f64 re) (fabs.f64 im))
(ratio-of-squares.f64 (fabs.f64 re) im)
(ratio-of-squares.f64 re (pow.f64 im #s(literal 1 binary64)))
(ratio-of-squares.f64 re (neg.f64 im))
(ratio-of-squares.f64 re (fabs.f64 im))
(ratio-of-squares.f64 re im)
(/.f64 (neg.f64 (*.f64 re re)) (neg.f64 (*.f64 im im)))
(/.f64 (/.f64 (*.f64 re re) im) im)
(/.f64 (*.f64 re re) (*.f64 im im))
re
im
(*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
(pow.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)))
(exp.f64 (*.f64 (log.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))
(/.f64 (-.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))) (-.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))
(/.f64 (+.f64 (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 3 binary64))) (+.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (-.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)))))
(+.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)
(*.f64 (sqrt.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
(pow.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.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 (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64)))))
(exp.f64 (*.f64 (log.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 im #s(literal 2 binary64))) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) (-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)))
(/.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 im #s(literal 2 binary64)) (*.f64 im #s(literal 2 binary64)))) (-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 im #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 im #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.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 im #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (-.f64 (*.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 im #s(literal 2 binary64))) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
(-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (neg.f64 im) #s(literal 2 binary64)))
(-.f64 (*.f64 im #s(literal 2 binary64)) (*.f64 (neg.f64 re) (+.f64 (/.f64 re im) #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 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)
(*.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)))
(+.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 (/.f64 re im) re))
(+.f64 (*.f64 re #s(literal 2 binary64)) (*.f64 re (/.f64 re im)))
(/.f64 (-.f64 (ratio-of-squares.f64 re im) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal 4 binary64) (ratio-of-squares.f64 re im)) (-.f64 #s(literal 2 binary64) (/.f64 re im)))
(/.f64 (+.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (+.f64 (ratio-of-squares.f64 re im) (-.f64 #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 (ratio-of-squares.f64 re im) (*.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 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(+.f64 im im)
(*.f64 (sqrt.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re)))))
(pow.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re))))
(exp.f64 (*.f64 (log.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re)))) #s(literal 1/2 binary64)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re)))
(*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re))
(*.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re) #s(literal -1 binary64))
(/.f64 (*.f64 #s(literal -1 binary64) (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im))) re)
(/.f64 (neg.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im))) re)
(/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re))
(neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re))
(/.f64 (neg.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im))) (neg.f64 re))
(/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)
(+.f64 (/.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) re) (/.f64 (*.f64 im im) re))
(/.f64 (-.f64 (*.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) (pow.f64 im #s(literal 4 binary64))) (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)))
(/.f64 (+.f64 (pow.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 im im) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) (-.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)))))
(-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im))
(+.f64 (*.f64 im im) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))
(*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (*.f64 im im) re))
(/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (*.f64 re re))
(*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re))
(*.f64 (*.f64 im im) (ratio-of-squares.f64 im re))
(ratio-of-squares.f64 (neg.f64 (*.f64 im im)) (pow.f64 re #s(literal 1 binary64)))
(ratio-of-squares.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(ratio-of-squares.f64 (neg.f64 (*.f64 im im)) (fabs.f64 re))
(ratio-of-squares.f64 (neg.f64 (*.f64 im im)) re)
(ratio-of-squares.f64 (fabs.f64 (*.f64 im im)) (pow.f64 re #s(literal 1 binary64)))
(ratio-of-squares.f64 (fabs.f64 (*.f64 im im)) (neg.f64 re))
(ratio-of-squares.f64 (fabs.f64 (*.f64 im im)) (fabs.f64 re))
(ratio-of-squares.f64 (fabs.f64 (*.f64 im im)) re)
(ratio-of-squares.f64 (*.f64 im im) (pow.f64 re #s(literal 1 binary64)))
(ratio-of-squares.f64 (*.f64 im im) (neg.f64 re))
(ratio-of-squares.f64 (*.f64 im im) (fabs.f64 re))
(ratio-of-squares.f64 (*.f64 im im) re)
(/.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) re) re)
(/.f64 (neg.f64 (pow.f64 im #s(literal 4 binary64))) (neg.f64 (*.f64 re re)))
(/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re))
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 im #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
#s(literal -1/4 binary64)
(*.f64 #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re)) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))) (-.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re)) (-.f64 (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))) (*.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))))
(+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
(+.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re))
(*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re)
(*.f64 re (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))) (-.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 3 binary64))) (+.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))))))
(-.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
(+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
(+.f64 (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 im #s(literal -1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))
(*.f64 (pow.f64 im #s(literal -1/4 binary64)) (pow.f64 im #s(literal -1/4 binary64)))
(pow.f64 im #s(literal -1/2 binary64))
(exp.f64 (*.f64 (log.f64 im) #s(literal -1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal -1/2 binary64))))
#s(literal -1/2 binary64)
(*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal -1 binary64)))
(*.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 #s(literal -2 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
(*.f64 (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64))) re)
(*.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/8 binary64))
(*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)))
(*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (pown3/2s.f64 im) re) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64))
(*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im))
#s(literal 1/8 binary64)
(pown3/2s.f64 im)
(pow.f64 (pow.f64 im #s(literal 3/2 binary64)) #s(literal -1 binary64))
(pow.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal 3/2 binary64)))
(sqrt.f64 (pow.f64 im #s(literal -3 binary64)))
(exp.f64 (*.f64 (log.f64 (pow.f64 im #s(literal -3 binary64))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) re)
(*.f64 re (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)) (sqrt.f64 #s(literal -1 binary64)))
(*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))
(pow.f64 (*.f64 im #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 im #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(+.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im #s(literal 2 binary64)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) im)
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (+.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) (*.f64 re re)) im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 re re)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re)) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (pow.f64 im #s(literal -1 binary64)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 im #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 5/2 binary64)))) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 re re)) (pow.f64 im #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 7/2 binary64))) #s(literal -5/16 binary64)) (*.f64 #s(literal -3/8 binary64) (pow.f64 im #s(literal -5 binary64)))) (*.f64 re re)) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 re re)) (pow.f64 im #s(literal -1 binary64))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (pow.f64 im #s(literal -1 binary64)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 im #s(literal -1 binary64))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) #s(literal 1 binary64))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))))
#s(approx (* (/ (* re re) (* im im)) 1/2) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)))
#s(approx (/ (* re re) (* im im)) (ratio-of-squares.f64 re im))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (*.f64 re (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (pow.f64 (*.f64 im #s(literal 2 binary64)) #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (tanh.f64 (asinh.f64 #s(literal 1 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (*.f64 (*.f64 re (/.f64 (-.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 4 binary64)) (/.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (pow.f64 (*.f64 im #s(literal 2 binary64)) #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))) re) (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (tanh.f64 (asinh.f64 #s(literal 1 binary64))))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 re (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (pow.f64 (*.f64 im #s(literal 2 binary64)) #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (tanh.f64 (asinh.f64 #s(literal 1 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 re (/.f64 (-.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 4 binary64)) (/.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (pow.f64 (*.f64 im #s(literal 2 binary64)) #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))) re) (*.f64 (tanh.f64 (asinh.f64 #s(literal 1 binary64))) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im #s(literal 2 binary64)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im #s(literal 2 binary64)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re im)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 im #s(literal -1 binary64))) re) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 im #s(literal 2 binary64)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 #s(literal 2 binary64) (+.f64 re im)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))
#s(approx (* (+ (/ re im) 2) re) (*.f64 re #s(literal 2 binary64)))
#s(approx (* (+ (/ re im) 2) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
#s(approx (+ (/ re im) 2) #s(literal 2 binary64))
#s(approx (+ (/ re im) 2) (+.f64 (/.f64 re im) #s(literal 2 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1/4 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (/.f64 (-.f64 (neg.f64 (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 3 binary64))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (/.f64 (+.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (pow.f64 re #s(literal 3 binary64))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (/.f64 (+.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))) (*.f64 re re)))
#s(approx (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))
#s(approx (/ (* (* im im) (* im im)) (* re re)) (ratio-of-squares.f64 (*.f64 im im) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64)) (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64)))) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (+.f64 (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (*.f64 (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (+.f64 (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))))
#s(approx (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
#s(approx (* (sqrt 2) re) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) 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)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re)) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re #s(literal 2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))) re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) re)
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)) re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 1 binary64)) re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (pow.f64 re #s(literal -1 binary64)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re))) #s(literal 1 binary64)) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re)))) re))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (*.f64 (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))) #s(literal -1/2 binary64)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 re re) im) #s(literal -1 binary64)) (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 re re)))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) (*.f64 (-.f64 (pow.f64 re #s(literal -2 binary64)) (*.f64 (pow.f64 im #s(literal -2 binary64)) #s(literal 1/2 binary64))) (*.f64 re re)))
#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 (+.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) (+.f64 (*.f64 (*.f64 #s(literal -1/128 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/64 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) 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)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re)) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re #s(literal 2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) 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)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re)) #s(literal 4 binary64)) re))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -1/4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re))) re))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (/.f64 (*.f64 re re) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (+.f64 (*.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64)) (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64)))) (*.f64 re re)))
#s(approx (* (+ (/ re im) 2) re) (/.f64 (*.f64 re re) im))
#s(approx (* (+ (/ re im) 2) re) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re)))
#s(approx (+ (/ re im) 2) (/.f64 re im))
#s(approx (+ (/ re im) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) re))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal 1/4 binary64)) (*.f64 im im)) re))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (/.f64 (*.f64 im im) re))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 im im))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) #s(literal 2 binary64))))) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 #s(literal -2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) re))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (+.f64 (*.f64 (/.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) re) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 re re)))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (+.f64 (+.f64 (/.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) (*.f64 re re)) (*.f64 (/.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) re) #s(literal 1/2 binary64))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 re re)))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (*.f64 (+.f64 (*.f64 (/.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) re) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 re re)))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (*.f64 (+.f64 (*.f64 (/.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) re) #s(literal 1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#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)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.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))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) re)))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (neg.f64 re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (neg.f64 re) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (neg.f64 re) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64))))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 #s(literal -1 binary64) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64))) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (ratio-of-squares.f64 im re))) #s(literal 1 binary64)) re)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 6 binary64))) (ratio-of-squares.f64 im re)))) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (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)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pown3/2s.f64 re)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pown3/2s.f64 re)) #s(literal 9/256 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/8 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pown3/2s.f64 re)))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pown3/2s.f64 re)) #s(literal 9/128 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/8 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#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)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (+.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))) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/8 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1/2 binary64) (*.f64 im im)))) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#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)) (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) (neg.f64 re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64)))) (+.f64 (+.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal 6 binary64))) (pow.f64 re #s(literal 4 binary64))) (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)))) re)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (/.f64 im re) #s(literal -2 binary64)) #s(literal 2 binary64)) re)) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re)))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (neg.f64 (*.f64 im im))) re)))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (neg.f64 (/.f64 (-.f64 (neg.f64 (*.f64 im im)) (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64))) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re)) #s(literal 1/1024 binary64)) (*.f64 #s(literal -1/64 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64)) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pown3/2s.f64 re))) (*.f64 #s(literal -1/32 binary64) (*.f64 (pown3/2s.f64 re) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (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/16 binary64))) (pow.f64 re #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re)) (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 re re)))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (*.f64 (neg.f64 re) (-.f64 (*.f64 (/.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) re) #s(literal -1/2 binary64)) (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.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)))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -2 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #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)) (+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 (*.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) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (-.f64 re (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) re))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) re))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 re #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 3/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (+.f64 (*.f64 (-.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 7/2 binary64))) #s(literal -5/16 binary64)) (*.f64 #s(literal -3/8 binary64) (pow.f64 re #s(literal -5 binary64)))) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (/.f64 (-.f64 (*.f64 im im) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) (pow.f64 im #s(literal 3 binary64))))
#s(approx (- 1 (* (/ (* re re) (* im im)) 1/2)) (-.f64 (ratio-of-squares.f64 im im) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -5/128 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -7 binary64)))) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (sqrt.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 21/1024 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -11 binary64)))) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -7 binary64))) #s(literal -5/128 binary64))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (sqrt.f64 re)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -2 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -5/64 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -7 binary64)))) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 21/512 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -11 binary64)))) (*.f64 #s(literal -5/64 binary64) (sqrt.f64 (pow.f64 re #s(literal -7 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #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)) (+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (-.f64 (*.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) (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/8 binary64))) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/16 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)) (*.f64 re #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.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)))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -2 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #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)) (+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 5/2 binary64))) #s(literal 1/8 binary64)) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (/.f64 (+.f64 (*.f64 (*.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (/.f64 (+.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re im)) im) (*.f64 re re)) im))
#s(approx (* (+ (/ re im) 2) re) (/.f64 (+.f64 (*.f64 (*.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) im))
#s(approx (+ (/ re im) 2) (/.f64 (+.f64 (*.f64 im #s(literal 2 binary64)) re) im))
#s(approx (* im 2) (*.f64 im #s(literal 2 binary64)))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im (pow.f64 re #s(literal 3/2 binary64))) #s(literal -1/4 binary64)) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im)))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/4 binary64)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 re))) (*.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)))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/8 binary64))) (*.f64 im im)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pown3/2s.f64 re)) (*.f64 #s(literal -2 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (pown3/2s.f64 re))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))) (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64)) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 re re) #s(literal 2 binary64))) #s(literal -1/4 binary64))) (*.f64 im im)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64))))) (*.f64 im im)) (*.f64 (pown3/2s.f64 re) #s(literal 1/4 binary64))) (*.f64 im im)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 im)) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 im im)))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (/.f64 (+.f64 (*.f64 (+.f64 (*.f64 (pow.f64 im #s(literal 3/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) im) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 im)) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 im im)))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 im)) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 im im)))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (/.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal 3/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) (*.f64 im im)))
#s(approx (* (* (pow im -1/2) 1/2) (sqrt 2)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (pow im -1/2) 1/2) (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)))
#s(approx (pow im -1/2) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))
#s(approx (* 1/8 (sqrt (/ 1 (pow im 3)))) (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)))
#s(approx (sqrt (/ 1 (pow im 3))) (pown3/2s.f64 im))
#s(approx (sqrt (* 2 im)) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))
#s(approx (* im 2) (*.f64 im #s(literal 2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.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)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) (ratio-of-squares.f64 re im))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (/.f64 re im))) im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) #s(literal 1 binary64)) im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)))) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (ratio-of-squares.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (ratio-of-squares.f64 re im)))) im))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (ratio-of-squares.f64 re (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3/2 binary64)))) (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (ratio-of-squares.f64 re (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 3/2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.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)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) (ratio-of-squares.f64 re im))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) (/.f64 re im))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (*.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)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) (ratio-of-squares.f64 re im))) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (+.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) (ratio-of-squares.f64 re im)) im))
#s(approx (* (+ (/ re im) 2) re) (+.f64 (/.f64 (*.f64 re re) im) (*.f64 re #s(literal 2 binary64))))
#s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64)) (/.f64 (pow.f64 im #s(literal -2 binary64)) re)) (pow.f64 im #s(literal 4 binary64))))
#s(approx (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re) (*.f64 (-.f64 (/.f64 (pow.f64 im #s(literal -2 binary64)) re) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (-.f64 (pow.f64 im #s(literal -2 binary64)) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/4 binary64))) (pow.f64 im #s(literal 4 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal -1/2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))))) im))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (+.f64 (*.f64 (*.f64 (pown3/2s.f64 im) #s(literal 1/8 binary64)) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#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)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/4 binary64)) (*.f64 re re)) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 re (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64))) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/8 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (neg.f64 im))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (neg.f64 im) (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64)))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (neg.f64 im) (+.f64 (-.f64 (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))) #s(literal 1 binary64))))
#s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (*.f64 (neg.f64 im) (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal 4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (*.f64 (ratio-of-squares.f64 re im) #s(literal -1/2 binary64))))))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 #s(literal -1 binary64) im))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64)) (pow.f64 im #s(literal 4 binary64))) (ratio-of-squares.f64 re im))) #s(literal 1 binary64)) im)))
#s(approx (pow (+ (* im im) (* re re)) -1/2) (neg.f64 (/.f64 (+.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 im #s(literal 4 binary64)))) (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 (+.f64 (*.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 (pow.f64 re #s(literal 4 binary64)) #s(literal -3/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (pow.f64 im #s(literal 6 binary64))) (ratio-of-squares.f64 re im)))) im)))
#s(approx (/ (- 1 (* (/ (* re re) (* im im)) 1/2)) im) (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (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) (+.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 im)))) (pow.f64 im #s(literal 3 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (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 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im)) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 im)))) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#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)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/4 binary64)) (*.f64 re re)) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 re (*.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64))) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/8 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#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)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (*.f64 re re) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 re re) im) #s(literal -1/4 binary64)) (*.f64 re re)) im)) (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (neg.f64 im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (+.f64 (*.f64 (/.f64 re im) #s(literal 2 binary64)) (ratio-of-squares.f64 re im))) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (neg.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (neg.f64 im) (+.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (pown3/2s.f64 im)) (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))))
#s(approx (+ (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (sqrt (* 2 im))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (*.f64 (*.f64 (*.f64 re re) #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im)) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) re) (+.f64 (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (*.f64 (*.f64 (*.f64 re re) #s(literal -1 binary64)) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (+ (* (* (pow im -1/2) 1/2) (sqrt 2)) (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re))) (+.f64 (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (* (pow im -1/2) 1/2) (sqrt 2)) (*.f64 (*.f64 (pow.f64 (sqrt.f64 im) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1 binary64) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* (pow im -1/2) 1/2) (*.f64 (*.f64 #s(literal -1 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))) #s(literal 1/2 binary64)))
#s(approx (pow im -1/2) (*.f64 #s(literal -1 binary64) (pow.f64 (sqrt.f64 im) #s(literal -1 binary64))))
#s(approx (* (* 1/8 (sqrt (/ 1 (pow im 3)))) (* (sqrt 2) re)) (*.f64 (*.f64 #s(literal -1/8 binary64) (pown3/2s.f64 im)) (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* 1/8 (sqrt (/ 1 (pow im 3)))) (*.f64 (*.f64 #s(literal -1 binary64) (pown3/2s.f64 im)) #s(literal -1/8 binary64)))
#s(approx (sqrt (/ 1 (pow im 3))) (neg.f64 (*.f64 #s(literal -1 binary64) (pown3/2s.f64 im))))
#s(approx (sqrt (* 2 im)) (neg.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64)))))

eval764.0ms (9.9%)

Memory
72.7MiB live, 1 036.6MiB allocated; 206ms collecting garbage
Samples
419.0ms9 415×0valid
111.0ms2 361×0invalid
Compiler

Compiled 21 957 to 3 343 computations (84.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 286.0ms
ival-mult: 190.0ms (66.3% of total)
ival-div: 69.0ms (24.1% of total)
ival-pow: 9.0ms (3.1% of total)
ival-true: 8.0ms (2.8% of total)
ival-assert: 5.0ms (1.7% of total)
ival-sqrt: 4.0ms (1.4% of total)
adjust: 3.0ms (1% of total)
exact: 1.0ms (0.3% of total)

prune304.0ms (3.9%)

Memory
11.6MiB live, 340.1MiB allocated; 75ms collecting garbage
Pruning

21 alts after pruning (11 fresh and 10 done)

PrunedKeptTotal
New5345539
Fresh268
Picked235
Done178
Total53921560
Accuracy
89.7%
Counts
560 → 21
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓40.5%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
✓53.8%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
14.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
50.4%
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) #s(literal 1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))) re) (sqrt.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
✓51.6%
(*.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))))
✓54.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re))))
✓40.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
6.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (neg.f64 re)) re))))
✓51.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) 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))) #s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)) #s(literal 1 binary64)) re))) re))))
✓54.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
32.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im)))))
51.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))))
✓26.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
✓14.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
13.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal 1/4 binary64)) (*.f64 im im)) re)))))
48.1%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
48.1%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
✓50.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))))
27.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Samples
129.0ms3 026×0valid
12.0ms302×0invalid
Compiler

Compiled 1 427 to 642 computations (55% saved)

Precisions
Click to see histograms. Total time spent on operations: 78.0ms
ival-mult: 33.0ms (42.5% of total)
ival-div: 20.0ms (25.8% of total)
ival-pow: 14.0ms (18% of total)
ival-sqrt: 5.0ms (6.4% of total)
ival-true: 2.0ms (2.6% of total)
adjust: 1.0ms (1.3% of total)
exact: 1.0ms (1.3% of total)
ival-assert: 1.0ms (1.3% of total)

regimes71.0ms (0.9%)

Memory
-30.4MiB live, 89.9MiB allocated; 20ms collecting garbage
Counts
32 → 4
Calls
Call 1
Inputs
#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))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(*.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(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) #s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)) #s(literal 1 binary64)) re))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) 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) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal 1/4 binary64)) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/2 binary64))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (*.f64 (+.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/2 binary64) im) (*.f64 #s(literal -1/8 binary64) (ratio-of-squares.f64 re (pow.f64 im #s(literal 3/2 binary64))))) re) #s(literal 1 binary64)) re) im)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) #s(literal 1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))) re) (sqrt.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (pown3/2s.f64 im) re) #s(literal 1/8 binary64)) (*.f64 #s(literal -1/2 binary64) (pow.f64 im #s(literal -1/2 binary64)))) re) (sqrt.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (pown3/2s.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))))
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.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) (exp.f64 (*.f64 (log.f64 #s(approx (+ (+ (sqrt (+ (* re re) (* im im))) re) (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.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) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (ratio-of-squares.f64 re im))) im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) 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))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Calls

7 calls:

16.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
14.0ms
im
9.0ms
re
8.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
8.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
66.5%3(*.f64 im im)
70.0%3(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
70.0%3(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
70.2%3(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
70.2%3(*.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.6%4re
66.5%3im
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes9.0ms (0.1%)

Memory
-34.1MiB live, 12.3MiB allocated; 2ms collecting garbage
Counts
21 → 4
Calls
Call 1
Inputs
#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))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(*.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(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) #s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)) #s(literal 1 binary64)) re))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) 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) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (neg (/ (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) re)) (/.f64 (-.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal 1/4 binary64)) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (*.f64 (ratio-of-squares.f64 (*.f64 im im) re) #s(literal -1/4 binary64)) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (*.f64 im im) (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(*.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(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))
Calls

1 calls:

8.0ms
re
Results
AccuracySegmentsBranch
72.5%4re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes6.0ms (0.1%)

Memory
10.0MiB live, 10.0MiB allocated; 0ms collecting garbage
Counts
16 → 3
Calls
Call 1
Inputs
#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))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(*.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(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (/ 1 (pow (+ (* im im) (* re re)) -1/2)) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (ratio-of-squares.f64 im re) #s(literal 4 binary64)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 im #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) #s(approx (* (neg re) (+ (* (/ (* im im) (* re re)) 1/2) 1)) (*.f64 (-.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal -1/2 binary64)) #s(literal 1 binary64)) re))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64)) #s(literal 1 binary64)) im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (*.f64 (ratio-of-squares.f64 im re) #s(literal 1/2 binary64)) #s(literal 1 binary64)))) re))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(*.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
70.8%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes14.0ms (0.2%)

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

5 calls:

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

Compiled 51 to 40 computations (21.6% saved)

regimes8.0ms (0.1%)

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

3 calls:

3.0ms
(*.f64 im im)
2.0ms
im
2.0ms
re
Results
AccuracySegmentsBranch
61.3%2(*.f64 im im)
62.0%2im
64.8%2re
Compiler

Compiled 5 to 7 computations (-40% saved)

regimes8.0ms (0.1%)

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

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

7 calls:

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

Compiled 55 to 45 computations (18.2% saved)

bsearch69.0ms (0.9%)

Memory
7.0MiB live, 104.6MiB allocated; 11ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
18.0ms
5.954107981829075e+122
4.199581475396816e+123
18.0ms
8.970129990876374e-19
9.529154797199519e-17
27.0ms
-1.954754658119756e+23
-2.6119904348657266e+21
Samples
34.0ms478×0valid
8.0ms32×2valid
4.0ms30×1valid
1.0ms4×3valid
Compiler

Compiled 867 to 686 computations (20.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 34.0ms
ival-hypot: 18.0ms (52.6% of total)
ival-mult: 8.0ms (23.4% of total)
ival-sqrt: 3.0ms (8.8% of total)
adjust: 2.0ms (5.8% of total)
ival-add: 2.0ms (5.8% of total)
ival-div: 1.0ms (2.9% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch3.0ms (0%)

Memory
5.7MiB live, 5.7MiB allocated; 0ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
5.954107981829075e+122
4.199581475396816e+123
1.0ms
8.970129990876374e-19
9.529154797199519e-17
1.0ms
-1.954754658119756e+23
-2.6119904348657266e+21
Compiler

Compiled 713 to 588 computations (17.5% saved)

bsearch13.0ms (0.2%)

Memory
21.3MiB live, 21.3MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
10.0ms
8.970129990876374e-19
9.529154797199519e-17
1.0ms
-1.954754658119756e+23
-2.6119904348657266e+21
Samples
7.0ms96×0valid
Compiler

Compiled 536 to 434 computations (19% saved)

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

bsearch47.0ms (0.6%)

Memory
-32.1MiB live, 58.5MiB allocated; 16ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
10.0ms
8.970129990876374e-19
9.529154797199519e-17
33.0ms
-2.7385336955227412e+212
-1.442134320254649e+211
Samples
9.0ms65×0valid
9.0ms31×3valid
8.0ms40×2valid
3.0ms24×1valid
Compiler

Compiled 662 to 406 computations (38.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 19.0ms
ival-hypot: 8.0ms (41.5% of total)
ival-mult: 4.0ms (20.8% of total)
adjust: 3.0ms (15.6% of total)
ival-add: 2.0ms (10.4% of total)
ival-sqrt: 2.0ms (10.4% 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.1MiB live, 2.1MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
8.970129990876374e-19
9.529154797199519e-17
Compiler

Compiled 340 to 210 computations (38.2% saved)

simplify64.0ms (0.8%)

Memory
18.2MiB live, 63.7MiB allocated; 10ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
078384
1119384
2211384
3381384
41455384
56695384
Stop Event
1×node limit
Calls
Call 1
Inputs
(if (<=.f64 re #s(literal -36000000000000000000000 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) (if (<=.f64 re #s(literal 2466341007804043/1298074214633706907132624082305024 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re)))) (if (<=.f64 re #s(literal 1999999999999999955419939462808259340115968595189843154784166645324982581779679772155733117683015263369515044141902701002752 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -36000000000000000000000 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) (if (<=.f64 re #s(literal 2466341007804043/1298074214633706907132624082305024 binary64)) (*.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 re #s(literal 1999999999999999955419939462808259340115968595189843154784166645324982581779679772155733117683015263369515044141902701002752 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -36000000000000000000000 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) (if (<=.f64 re #s(literal 1663157587499437/20282409603651670423947251286016 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 -39000000000000002267371006091298262287460256362826708145314018425387713353137278932031951592899733621279976983364668447214396463305960651653359089882554437450792275736724841949834041697249403314168478483351601152 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)))) (if (<=.f64 re #s(literal 2636713248474717/40564819207303340847894502572032 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)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal 2636713248474717/40564819207303340847894502572032 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)))) #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 -36000000000000000000000 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) (if (<=.f64 re #s(literal 2466341007804043/1298074214633706907132624082305024 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re)))) (if (<=.f64 re #s(literal 1999999999999999955419939462808259340115968595189843154784166645324982581779679772155733117683015263369515044141902701002752 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -36000000000000000000000 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))))) (if (<=.f64 re #s(literal 2466341007804043/1298074214633706907132624082305024 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) #s(approx (pow (+ (* im im) (* re re)) -1/2) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (ratio-of-squares.f64 re im) #s(literal 1/2 binary64))) im))) re)))) (if (<=.f64 re #s(literal 1999999999999999955419939462808259340115968595189843154784166645324982581779679772155733117683015263369515044141902701002752 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -36000000000000000000000 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) (if (<=.f64 re #s(literal 2466341007804043/1298074214633706907132624082305024 binary64)) (*.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 re #s(literal 1999999999999999955419939462808259340115968595189843154784166645324982581779679772155733117683015263369515044141902701002752 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -36000000000000000000000 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))))) (if (<=.f64 re #s(literal 2466341007804043/1298074214633706907132624082305024 binary64)) (*.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 re #s(literal 1999999999999999955419939462808259340115968595189843154784166645324982581779679772155733117683015263369515044141902701002752 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re)))))
(if (<=.f64 re #s(literal -36000000000000000000000 binary64)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) (if (<=.f64 re #s(literal 1663157587499437/20282409603651670423947251286016 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 -36000000000000000000000 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))))) (if (<=.f64 re #s(literal 1663157587499437/20282409603651670423947251286016 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 -39000000000000002267371006091298262287460256362826708145314018425387713353137278932031951592899733621279976983364668447214396463305960651653359089882554437450792275736724841949834041697249403314168478483351601152 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)))) (if (<=.f64 re #s(literal 2636713248474717/40564819207303340847894502572032 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)))) #s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt.f64 re))))
(if (<=.f64 re #s(literal 2636713248474717/40564819207303340847894502572032 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)))) #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))

derivations195.0ms (2.5%)

Memory
1.2MiB live, 191.2MiB allocated; 29ms collecting garbage
Stop Event
1×fuel
Samples
10.0ms256×0valid
Compiler

Compiled 384 to 80 computations (79.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 5.0ms
ival-mult: 3.0ms (57.8% of total)
ival-div: 1.0ms (19.3% of total)
ival-true: 0.0ms (0% of total)
adjust: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

preprocess606.0ms (7.8%)

Memory
-64.4MiB live, 892.5MiB allocated; 187ms collecting garbage
Samples
417.0ms8 768×0valid
Compiler

Compiled 988 to 290 computations (70.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 189.0ms
ival-mult: 124.0ms (65.7% of total)
ival-div: 53.0ms (28.1% of total)
ival-true: 6.0ms (3.2% of total)
ival-assert: 3.0ms (1.6% of total)
adjust: 2.0ms (1.1% of total)

end0.0ms (0%)

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

Profiling

Loading profile data...