math.sqrt on complex, real part

Time bar (total: 3.2s)

start0.0ms (0%)

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

analyze93.0ms (2.9%)

Memory
-23.9MiB live, 111.3MiB allocated; 48ms 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 (43.7%)

Memory
31.5MiB live, 1 287.1MiB allocated; 951ms collecting garbage
Samples
701.0ms6 231×0valid
142.0ms771×2valid
141.0ms489×3valid
91.0ms765×1valid
Precisions
Click to see histograms. Total time spent on operations: 871.0ms
ival-hypot: 530.0ms (60.8% of total)
ival-mult!: 107.0ms (12.3% of total)
ival-sqrt: 99.0ms (11.4% of total)
ival-add!: 87.0ms (10% of total)
adjust: 48.0ms (5.5% of total)
Bogosity

preprocess50.0ms (1.5%)

Memory
-0.2MiB live, 46.0MiB allocated; 5ms collecting garbage
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
03692
112992
229290
350790
4125490
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶35.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Symmetry

(abs im)

Compiler

Compiled 24 to 24 computations (0% saved)

series19.0ms (0.6%)

Memory
34.8MiB live, 34.8MiB allocated; 0ms collecting garbage
Counts
12 → 129
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 (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#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 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#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 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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))
#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))
#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 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#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
3.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)
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
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
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))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
2.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)

rewrite218.0ms (6.7%)

Memory
1.7MiB live, 229.5MiB allocated; 35ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06675002
06784658
140414360
094563586
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
141 → 262
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 (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#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 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#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 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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))
#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))
#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 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (+.f64 re re))
(+.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
#s(literal 2 binary64)
(/.f64 (neg.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re))) (neg.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(/.f64 (neg.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re))) (neg.f64 (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re)))) (sqrt.f64 (-.f64 (*.f64 im im) (*.f64 re re))))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (hypot.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 re re) re)) (sqrt.f64 (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re))))))
(/.f64 (hypot.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) (sqrt.f64 (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) im)
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 (neg.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 re)))
(hypot.f64 im (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 im)))
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (fabs.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (fabs.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))))
(*.f64 (neg.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (neg.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re)))))
(*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re)))) (neg.f64 (-.f64 (*.f64 im im) (*.f64 re re))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im)))) (neg.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (neg.f64 (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)))) (neg.f64 (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im))))))
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re)))))
(/.f64 (fma.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im)))))
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)) (*.f64 im im))
(fma.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)) (*.f64 im im))
(fma.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)) (*.f64 re re))
(fma.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))))
(+.f64 (*.f64 re re) (*.f64 im im))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)))
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)))
(*.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 re re) (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 #s(literal 1 binary64) re)))
(sqrt.f64 (*.f64 (*.f64 re re) (*.f64 re re)))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 re re)) #s(literal 1 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))))
re
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)))
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 1/2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) im)))
(sqrt.f64 (*.f64 (*.f64 im im) (*.f64 im im)))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 im im)))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 im im) im))) (sqrt.f64 (+.f64 im im))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im))))) re (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 im im)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im)))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 im im) im))) (sqrt.f64 (+.f64 im im))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im))))) re (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im)))) (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (/.f64 #s(literal 4 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (/.f64 #s(literal 4 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) re) #s(literal 3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) re) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 re re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 (+.f64 re re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 (+.f64 re re) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* im im) (*.f64 im im))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (/.f64 #s(literal 2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (/.f64 #s(literal 2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (*.f64 (/.f64 #s(literal -2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (+.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (*.f64 (/.f64 #s(literal -2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) im)))) (*.f64 (*.f64 im im) im)))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 re re) im))) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))

eval45.0ms (1.4%)

Memory
-1.3MiB live, 42.7MiB allocated; 7ms collecting garbage
Compiler

Compiled 3 875 to 1 535 computations (60.4% saved)

prune12.0ms (0.4%)

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

14 alts after pruning (14 fresh and 0 done)

PrunedKeptTotal
New23614250
Fresh000
Picked101
Done000
Total23714251
Accuracy
90.9%
Counts
251 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
35.2%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶80.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
5.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
▶4.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
▶57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
55.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
23.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))))
▶55.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
15.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
▶54.9%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))))
55.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
Compiler

Compiled 424 to 420 computations (0.9% saved)

series22.0ms (0.7%)

Memory
-10.6MiB live, 46.7MiB allocated; 9ms collecting garbage
Counts
29 → 139
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(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))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(neg.f64 im)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
(+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))
(/.f64 re (sqrt.f64 (+.f64 im im)))
(sqrt.f64 (+.f64 im im))
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx re #s(hole binary64 re))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (+ (sqrt (* 2 im)) (/ re (sqrt (* 2 im))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 im))) (/ (sqrt (* 2 im)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 im)) re)) (/ 1 (sqrt (* 2 im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ im im)) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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))
#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))
#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 (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (* im (sqrt (/ 2 im))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#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 (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (sqrt (/ 2 im))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (* -1 (/ re (* im (sqrt (/ 2 im)))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* -1 (* im (sqrt (/ 2 im))))))
Calls

6 calls:

TimeVariablePointExpression
8.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (/ re (sqrt (+ im im))) (sqrt (+ im im)))
2.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (/ re (sqrt (+ im im))) (sqrt (+ im im)))
2.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (/ re (sqrt (+ im im))) (sqrt (+ im im)))
2.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (/ re (sqrt (+ im im))) (sqrt (+ im im)))
2.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))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (/ re (sqrt (+ im im))) (sqrt (+ im im)))

rewrite203.0ms (6.3%)

Memory
-10.1MiB live, 311.4MiB allocated; 66ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07084771
07354408
142054120
083873985
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
168 → 393
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(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))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(neg.f64 im)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
(+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))
(/.f64 re (sqrt.f64 (+.f64 im im)))
(sqrt.f64 (+.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx re #s(hole binary64 re))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (+ (sqrt (* 2 im)) (/ re (sqrt (* 2 im))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 im))) (/ (sqrt (* 2 im)) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 im)) re)) (/ 1 (sqrt (* 2 im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ im im)) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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))
#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))
#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 (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (* im (sqrt (/ 2 im))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#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 (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (sqrt (/ 2 im))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (* -1 (/ re (* im (sqrt (/ 2 im)))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* -1 (* im (sqrt (/ 2 im))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (+.f64 re re))
(+.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
#s(literal 2 binary64)
(/.f64 (-.f64 (sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3/2 binary64)) (*.f64 (*.f64 re re) re)) (+.f64 (sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re)))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (hypot.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) (sqrt.f64 (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) re)
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) im)
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (neg.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (exp.f64 (log.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) im)
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 (neg.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 (neg.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (fabs.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 im) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 im) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 im (fabs.f64 (fabs.f64 re)))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 re)))
(hypot.f64 im (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im re)
(hypot.f64 re (fabs.f64 (fabs.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (neg.f64 (neg.f64 im)))
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
re
im
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1 binary64))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(*.f64 (fabs.f64 (sqrt.f64 (+.f64 im im))) (fabs.f64 (sqrt.f64 (+.f64 im im))))
(*.f64 (exp.f64 (log.f64 (sqrt.f64 (+.f64 im im)))) (exp.f64 (log.f64 (sqrt.f64 (+.f64 im im)))))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 im) #s(literal 2 binary64)))
(*.f64 (neg.f64 (sqrt.f64 (+.f64 im im))) (neg.f64 (sqrt.f64 (+.f64 im im))))
(*.f64 (sqrt.f64 (+.f64 im im)) (sqrt.f64 (+.f64 im im)))
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(pow.f64 (exp.f64 (log.f64 (sqrt.f64 (+.f64 im im)))) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (+.f64 im im)) #s(literal 2 binary64))
(pow.f64 (+.f64 im im) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im)) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (+.f64 im im)))
(sqrt.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)))
(exp.f64 (*.f64 (log.f64 (+.f64 im im)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 im im))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 im im))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 im im))) #s(literal 2 binary64))))
(+.f64 im im)
(*.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))))
(*.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))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im)) (+.f64 re re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (fma.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.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)
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (neg.f64 im)) re)))
(pow.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1 binary64))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 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))) (neg.f64 im)) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) (+.f64 re re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(/.f64 (fma.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
(/.f64 (-.f64 (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im)))) (+.f64 im im)) (-.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
(/.f64 (-.f64 (+.f64 im im) (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im))))) (-.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im)))))
(/.f64 (fma.f64 (sqrt.f64 (+.f64 im im)) (+.f64 im im) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (sqrt.f64 (+.f64 im im)) (+.f64 im im)))) (fma.f64 im #s(literal 2 binary64) (-.f64 (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im)))) (*.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im)))))))
(/.f64 (+.f64 (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (sqrt.f64 (+.f64 im im)) (+.f64 im im))) (*.f64 (sqrt.f64 (+.f64 im im)) (+.f64 im im))) (fma.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im))) (-.f64 (+.f64 im im) (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))))
(fma.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 im) #s(literal 1 binary64)) (/.f64 re (sqrt.f64 (+.f64 im im))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im) (/.f64 re (sqrt.f64 (+.f64 im im))))
(fma.f64 (sqrt.f64 im) (sqrt.f64 #s(literal 2 binary64)) (/.f64 re (sqrt.f64 (+.f64 im im))))
(+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))
(+.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im))))
(/.f64 (neg.f64 re) (neg.f64 (sqrt.f64 (+.f64 im im))))
(/.f64 re (sqrt.f64 (+.f64 im im)))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 im) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))
(*.f64 (sqrt.f64 im) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1 binary64))
(pow.f64 (+.f64 im im) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (*.f64 im im) (*.f64 im im))) (sqrt.f64 (-.f64 im im)))
(/.f64 (sqrt.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im))) (sqrt.f64 (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im))))
(sqrt.f64 (+.f64 im im))
(exp.f64 (*.f64 (log.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 im im))) #s(literal 1 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 im im)))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 im im) im))) (sqrt.f64 (+.f64 im im))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im))))) re (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 im im)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im)))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 im im) im))) (sqrt.f64 (+.f64 im im))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 (+.f64 im im))))) re (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im)))) (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 im #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx re re)
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (sqrt.f64 (+.f64 im im)))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
#s(approx (/ re (sqrt (+ im im))) (/.f64 re (sqrt.f64 (+.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (fma.f64 (log.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) #s(literal 3 binary64) (*.f64 (log.f64 re) #s(literal 6 binary64))))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (fma.f64 (log.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) #s(literal 3 binary64) (*.f64 (log.f64 re) #s(literal 6 binary64))))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (/.f64 re (sqrt.f64 (+.f64 im im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (+.f64 (/.f64 (sqrt.f64 (+.f64 im im)) re) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) re) #s(literal 3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) re) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (neg.f64 re) (-.f64 (neg.f64 (/.f64 (sqrt.f64 (+.f64 im im)) re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal 1/4 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re)) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64))) re))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 re re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 (+.f64 re re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im) (*.f64 (+.f64 re re) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (neg im) (neg.f64 im))
#s(approx (sqrt (+ im im)) (sqrt.f64 (+.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (/ re (sqrt (+ im im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
#s(approx (sqrt (+ im im)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (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 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 re re) im))) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))
#s(approx (/ re (sqrt (+ im im))) (/.f64 (neg.f64 re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
#s(approx (sqrt (+ im im)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))

eval42.0ms (1.3%)

Memory
10.5MiB live, 113.3MiB allocated; 11ms collecting garbage
Compiler

Compiled 5 190 to 2 006 computations (61.3% saved)

prune17.0ms (0.5%)

Memory
-7.8MiB live, 37.4MiB allocated; 6ms collecting garbage
Pruning

16 alts after pruning (12 fresh and 4 done)

PrunedKeptTotal
New3773380
Fresh099
Picked145
Done000
Total37816394
Accuracy
90.9%
Counts
394 → 16
Alt Table
Click to see full alt table
StatusAccuracyProgram
35.2%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶54.9%
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64))
▶57.4%
(*.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))))
✓80.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
▶5.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓4.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
✓57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
55.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
23.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))))
✓55.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
▶0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
15.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
51.2%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
55.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
▶0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
Compiler

Compiled 434 to 430 computations (0.9% saved)

series37.0ms (1.1%)

Memory
-15.1MiB live, 83.1MiB allocated; 11ms collecting garbage
Counts
33 → 242
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 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #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) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
(+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))
(/.f64 re (sqrt.f64 (+.f64 im im)))
(sqrt.f64 (+.f64 im im))
(+.f64 im im)
Outputs
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/8 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/4 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (sqrt (pow im 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* 1/2 (/ re (sqrt (sqrt (pow im 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* 1/2 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* re (+ (* -1/4 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))) (sqrt (sqrt (pow im 2))))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 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 (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (+ (sqrt (* 2 im)) (/ re (sqrt (* 2 im))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* re (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/64 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (* (sqrt 2) (sqrt (/ 2 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (sqrt (/ 2 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))))
#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 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 im))) (/ (sqrt (* 2 im)) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/1024 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (* -1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 im)) re)) (/ 1 (sqrt (* 2 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/4 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (+ re (sqrt (pow re 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* 1/4 (/ (pow im 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2))))))) (sqrt (+ re (sqrt (pow re 2)))))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (sqrt (* -2 im)))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (/ (sqrt (* -2 im)) im)))
#s(approx (/ -2 im) #s(hole binary64 (/ -2 im)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* im (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (* (sqrt 2) (sqrt (/ 1 im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (sqrt (/ 1 im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 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 (+ 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))
#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 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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 (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (sqrt (/ -2 im))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (* im (sqrt (/ 2 im))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/8 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (sqrt (/ -1 im))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1 (/ (+ (* 1/8 (/ (pow re 2) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (pow re 2) (sqrt (/ -1 im))))) (pow im 3))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (sqrt (/ 2 im))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (* -1 (/ re (* im (sqrt (/ 2 im)))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* -1 (* im (sqrt (/ 2 im))))))
Calls

6 calls:

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

rewrite261.0ms (8%)

Memory
33.2MiB live, 334.1MiB allocated; 85ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0119111062
0121510194
1705710093
081718684
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
275 → 329
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 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #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) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
(+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))
(/.f64 re (sqrt.f64 (+.f64 im im)))
(sqrt.f64 (+.f64 im im))
(+.f64 im im)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/8 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/4 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (sqrt (pow im 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* 1/2 (/ re (sqrt (sqrt (pow im 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* 1/2 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* re (+ (* -1/4 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))) (sqrt (sqrt (pow im 2))))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 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 (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (+ (sqrt (* 2 im)) (/ re (sqrt (* 2 im))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* re (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/64 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (* (sqrt 2) (sqrt (/ 2 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (sqrt (/ 2 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))))
#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 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (/ re (sqrt (* 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 im))) (/ (sqrt (* 2 im)) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/1024 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (* -1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 im)) re)) (/ 1 (sqrt (* 2 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/4 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (+ re (sqrt (pow re 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* 1/4 (/ (pow im 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2))))))) (sqrt (+ re (sqrt (pow re 2)))))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (sqrt (* -2 im)))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (/ (sqrt (* -2 im)) im)))
#s(approx (/ -2 im) #s(hole binary64 (/ -2 im)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (sqrt (* 2 im))))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* im (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (* (sqrt 2) (sqrt (/ 1 im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (sqrt (/ 1 im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 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 (+ 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))
#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 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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 (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (sqrt (/ -2 im))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (/ re (* im (sqrt (/ 2 im))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/8 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (sqrt (/ -1 im))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1 (/ (+ (* 1/8 (/ (pow re 2) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (pow re 2) (sqrt (/ -1 im))))) (pow im 3))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (sqrt (/ 2 im))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (/ re (sqrt (+ im im))) #s(hole binary64 (* -1 (/ re (* im (sqrt (/ 2 im)))))))
#s(approx (sqrt (+ im im)) #s(hole binary64 (* -1 (* im (sqrt (/ 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)))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 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))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.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)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.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
(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))
#s(literal 2 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(sqrt.f64 #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) im))
(*.f64 #s(literal -2 binary64) im)
(*.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal -1/2 binary64) im)))
(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im) #s(literal -1/2 binary64))
(*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal -1/2 binary64) im))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im))
(*.f64 #s(literal -1/2 binary64) im)
(*.f64 im #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
(/.f64 #s(literal 2 binary64) (neg.f64 im))
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (+.f64 re re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(*.f64 #s(literal -1 binary64) re)
(*.f64 re #s(literal -1 binary64))
(neg.f64 re)
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im)))))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (+.f64 im im)) (sqrt.f64 (+.f64 im im))) (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im))))) (-.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im)))))
(/.f64 (-.f64 (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im)))) (*.f64 (sqrt.f64 (+.f64 im im)) (sqrt.f64 (+.f64 im im)))) (-.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))
(/.f64 (+.f64 (pow.f64 (sqrt.f64 (+.f64 im im)) #s(literal 3 binary64)) (pow.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) #s(literal 3 binary64))) (fma.f64 (sqrt.f64 (+.f64 im im)) (sqrt.f64 (+.f64 im im)) (-.f64 (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im)))) (*.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im)))))))
(/.f64 (+.f64 (pow.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 (+.f64 im im)) #s(literal 3 binary64))) (fma.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (/.f64 re (sqrt.f64 (+.f64 im im))) (-.f64 (*.f64 (sqrt.f64 (+.f64 im im)) (sqrt.f64 (+.f64 im im))) (*.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im))))))
(fma.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)) (/.f64 re (sqrt.f64 (+.f64 im im))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 im #s(literal 1/2 binary64)) (/.f64 re (sqrt.f64 (+.f64 im im))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im) (/.f64 re (sqrt.f64 (+.f64 im im))))
(+.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im))))
(+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))
(/.f64 (neg.f64 re) (neg.f64 (sqrt.f64 (+.f64 im im))))
(/.f64 re (sqrt.f64 (+.f64 im im)))
(*.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))
(pow.f64 (+.f64 im im) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 im im))
(*.f64 #s(literal 2 binary64) im)
(*.f64 im #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im)) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(+.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 re (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (fma.f64 re (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/4 binary64) (*.f64 (*.f64 re (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 (*.f64 im im))) (sqrt.f64 (*.f64 im im))))) #s(literal -1/8 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) #s(literal 1/4 binary64))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 re (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 re (fma.f64 #s(literal -1/4 binary64) (*.f64 re (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 (*.f64 im im))) (sqrt.f64 (*.f64 im im))))) (*.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 re (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (sqrt.f64 (*.f64 im im))))) #s(literal 1/2 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (sqrt.f64 (*.f64 im im))))) re (sqrt.f64 (sqrt.f64 (*.f64 im im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 re (fma.f64 re (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) re) (*.f64 (sqrt.f64 (sqrt.f64 (*.f64 im im))) (sqrt.f64 (*.f64 im im)))) #s(literal -1/4 binary64) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 im im)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (sqrt.f64 (*.f64 im im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 re re) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 re re)) (pow.f64 (*.f64 im im) #s(literal 5/2 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (*.f64 re re) (sqrt.f64 (*.f64 im im))))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im 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 re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 re (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 re (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (neg re) (neg.f64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im 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 re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 re (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (sqrt.f64 (+.f64 im im)))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (+.f64 (sqrt.f64 (+.f64 im im)) (/.f64 re (sqrt.f64 (+.f64 im im)))))
#s(approx (/ re (sqrt (+ im im))) (/.f64 re (sqrt.f64 (+.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) #s(literal -1/64 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))))) re))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (/.f64 re (sqrt.f64 (+.f64 im im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (+.f64 (/.f64 (sqrt.f64 (+.f64 im im)) re) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 (*.f64 re re) re)))) #s(literal 1/32 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 re re)))) #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 re re)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 (*.f64 re re) re)))) #s(literal 1/16 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 re re)))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 re re)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (/.f64 (*.f64 im im) 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 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (neg.f64 re) (-.f64 (neg.f64 (/.f64 (sqrt.f64 (+.f64 im im)) re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 im im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/4 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/4 binary64))) (*.f64 im im) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 re re)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (sqrt.f64 (*.f64 re re)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* -2 im) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* -1/2 im) (*.f64 #s(literal -1/2 binary64) im))
#s(approx (sqrt (/ -2 im)) (/.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) im))
#s(approx (/ -2 im) (/.f64 #s(literal -2 binary64) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (+ im im)) (sqrt.f64 (+.f64 im im)))
#s(approx (+ im im) (+.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) #s(literal 1/4 binary64) (*.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) #s(literal 1/4 binary64) (*.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (+ (sqrt (+ (* re re) (* im 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 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal -1/2 binary64) im)))
#s(approx (sqrt (/ -2 im)) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (/ re (sqrt (+ im im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
#s(approx (sqrt (+ im im)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im)) #s(literal 1/16 binary64))) (*.f64 (*.f64 im im) im))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im)) #s(literal 1/8 binary64))) (*.f64 (*.f64 im im) im))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 re re)) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im))) (*.f64 (*.f64 im im) im)))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal -1/2 binary64) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (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 (neg.f64 im) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal -1/2 binary64) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))
#s(approx (/ re (sqrt (+ im im))) (/.f64 (neg.f64 re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
#s(approx (sqrt (+ im im)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))

eval51.0ms (1.6%)

Memory
-16.7MiB live, 50.6MiB allocated; 38ms collecting garbage
Compiler

Compiled 6 082 to 1 580 computations (74% saved)

prune19.0ms (0.6%)

Memory
-5.1MiB live, 38.9MiB allocated; 7ms collecting garbage
Pruning

20 alts after pruning (11 fresh and 9 done)

PrunedKeptTotal
New2665271
Fresh167
Picked055
Done044
Total26720287
Accuracy
90.9%
Counts
287 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
35.2%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓54.9%
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64))
55.0%
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))) #s(literal 1/2 binary64))
✓57.4%
(*.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))))
▶0.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
54.9%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64))))
0.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))) (sqrt.f64 #s(literal 2 binary64))))
✓80.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓5.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓4.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
✓57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
16.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
▶55.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
▶23.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))))
✓55.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
▶15.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
51.2%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
Compiler

Compiled 523 to 509 computations (2.7% saved)

series37.0ms (1.1%)

Memory
31.9MiB live, 67.4MiB allocated; 15ms collecting garbage
Counts
33 → 203
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
#s(literal 1/2 binary64)
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(+.f64 im im)
(*.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) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
(neg.f64 im)
(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 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 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))
(fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re))
(+.f64 re re)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/8 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/4 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (sqrt (pow im 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* 1/2 (/ re (sqrt (sqrt (pow im 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* 1/2 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* re (+ (* -1/4 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))) (sqrt (sqrt (pow im 2))))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#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 (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ re re) #s(hole binary64 (* 2 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* re (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/64 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (* (sqrt 2) (sqrt (/ 2 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (sqrt (/ 2 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/1024 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (* -1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/4 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (+ re (sqrt (pow re 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* 1/4 (/ (pow im 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2))))))) (sqrt (+ re (sqrt (pow re 2)))))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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 im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* im (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (* (sqrt 2) (sqrt (/ 1 im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (sqrt (/ 1 im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#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 im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/8 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (sqrt (/ -1 im))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1 (/ (+ (* 1/8 (/ (pow re 2) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (pow re 2) (sqrt (/ -1 im))))) (pow im 3))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 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)))))))
Calls

6 calls:

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

rewrite237.0ms (7.3%)

Memory
19.5MiB live, 208.4MiB allocated; 42ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
011499235
011778516
170288436
081217311
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
236 → 299
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
#s(literal 1/2 binary64)
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(+.f64 im im)
(*.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) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
(neg.f64 im)
(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 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 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))
(fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re))
(+.f64 re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 2))
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/8 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/4 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (sqrt (pow im 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* 1/2 (/ re (sqrt (sqrt (pow im 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* 1/2 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* re (+ (* -1/4 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))) (sqrt (sqrt (pow im 2))))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#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 (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ re re) #s(hole binary64 (* 2 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#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 im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* re (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/64 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (* (sqrt 2) (sqrt (/ 2 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (sqrt (/ 2 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/1024 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (* -1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/4 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (+ re (sqrt (pow re 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* 1/4 (/ (pow im 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2))))))) (sqrt (+ re (sqrt (pow re 2)))))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#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 (* 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 im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* im (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (* (sqrt 2) (sqrt (/ 1 im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (sqrt (/ 1 im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#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 im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/8 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (sqrt (/ -1 im))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1 (/ (+ (* 1/8 (/ (pow re 2) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (pow re 2) (sqrt (/ -1 im))))) (pow im 3))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 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)))))))
Outputs
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
#s(literal 1/2 binary64)
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(/.f64 (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) (-.f64 (+.f64 im im) (*.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 im) (+.f64 im im))) (-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 (+.f64 im im) (+.f64 im im) (-.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 im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64))) (fma.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))))
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(fma.f64 im #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(fma.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)) (+.f64 im im))
(fma.f64 #s(literal 2 binary64) im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(-.f64 (+.f64 im im) (*.f64 (neg.f64 re) (+.f64 (/.f64 re im) #s(literal 2 binary64))))
(+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)
(+.f64 (+.f64 im im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im))
(/.f64 (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re im) (/.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)) (fma.f64 (/.f64 re im) (/.f64 re im) (-.f64 #s(literal 4 binary64) (/.f64 (+.f64 re re) im))))
(/.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (+.f64 #s(literal 4 binary64) (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 (+.f64 re re) im))))
(+.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)
re
im
#s(literal 2 binary64)
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im)) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(+.f64 im im)
(*.f64 (sqrt.f64 #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 #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)))
#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 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 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) (neg.f64 im)) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) #s(literal 2 binary64)))
(pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 #s(literal 1 binary64) #s(literal 1/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))
(*.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 #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))))
#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 (fabs.f64 im) (fabs.f64 im))
(*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)))
(*.f64 (neg.f64 im) (neg.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))))
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 (+.f64 re re) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re))) (-.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (/.f64 (*.f64 im im) re)))
(/.f64 (fma.f64 (*.f64 #s(literal 8 binary64) (*.f64 (*.f64 re re) re)) #s(literal 8 binary64) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64))) (fma.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (*.f64 (+.f64 re re) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re)) (*.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (/.f64 (*.f64 im im) re)))))
(fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re))
(fma.f64 im (/.f64 im re) (*.f64 (+.f64 re re) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (+.f64 re re) (/.f64 (*.f64 im im) re))
(+.f64 (*.f64 (+.f64 re re) #s(literal 2 binary64)) (/.f64 (*.f64 im im) re))
(+.f64 (/.f64 (*.f64 im im) re) (*.f64 (+.f64 re re) #s(literal 2 binary64)))
(*.f64 re #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) re)
(/.f64 (-.f64 (*.f64 re re) (*.f64 re re)) (-.f64 re re))
(/.f64 (fma.f64 (*.f64 re re) re (*.f64 (*.f64 re re) re)) (fma.f64 re re (-.f64 (*.f64 re re) (*.f64 re re))))
(+.f64 re re)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 re (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 re (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (+.f64 im im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#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 re re)
#s(approx (* 4 re) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (*.f64 re (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 re (fma.f64 re (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/4 binary64) (*.f64 (*.f64 re (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 (*.f64 im im))) (sqrt.f64 (*.f64 im im))))) #s(literal -1/8 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) #s(literal 1/4 binary64))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 re (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 re (fma.f64 re (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64) (*.f64 (*.f64 re (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (sqrt.f64 (sqrt.f64 (*.f64 im im))) (sqrt.f64 (*.f64 im im))))) #s(literal -1/4 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 re (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (sqrt.f64 (*.f64 im im))))) #s(literal 1/2 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (sqrt.f64 (*.f64 im im))))) re (sqrt.f64 (sqrt.f64 (*.f64 im im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 re (fma.f64 re (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) re) (*.f64 (sqrt.f64 (sqrt.f64 (*.f64 im im))) (sqrt.f64 (*.f64 im im)))) #s(literal -1/4 binary64) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (sqrt.f64 (*.f64 im im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 im im)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im 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 (+ (* (+ re re) 2) (/ (* im im) re)) (/.f64 (*.f64 im im) re))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) re))
#s(approx (+ re re) (+.f64 re re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re re) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (*.f64 re re)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im))) (*.f64 re re)))
#s(approx (+ (/ re im) 2) (/.f64 re im))
#s(approx (+ (/ re im) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re)))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re)))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) #s(literal -1/64 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re)))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re)))))
#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 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (/.f64 im re) #s(literal -2 binary64)) #s(literal 2 binary64)) re)) (/.f64 #s(literal 1 binary64) im)) (*.f64 re re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re)))) #s(literal 1/32 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re)))) #s(literal 1/16 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (neg.f64 (*.f64 (-.f64 (neg.f64 (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (+.f64 im im) re (*.f64 re re)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re)) im (*.f64 re re)) im))
#s(approx (+ (/ re im) 2) (/.f64 (fma.f64 im #s(literal 2 binary64) re) im))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/4 binary64))) (*.f64 im im) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 re re)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))) re))
#s(approx (neg im) (neg.f64 im))
#s(approx (* im im) (*.f64 im im))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 im im) im)))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 im im) im)))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (+ (sqrt (+ (* re re) (* im 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 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (*.f64 (*.f64 im im) (fma.f64 (/.f64 re (*.f64 im im)) #s(literal 4 binary64) (/.f64 #s(literal 1 binary64) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (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 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 re re) im))) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64))))
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (*.f64 re re) im)) 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) im) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 re re)) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 re re)) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im)) #s(literal 1/16 binary64))) (*.f64 (*.f64 im im) im))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 re re)) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 re re)) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im)) #s(literal 1/8 binary64))) (*.f64 (*.f64 im im) im))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 re re)) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im))) (*.f64 (*.f64 im im) im)))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 re im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))

eval29.0ms (0.9%)

Memory
6.0MiB live, 50.7MiB allocated; 4ms collecting garbage
Compiler

Compiled 5 829 to 1 644 computations (71.8% saved)

prune20.0ms (0.6%)

Memory
-23.8MiB live, 29.2MiB allocated; 12ms collecting garbage
Pruning

20 alts after pruning (8 fresh and 12 done)

PrunedKeptTotal
New2704274
Fresh246
Picked145
Done189
Total27420294
Accuracy
94.1%
Counts
294 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
35.2%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓54.9%
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64))
55.0%
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))) #s(literal 1/2 binary64))
✓57.4%
(*.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))))
✓0.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
0.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
54.9%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64))))
✓80.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓4.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
✓57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
16.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
✓55.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
✓55.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
✓15.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
18.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
23.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
5.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
Compiler

Compiled 643 to 490 computations (23.8% saved)

regimes50.0ms (1.5%)

Memory
-12.0MiB live, 78.6MiB allocated; 6ms collecting garbage
Counts
27 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #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))) im) re))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(approx (+ (/ re (sqrt (+ im im))) (sqrt (+ im im))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (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)) #s(approx (+ (* (+ re re) 2) (/ (* im im) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (+.f64 im im))) (sqrt.f64 (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 re re) #s(literal 2 binary64) (/.f64 (*.f64 im im) re)))))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (cosh.f64 (asinh.f64 #s(literal 1 binary64)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #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 (hypot.f64 re im) re))))
Calls

7 calls:

8.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
7.0ms
(*.f64 im im)
7.0ms
im
7.0ms
re
6.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
Results
AccuracySegmentsBranch
80.4%1(*.f64 im im)
89.4%2(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
89.4%2(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
89.0%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
89.0%2(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
85.6%2re
80.4%1im
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes42.0ms (1.3%)

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

7 calls:

7.0ms
re
6.0ms
im
5.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
5.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
5.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Results
AccuracySegmentsBranch
65.9%2(*.f64 im im)
65.9%2im
77.3%3re
71.5%3(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
71.5%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.0%3(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
72.0%3(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes21.0ms (0.6%)

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

5 calls:

7.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
4.0ms
re
3.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
3.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
3.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
Results
AccuracySegmentsBranch
57.8%1(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
57.8%1(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
57.8%1(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
57.8%1(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
68.8%2re
Compiler

Compiled 39 to 40 computations (-2.6% saved)

regimes2.0ms (0.1%)

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

1 calls:

2.0ms
re
Results
AccuracySegmentsBranch
68.7%2re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes8.0ms (0.3%)

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

Total -35.4b remaining (-123.5%)

Threshold costs -35.4b (-123.5%)

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

7 calls:

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

Compiled 42 to 45 computations (-7.1% saved)

bsearch0.0ms (0%)

Memory
0.6MiB live, 0.6MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.0
1.1332446380060255e-272
Compiler

Compiled 15 to 17 computations (-13.3% saved)

bsearch37.0ms (1.1%)

Memory
5.2MiB live, 50.8MiB allocated; 3ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
14.0ms
3.5832107520939346e+107
6.505656561471059e+123
19.0ms
-1.5870579842699152e+76
-2.1150781521577154e+73
Samples
12.0ms222×0valid
4.0ms29×1valid
4.0ms26×2valid
3.0ms11×3valid
Compiler

Compiled 530 to 562 computations (-6% saved)

Precisions
Click to see histograms. Total time spent on operations: 16.0ms
ival-hypot: 8.0ms (48.9% of total)
ival-sqrt: 3.0ms (18.3% of total)
ival-mult!: 3.0ms (18.3% of total)
adjust: 1.0ms (6.1% of total)
ival-add!: 1.0ms (6.1% of total)

bsearch1.0ms (0%)

Memory
2.2MiB live, 2.2MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
3.5832107520939346e+107
6.505656561471059e+123
Compiler

Compiled 298 to 314 computations (-5.4% saved)

bsearch9.0ms (0.3%)

Memory
12.3MiB live, 12.3MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
8.0ms
3.5832107520939346e+107
6.505656561471059e+123
Samples
4.0ms80×0valid
Compiler

Compiled 308 to 324 computations (-5.2% saved)

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

derivations197.0ms (6.1%)

Memory
-43.2MiB live, 102.0MiB allocated; 129ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 73 to 54 computations (26% saved)

preprocess46.0ms (1.4%)

Memory
37.9MiB live, 86.1MiB allocated; 8ms collecting garbage
Compiler

Compiled 401 to 335 computations (16.5% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...