math.sqrt on complex, real part

Time bar (total: 5.1s)

start0.0ms (0%)

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

analyze145.0ms (2.9%)

Memory
-1.6MiB live, 194.3MiB allocated; 33ms 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.5s (29.2%)

Memory
28.4MiB live, 1 824.1MiB allocated; 443ms collecting garbage
Samples
439.0ms6 234×0valid
218.0ms810×2valid
182.0ms476×3valid
163.0ms736×1valid
Precisions
Click to see histograms. Total time spent on operations: 689.0ms
ival-hypot: 343.0ms (49.8% of total)
ival-mult!: 164.0ms (23.8% of total)
ival-sqrt: 90.0ms (13.1% of total)
adjust: 57.0ms (8.3% of total)
ival-add!: 35.0ms (5.1% of total)
Bogosity

preprocess106.0ms (2.1%)

Memory
1.0MiB live, 45.9MiB allocated; 8ms collecting garbage
Iterations

Useful iterations: 2 (0.0ms)

IterNodesCost
03692
112992
229290
350790
4124290
5797990
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶45.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))))
Symmetry

(abs im)

Compiler

Compiled 30 to 24 computations (20% saved)

series22.0ms (0.4%)

Memory
4.6MiB live, 50.0MiB allocated; 5ms collecting garbage
Counts
12 → 122
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)) (* 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 (+ 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) (+ 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 #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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* 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 (+ 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)

rewrite220.0ms (4.3%)

Memory
10.4MiB live, 291.3MiB allocated; 58ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06604927
06724692
140104405
092443666
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
134 → 325
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)) (* 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 (+ 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) (+ 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 #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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* 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 (+ 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 (*.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 (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)) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (neg.f64 (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 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (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)) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) im)
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) 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)) (neg.f64 (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)) (fabs.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) 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)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (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)) (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 (fabs.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 im (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 im)))
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (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) (*.f64 re re)) (*.f64 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) (*.f64 re re)) (*.f64 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 im)) (exp.f64 (log.f64 im)) (*.f64 re re))
(fma.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)) (*.f64 im im))
(fma.f64 (exp.f64 (log.f64 (fabs.f64 re))) (exp.f64 (log.f64 (fabs.f64 re))) (*.f64 im im))
(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 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 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 (exp.f64 (log.f64 (fabs.f64 re))) (exp.f64 (log.f64 (fabs.f64 re))))
(*.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (fabs.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 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 re)) (/.f64 #s(literal 1 binary64) (fabs.f64 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)))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (fabs.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 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 1/2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal -2 binary64)))
(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 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#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) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (*.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 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 re (*.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 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (fabs.f64 im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 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) (fabs.f64 im))) re #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (fabs.f64 im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (fabs.f64 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) (fabs.f64 im))) re #s(literal 1 binary64)) re (fabs.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) (fabs.f64 im)) #s(literal 1/2 binary64) (fabs.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (fabs.f64 im))) (fabs.f64 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 (fabs.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) (fabs.f64 im))) (*.f64 re re) (fabs.f64 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))) (*.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 (+.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 #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 (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 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.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 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 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 (/.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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (fabs.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (fabs.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 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (fabs.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 (/.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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (fabs.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (fabs.f64 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) (fabs.f64 re))) (*.f64 im im) (*.f64 (+.f64 (fabs.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) (fabs.f64 re))) (*.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 re) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1/2 binary64) (fabs.f64 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) (fabs.f64 re))) (fabs.f64 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) (fabs.f64 re))) (*.f64 im im) (fabs.f64 re)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fabs.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1/2 binary64) (fabs.f64 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) (fabs.f64 re))) (fabs.f64 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) (fabs.f64 re))) (*.f64 im im) (fabs.f64 re)))
#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) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (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))) (*.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))))

eval51.0ms (1%)

Memory
11.1MiB live, 100.0MiB allocated; 15ms collecting garbage
Compiler

Compiled 8 447 to 1 913 computations (77.4% saved)

prune21.0ms (0.4%)

Memory
-9.4MiB live, 37.1MiB allocated; 4ms collecting garbage
Pruning

15 alts after pruning (15 fresh and 0 done)

PrunedKeptTotal
New30315318
Fresh000
Picked101
Done000
Total30415319
Accuracy
88.5%
Counts
319 → 15
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
28.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
▶81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
▶54.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
▶51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
27.8%
(*.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))))
13.0%
(*.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.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
51.1%
(*.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 682 to 462 computations (32.3% saved)

series15.0ms (0.3%)

Memory
25.4MiB live, 25.4MiB allocated; 0ms collecting garbage
Counts
33 → 131
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)
#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)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))))
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(+.f64 (fabs.f64 im) re)
(fabs.f64 im)
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
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)) (* 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 (+ (fabs im) re) #s(hole binary64 (fabs im)))
#s(approx (+ (fabs im) re) #s(hole binary64 (+ re (fabs im))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* 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 (+ 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 (+ (fabs im) re) #s(hole binary64 (* re (+ 1 (/ (fabs im) re)))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (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 (+ (fabs im) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (fabs im) re)) 1)))))
#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 (* (* -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 (* 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 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (* -1/2 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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* 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 (+ 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
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)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (+ (fabs im) re) (fabs im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
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)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (+ (fabs im) re) (fabs im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
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)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (+ (fabs im) re) (fabs im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
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)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (+ (fabs im) re) (fabs im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
1.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)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (+ (fabs im) re) (fabs im) (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))

rewrite306.0ms (6%)

Memory
16.3MiB live, 249.6MiB allocated; 92ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07054596
07334229
141834045
094703918
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
164 → 527
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)
#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)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))))
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(+.f64 (fabs.f64 im) re)
(fabs.f64 im)
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
#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)) (* 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 (+ (fabs im) re) #s(hole binary64 (fabs im)))
#s(approx (+ (fabs im) re) #s(hole binary64 (+ re (fabs im))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* 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 (+ 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 (+ (fabs im) re) #s(hole binary64 (* re (+ 1 (/ (fabs im) re)))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (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 (+ (fabs im) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (fabs im) re)) 1)))))
#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 (* (* -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 (* 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 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (* -1/2 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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* 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 (+ 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 (*.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 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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 (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 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 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 (fabs.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 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) im)
(hypot.f64 (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 (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)) (fabs.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) 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)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 im)))
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
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 #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 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(/.f64 (neg.f64 (-.f64 (*.f64 im im) (*.f64 im im))) (neg.f64 (-.f64 im im)))
(/.f64 (neg.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im))) (neg.f64 (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im 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)
#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 (neg.f64 (sqrt.f64 #s(literal -2 binary64))) (neg.f64 (sqrt.f64 im)))
(/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (neg.f64 im)))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal -1/2 binary64)))
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (fabs.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (fabs.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 (neg.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(pow.f64 (*.f64 (/.f64 #s(literal -2 binary64) im) (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 1 binary64))
(/.f64 #s(literal -2 binary64) (neg.f64 (neg.f64 im)))
(/.f64 #s(literal -2 binary64) im)
(/.f64 #s(literal 2 binary64) (neg.f64 im))
(sqrt.f64 (*.f64 (/.f64 #s(literal -2 binary64) im) (/.f64 #s(literal -2 binary64) im)))
#s(literal -2 binary64)
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #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) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))))
(pow.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
(+.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(/.f64 (neg.f64 (-.f64 (*.f64 im im) (*.f64 re re))) (neg.f64 (-.f64 (fabs.f64 im) re)))
(/.f64 (neg.f64 (-.f64 (*.f64 re re) (*.f64 im im))) (neg.f64 (-.f64 re (fabs.f64 im))))
(/.f64 (neg.f64 (fma.f64 (*.f64 re re) re (*.f64 (*.f64 im im) im))) (neg.f64 (fma.f64 re re (-.f64 (*.f64 im im) (*.f64 re (fabs.f64 im))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 re re) re))) (neg.f64 (fma.f64 im im (-.f64 (*.f64 re re) (*.f64 (fabs.f64 im) re)))))
(/.f64 (-.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (fabs.f64 im) re))
(/.f64 (-.f64 (*.f64 re re) (*.f64 im im)) (-.f64 re (fabs.f64 im)))
(/.f64 (fma.f64 (*.f64 re re) re (*.f64 (*.f64 im im) im)) (fma.f64 re re (-.f64 (*.f64 im im) (*.f64 re (fabs.f64 im)))))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 re re) re)) (fma.f64 im im (-.f64 (*.f64 re re) (*.f64 (fabs.f64 im) re))))
(fma.f64 (sqrt.f64 (neg.f64 im)) (sqrt.f64 (neg.f64 im)) re)
(fma.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) re)
(fma.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)) re)
(fma.f64 (sqrt.f64 im) (sqrt.f64 im) re)
(fma.f64 #s(literal 1 binary64) (fabs.f64 im) re)
(fma.f64 (fabs.f64 im) #s(literal 1 binary64) re)
(+.f64 (fabs.f64 im) re)
(+.f64 re (fabs.f64 im))
(*.f64 (sqrt.f64 (neg.f64 im)) (sqrt.f64 (neg.f64 im)))
(*.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)))
(*.f64 (sqrt.f64 im) (sqrt.f64 im))
(*.f64 #s(literal 1 binary64) (fabs.f64 im))
(*.f64 (fabs.f64 im) #s(literal 1 binary64))
(pow.f64 (*.f64 im im) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))
(sqrt.f64 (*.f64 im im))
(fabs.f64 (neg.f64 (neg.f64 im)))
(fabs.f64 (neg.f64 im))
(fabs.f64 (fabs.f64 im))
(fabs.f64 im)
(exp.f64 (/.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 im im)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (*.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))
(/.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 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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 (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 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 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 re)) im)
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 (fabs.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 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) im)
(hypot.f64 (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 (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)) (fabs.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) 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)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 (fabs.f64 re))))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 im)))
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (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 (fma.f64 im im (*.f64 re re)) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 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) (*.f64 re re)) (*.f64 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) (*.f64 re re)) (*.f64 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 re)) (neg.f64 (neg.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 re re))
(fma.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)) (*.f64 re re))
(fma.f64 (exp.f64 (log.f64 (fabs.f64 re))) (exp.f64 (log.f64 (fabs.f64 re))) (*.f64 im im))
(fma.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)) (*.f64 im im))
(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 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re))))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(-.f64 (*.f64 im im) (*.f64 (neg.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 (fabs.f64 re))) (exp.f64 (log.f64 (fabs.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 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 (fabs.f64 re))) #s(literal 2 binary64))
(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 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal -2 binary64)))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 re)) (/.f64 #s(literal 1 binary64) (fabs.f64 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)))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
(+.f64 (cosh.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#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) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (*.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 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 re (*.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 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (fabs.f64 im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 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) (fabs.f64 im))) re #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (fabs.f64 im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (fabs.f64 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) (fabs.f64 im))) re #s(literal 1 binary64)) re (fabs.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) (fabs.f64 im)) #s(literal 1/2 binary64) (fabs.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (fabs.f64 im))) (fabs.f64 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 (fabs.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) (fabs.f64 im))) (*.f64 re re) (fabs.f64 im)))
#s(approx re re)
#s(approx (+ (fabs im) re) (fabs.f64 im))
#s(approx (+ (fabs im) re) (+.f64 (fabs.f64 im) re))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* 1/2 (sqrt (* 2 (+ (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))) (*.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 (+ (fabs im) re) (*.f64 (+.f64 (/.f64 (fabs.f64 im) re) #s(literal 1 binary64)) re))
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (/.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 (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 (+ (fabs im) re) (*.f64 (neg.f64 re) (-.f64 (neg.f64 (/.f64 (fabs.f64 im) re)) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.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 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 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 (/.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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (fabs.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (fabs.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 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (fabs.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 (/.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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (fabs.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #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 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (fabs.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 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (fabs.f64 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) (fabs.f64 re))) (*.f64 im im) (*.f64 (+.f64 (fabs.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) (fabs.f64 re))) (*.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 re) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1/2 binary64) (fabs.f64 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) (fabs.f64 re))) (fabs.f64 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) (fabs.f64 re))) (*.f64 im im) (fabs.f64 re)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fabs.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1/2 binary64) (fabs.f64 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) (fabs.f64 re))) (fabs.f64 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) (fabs.f64 re))) (*.f64 im im) (fabs.f64 re)))
#s(approx im im)
#s(approx (+ im im) (+.f64 im 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 (*.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 (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) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (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 (* (* -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 (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (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 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (/.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 (*.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 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (/.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)))) (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 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))) (*.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))))

eval73.0ms (1.4%)

Memory
7.3MiB live, 97.5MiB allocated; 12ms collecting garbage
Compiler

Compiled 10 079 to 2 179 computations (78.4% saved)

prune25.0ms (0.5%)

Memory
-7.3MiB live, 38.4MiB allocated; 6ms collecting garbage
Pruning

18 alts after pruning (13 fresh and 5 done)

PrunedKeptTotal
New3724376
Fresh1910
Picked055
Done000
Total37318391
Accuracy
88.5%
Counts
391 → 18
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶53.9%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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)))))))
28.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
▶5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓54.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
27.8%
(*.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))))
13.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
47.7%
(*.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))))
▶51.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
51.1%
(*.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))))
▶0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
Compiler

Compiled 735 to 502 computations (31.7% saved)

series120.0ms (2.3%)

Memory
7.2MiB live, 245.3MiB allocated; 37ms collecting garbage
Counts
36 → 210
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(+.f64 (fabs.f64 im) re)
(fabs.f64 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)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(*.f64 (fabs.f64 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) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(log.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
Outputs
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 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 (+ (fabs im) re) #s(hole binary64 (fabs im)))
#s(approx (+ (fabs im) re) #s(hole binary64 (+ re (fabs im))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 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))) #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 (neg re) #s(hole binary64 (* -1 re)))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (sqrt (* 2 (fabs im)))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (+ (sqrt (* 2 (fabs im))) (/ re (sqrt (* 2 (fabs im)))))))
#s(approx (/ re (sqrt (* (fabs im) 2))) #s(hole binary64 (/ re (sqrt (* 2 (fabs 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 (+ (fabs im) re) #s(hole binary64 (* re (+ 1 (/ (fabs im) 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))) #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 (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 (fabs im)))) (/ (sqrt (* 2 (fabs 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 (+ (fabs im) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (fabs im) re)) 1)))))
#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))) #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 (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 (fabs im))) re)) (/ 1 (sqrt (* 2 (fabs 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 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 (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 (* (fabs im) 2) #s(hole binary64 (* 2 (fabs im))))
#s(approx (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) #s(hole binary64 (* -1/2 (sqrt (* -2 im)))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (exp (* (log (/ -2 im)) 1/2)) #s(hole binary64 (/ (sqrt (* -2 im)) im)))
#s(approx (* (log (/ -2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (neg im)))))))
#s(approx (log (/ -2 im)) #s(hole binary64 (+ (log 2) (* -1 (log (neg im))))))
#s(approx (/ -2 im) #s(hole binary64 (/ -2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 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))) #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 im) (exp (* (log (/ -2 im)) 1/2))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (exp (* (log (/ -2 im)) 1/2)) #s(hole binary64 (sqrt (/ -2 im))))
#s(approx (* (log (/ -2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (neg (/ 1 im)))))))
#s(approx (log (/ -2 im)) #s(hole binary64 (+ (log 2) (log (neg (/ 1 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 (* 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 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 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 (* (log (/ -2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (/ -1 im))))))
#s(approx (log (/ -2 im)) #s(hole binary64 (+ (log 2) (log (/ -1 im)))))
Calls

6 calls:

TimeVariablePointExpression
57.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) (+ (fabs im) re) (fabs 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)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) (* -1/2 im) -1/2 (exp (* (log (/ -2 im)) 1/2)) (* (log (/ -2 im)) 1/2) (log (/ -2 im)) (/ -2 im))
19.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) (+ (fabs im) re) (fabs 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)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) (* -1/2 im) -1/2 (exp (* (log (/ -2 im)) 1/2)) (* (log (/ -2 im)) 1/2) (log (/ -2 im)) (/ -2 im))
16.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) (+ (fabs im) re) (fabs 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)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) (* -1/2 im) -1/2 (exp (* (log (/ -2 im)) 1/2)) (* (log (/ -2 im)) 1/2) (log (/ -2 im)) (/ -2 im))
13.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) (+ (fabs im) re) (fabs 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)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) (* -1/2 im) -1/2 (exp (* (log (/ -2 im)) 1/2)) (* (log (/ -2 im)) 1/2) (log (/ -2 im)) (/ -2 im))
6.0ms
re
@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) (+ (fabs im) re) (fabs 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)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) (* -1/2 im) -1/2 (exp (* (log (/ -2 im)) 1/2)) (* (log (/ -2 im)) 1/2) (log (/ -2 im)) (/ -2 im))

rewrite1.4s (26.6%)

Memory
-149.8MiB live, 395.8MiB allocated; 1.5s collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
011859593
012188832
171818721
083537505
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
246 → 362
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(+.f64 (fabs.f64 im) re)
(fabs.f64 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)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(*.f64 (fabs.f64 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) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(log.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 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 (+ (fabs im) re) #s(hole binary64 (fabs im)))
#s(approx (+ (fabs im) re) #s(hole binary64 (+ re (fabs im))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 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))) #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 (neg re) #s(hole binary64 (* -1 re)))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (sqrt (* 2 (fabs im)))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (+ (sqrt (* 2 (fabs im))) (/ re (sqrt (* 2 (fabs im)))))))
#s(approx (/ re (sqrt (* (fabs im) 2))) #s(hole binary64 (/ re (sqrt (* 2 (fabs 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 (+ (fabs im) re) #s(hole binary64 (* re (+ 1 (/ (fabs im) 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))) #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 (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 (fabs im)))) (/ (sqrt (* 2 (fabs 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 (+ (fabs im) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (fabs im) re)) 1)))))
#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))) #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 (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 (fabs im))) re)) (/ 1 (sqrt (* 2 (fabs 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 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 (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 (* (fabs im) 2) #s(hole binary64 (* 2 (fabs im))))
#s(approx (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) #s(hole binary64 (* -1/2 (sqrt (* -2 im)))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (exp (* (log (/ -2 im)) 1/2)) #s(hole binary64 (/ (sqrt (* -2 im)) im)))
#s(approx (* (log (/ -2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (neg im)))))))
#s(approx (log (/ -2 im)) #s(hole binary64 (+ (log 2) (* -1 (log (neg im))))))
#s(approx (/ -2 im) #s(hole binary64 (/ -2 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 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))) #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 im) (exp (* (log (/ -2 im)) 1/2))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (exp (* (log (/ -2 im)) 1/2)) #s(hole binary64 (sqrt (/ -2 im))))
#s(approx (* (log (/ -2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (neg (/ 1 im)))))))
#s(approx (log (/ -2 im)) #s(hole binary64 (+ (log 2) (log (neg (/ 1 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 (* 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 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 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 (* (log (/ -2 im)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (log (/ -1 im))))))
#s(approx (log (/ -2 im)) #s(hole binary64 (+ (log 2) (log (/ -1 im)))))
Outputs
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #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) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(literal 2 binary64)))
(pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(/.f64 (-.f64 (*.f64 im im) (*.f64 re re)) (-.f64 (fabs.f64 im) re))
(/.f64 (-.f64 (*.f64 re re) (*.f64 im im)) (-.f64 re (fabs.f64 im)))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 re re) re)) (fma.f64 im im (-.f64 (*.f64 re re) (*.f64 (fabs.f64 im) re))))
(/.f64 (fma.f64 (*.f64 re re) re (*.f64 (*.f64 im im) im)) (fma.f64 re re (-.f64 (*.f64 im im) (*.f64 re (fabs.f64 im)))))
(fma.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) re)
(fma.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) re)
(fma.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)) re)
(fma.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) re)
(fma.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)) re)
(+.f64 (fabs.f64 im) re)
(+.f64 re (fabs.f64 im))
(*.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)))
(pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 1 binary64))
(pow.f64 (*.f64 im im) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 im im))
(fabs.f64 (neg.f64 im))
(fabs.f64 im)
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (fabs.f64 im))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sqrt.f64 (fabs.f64 im))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (fabs.f64 im))) #s(literal 2 binary64))))
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)
(*.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 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (-.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (-.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (-.f64 (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))))
(fma.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 #s(literal 2 binary64)) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fabs.f64 im)) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(+.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 (neg.f64 re) (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fabs.f64 im)))
(pow.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fabs.f64 im))
(*.f64 (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(*.f64 (fabs.f64 im) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (fabs.f64 im))
(pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (fabs.f64 im))
(fma.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (fabs.f64 im))
(fma.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)) (fabs.f64 im))
(fma.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (fabs.f64 im))
(fma.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 2 binary64))))
(+.f64 (fabs.f64 im) (fabs.f64 im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im) #s(literal -1/2 binary64)))
(*.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 (exp.f64 (log.f64 (/.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(exp.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(+.f64 (cosh.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) (sinh.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
(*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (log.f64 (exp.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)))))
(*.f64 #s(literal 1/2 binary64) (log.f64 (/.f64 #s(literal -2 binary64) im)))
(-.f64 (log.f64 (sqrt.f64 #s(literal -2 binary64))) (log.f64 (sqrt.f64 im)))
(log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(-.f64 (log.f64 #s(literal -2 binary64)) (log.f64 im))
(-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im)))
(log.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
(/.f64 #s(literal 2 binary64) (neg.f64 im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 re (sqrt.f64 (/.f64 #s(literal 2 binary64) (fabs.f64 im)))) #s(literal 1/4 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) (fabs.f64 im))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (fabs.f64 im))))) re (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (fabs.f64 im))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (*.f64 (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))) #s(literal -1/8 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (fabs.f64 im))) #s(literal 1/4 binary64))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (fabs.f64 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) (fabs.f64 im)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 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) (fabs.f64 im))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (fabs.f64 im))))) re (sqrt.f64 (*.f64 (fabs.f64 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 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (*.f64 (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))) (*.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (fabs.f64 im))) #s(literal 1/2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (fabs.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 re (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (fabs.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) re) (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (fabs.f64 im)))) re (sqrt.f64 (fabs.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 re (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (*.f64 (sqrt.f64 (fabs.f64 im)) (fabs.f64 im)))) #s(literal -1/4 binary64) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64))) re (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (fabs.f64 im)))) (sqrt.f64 (fabs.f64 im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (fabs.f64 im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (fabs.f64 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) (fabs.f64 im))) re #s(literal 1 binary64)) re (fabs.f64 im)))
#s(approx (+ (fabs im) re) (fabs.f64 im))
#s(approx (+ (fabs im) re) (+.f64 (fabs.f64 im) re))
#s(approx re re)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 re (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (fabs.f64 im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 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) (fabs.f64 im))) re #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) (fabs.f64 im)) #s(literal 1/2 binary64) (fabs.f64 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) (fabs.f64 im))) (fabs.f64 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 (fabs.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) (fabs.f64 im))) (*.f64 re re) (fabs.f64 im)))
#s(approx (neg re) (neg.f64 re))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (/ re (sqrt (* (fabs im) 2))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 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) 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 (*.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 (+ (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 (*.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 (+ (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 (*.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 (+ (fabs im) re) (*.f64 (+.f64 (/.f64 (fabs.f64 im) re) #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) 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 #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 (+ (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 #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 (+ (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 #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 (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (*.f64 (+.f64 (/.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) re) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.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 (+ (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 (/.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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (+ (fabs im) re) (*.f64 (neg.f64 re) (-.f64 (neg.f64 (/.f64 (fabs.f64 im) re)) #s(literal 1 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (neg.f64 (/.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 (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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (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 (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (*.f64 (neg.f64 re) (-.f64 (neg.f64 (/.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))))
#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 (*.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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (+ (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 (* 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 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 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 (* 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 (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 (* (fabs im) 2) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (* (* -1/2 im) (exp (* (log (/ -2 im)) 1/2))) (*.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 (exp (* (log (/ -2 im)) 1/2)) (/.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) im))
#s(approx (* (log (/ -2 im)) 1/2) (*.f64 (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (log (/ -2 im)) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))))
#s(approx (/ -2 im) (/.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) 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 (*.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 (+ (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 (*.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) (*.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 (* 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 (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 (+ (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 (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 (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 im) (exp (* (log (/ -2 im)) 1/2))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im) #s(literal -1/2 binary64)))
#s(approx (exp (* (log (/ -2 im)) 1/2)) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
#s(approx (* (log (/ -2 im)) 1/2) (*.f64 (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (log (/ -2 im)) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.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 (*.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 (* 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 (* 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 (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 (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 (* (log (/ -2 im)) 1/2) (*.f64 (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (log (/ -2 im)) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64))))

eval43.0ms (0.8%)

Memory
-3.0MiB live, 133.1MiB allocated; 13ms collecting garbage
Compiler

Compiled 14 052 to 1 974 computations (86% saved)

prune26.0ms (0.5%)

Memory
-28.4MiB live, 68.3MiB allocated; 12ms collecting garbage
Pruning

25 alts after pruning (17 fresh and 8 done)

PrunedKeptTotal
New3229331
Fresh088
Picked235
Done055
Total32425349
Accuracy
88.6%
Counts
349 → 25
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶51.0%
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
✓53.9%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
13.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
▶52.8%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) 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))) (sqrt.f64 #s(literal 2 binary64))))
51.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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)))))))
28.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓54.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
▶27.8%
(*.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))))
▶13.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
47.7%
(*.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))))
51.1%
(*.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)))
27.7%
(*.f64 #s(literal 1/2 binary64) #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)))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal -2 binary64) 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))))
▶0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 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) (exp.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
Compiler

Compiled 1 007 to 715 computations (29% saved)

series170.0ms (3.3%)

Memory
32.9MiB live, 360.6MiB allocated; 118ms collecting garbage
Counts
41 → 203
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
(*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)
(+.f64 (/.f64 re im) #s(literal 1 binary64))
(/.f64 re im)
re
im
#s(literal 1 binary64)
(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 4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (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(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(fabs.f64 im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64))))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64))
(-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im)))
(log.f64 #s(literal 2 binary64))
(log.f64 (neg.f64 im))
(neg.f64 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 (* (+ (/ re im) 1) im) #s(hole binary64 im))
#s(approx (* (+ (/ re im) 1) im) #s(hole binary64 (+ im re)))
#s(approx (+ (/ re im) 1) #s(hole binary64 1))
#s(approx (+ (/ re im) 1) #s(hole binary64 (+ 1 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 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 (* 4 re) #s(hole binary64 (* 4 re)))
#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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (sqrt (* 2 (fabs im)))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (+ (sqrt (* 2 (fabs im))) (/ re (sqrt (* 2 (fabs im)))))))
#s(approx (/ re (sqrt (* (fabs im) 2))) #s(hole binary64 (/ re (sqrt (* 2 (fabs 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 (* (+ (/ re im) 1) im) #s(hole binary64 (* re (+ 1 (/ im re)))))
#s(approx (+ (/ re im) 1) #s(hole binary64 (* re (+ (/ 1 im) (/ 1 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 (* 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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 (fabs im)))) (/ (sqrt (* 2 (fabs 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 (* (+ (/ re im) 1) im) #s(hole binary64 (* -1 (* re (- (* -1 (/ im re)) 1)))))
#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 (/ (+ (* -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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 (fabs im))) re)) (/ 1 (sqrt (* 2 (fabs 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 (+ (/ re im) 1) #s(hole binary64 (/ (+ im re) 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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (fabs im) 2) #s(hole binary64 (* 2 (fabs im))))
#s(approx (fabs im) #s(hole binary64 (fabs im)))
#s(approx (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) #s(hole binary64 (* -1/2 (* im (exp (* 1/2 (- (log 2) (log (neg im)))))))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) #s(hole binary64 (exp (* 1/2 (- (log 2) (log (neg im)))))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) #s(hole binary64 (* 1/2 (- (log 2) (log (neg im))))))
#s(approx (- (log 2) (log (neg im))) #s(hole binary64 (- (log 2) (log (neg im)))))
#s(approx (log (neg im)) #s(hole binary64 (log (neg im))))
#s(approx (neg im) #s(hole binary64 (* -1 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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 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) (exp (* (- (log 2) (log (neg im))) 1/2))) #s(hole binary64 (* -1/2 (* im (exp (* 1/2 (- (log 2) (* -1 (log (neg (/ 1 im)))))))))))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) #s(hole binary64 (exp (* 1/2 (- (log 2) (* -1 (log (neg (/ 1 im)))))))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) #s(hole binary64 (* 1/2 (- (log 2) (* -1 (log (neg (/ 1 im))))))))
#s(approx (- (log 2) (log (neg im))) #s(hole binary64 (- (log 2) (* -1 (log (neg (/ 1 im)))))))
#s(approx (log (neg im)) #s(hole binary64 (* -1 (log (neg (/ 1 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 (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (* (+ (/ re im) 1) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#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 (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) #s(hole binary64 (* -1/2 (* im (exp (* 1/2 (- (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) #s(hole binary64 (exp (* 1/2 (- (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) #s(hole binary64 (* 1/2 (- (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (- (log 2) (log (neg im))) #s(hole binary64 (- (log 2) (* -1 (log (/ -1 im))))))
#s(approx (log (neg im)) #s(hole binary64 (* -1 (log (/ -1 im)))))
Calls

6 calls:

TimeVariablePointExpression
65.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) (* (+ (/ re im) 1) im) (+ (/ re im) 1) (/ re im) re im 1 (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)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (fabs im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) (* -1/2 im) -1/2 (exp (* (- (log 2) (log (neg im))) 1/2)) (* (- (log 2) (log (neg im))) 1/2) (- (log 2) (log (neg im))) (log 2) (log (neg im)) (neg im))
51.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) (* (+ (/ re im) 1) im) (+ (/ re im) 1) (/ re im) re im 1 (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)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (fabs im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) (* -1/2 im) -1/2 (exp (* (- (log 2) (log (neg im))) 1/2)) (* (- (log 2) (log (neg im))) 1/2) (- (log 2) (log (neg im))) (log 2) (log (neg im)) (neg im))
39.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) (* (+ (/ re im) 1) im) (+ (/ re im) 1) (/ re im) re im 1 (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)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (fabs im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) (* -1/2 im) -1/2 (exp (* (- (log 2) (log (neg im))) 1/2)) (* (- (log 2) (log (neg im))) 1/2) (- (log 2) (log (neg im))) (log 2) (log (neg im)) (neg im))
3.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) (* (+ (/ re im) 1) im) (+ (/ re im) 1) (/ re im) re im 1 (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)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (fabs im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) (* -1/2 im) -1/2 (exp (* (- (log 2) (log (neg im))) 1/2)) (* (- (log 2) (log (neg im))) 1/2) (- (log 2) (log (neg im))) (log 2) (log (neg im)) (neg im))
3.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) (* (+ (/ re im) 1) im) (+ (/ re im) 1) (/ re im) re im 1 (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)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 2) (fabs im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) (* -1/2 im) -1/2 (exp (* (- (log 2) (log (neg im))) 1/2)) (* (- (log 2) (log (neg im))) 1/2) (- (log 2) (log (neg im))) (log 2) (log (neg im)) (neg im))

rewrite241.0ms (4.7%)

Memory
-20.6MiB live, 361.7MiB allocated; 41ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
011589215
011998463
169508329
092427249
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
244 → 377
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
(*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)
(+.f64 (/.f64 re im) #s(literal 1 binary64))
(/.f64 re im)
re
im
#s(literal 1 binary64)
(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 4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (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(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(fabs.f64 im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64))))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64))
(-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im)))
(log.f64 #s(literal 2 binary64))
(log.f64 (neg.f64 im))
(neg.f64 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 (* (+ (/ re im) 1) im) #s(hole binary64 im))
#s(approx (* (+ (/ re im) 1) im) #s(hole binary64 (+ im re)))
#s(approx (+ (/ re im) 1) #s(hole binary64 1))
#s(approx (+ (/ re im) 1) #s(hole binary64 (+ 1 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 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 (* 4 re) #s(hole binary64 (* 4 re)))
#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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (sqrt (* 2 (fabs im)))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (+ (sqrt (* 2 (fabs im))) (/ re (sqrt (* 2 (fabs im)))))))
#s(approx (/ re (sqrt (* (fabs im) 2))) #s(hole binary64 (/ re (sqrt (* 2 (fabs 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 (* (+ (/ re im) 1) im) #s(hole binary64 (* re (+ 1 (/ im re)))))
#s(approx (+ (/ re im) 1) #s(hole binary64 (* re (+ (/ 1 im) (/ 1 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 (* 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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 (fabs im)))) (/ (sqrt (* 2 (fabs 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 (* (+ (/ re im) 1) im) #s(hole binary64 (* -1 (* re (- (* -1 (/ im re)) 1)))))
#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 (/ (+ (* -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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 (fabs im))) re)) (/ 1 (sqrt (* 2 (fabs 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 (+ (/ re im) 1) #s(hole binary64 (/ (+ im re) 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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (fabs im) 2) #s(hole binary64 (* 2 (fabs im))))
#s(approx (fabs im) #s(hole binary64 (fabs im)))
#s(approx (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) #s(hole binary64 (* -1/2 (* im (exp (* 1/2 (- (log 2) (log (neg im)))))))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) #s(hole binary64 (exp (* 1/2 (- (log 2) (log (neg im)))))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) #s(hole binary64 (* 1/2 (- (log 2) (log (neg im))))))
#s(approx (- (log 2) (log (neg im))) #s(hole binary64 (- (log 2) (log (neg im)))))
#s(approx (log (neg im)) #s(hole binary64 (log (neg im))))
#s(approx (neg im) #s(hole binary64 (* -1 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 (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 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) (exp (* (- (log 2) (log (neg im))) 1/2))) #s(hole binary64 (* -1/2 (* im (exp (* 1/2 (- (log 2) (* -1 (log (neg (/ 1 im)))))))))))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) #s(hole binary64 (exp (* 1/2 (- (log 2) (* -1 (log (neg (/ 1 im)))))))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) #s(hole binary64 (* 1/2 (- (log 2) (* -1 (log (neg (/ 1 im))))))))
#s(approx (- (log 2) (log (neg im))) #s(hole binary64 (- (log 2) (* -1 (log (neg (/ 1 im)))))))
#s(approx (log (neg im)) #s(hole binary64 (* -1 (log (neg (/ 1 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 (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (* (+ (/ re im) 1) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#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 (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) #s(hole binary64 (* -1/2 (* im (exp (* 1/2 (- (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) #s(hole binary64 (exp (* 1/2 (- (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) #s(hole binary64 (* 1/2 (- (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (- (log 2) (log (neg im))) #s(hole binary64 (- (log 2) (* -1 (log (/ -1 im))))))
#s(approx (log (neg im)) #s(hole binary64 (* -1 (log (/ -1 im)))))
Outputs
(*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) 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) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))))
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) #s(literal 2 binary64)))
(pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)))
(exp.f64 (*.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) #s(literal 1/2 binary64)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
(*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)
(*.f64 im (+.f64 (/.f64 re im) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) im (*.f64 (/.f64 re im) im))
(fma.f64 im #s(literal 1 binary64) (*.f64 im (/.f64 re im)))
(+.f64 (*.f64 #s(literal 1 binary64) im) (*.f64 (/.f64 re im) im))
(+.f64 (*.f64 im #s(literal 1 binary64)) (*.f64 im (/.f64 re im)))
(/.f64 (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 1 binary64)) (-.f64 (/.f64 re im) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (-.f64 #s(literal 1 binary64) (/.f64 re im)))
(/.f64 (+.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 re im) (/.f64 re im) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 re im) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (*.f64 #s(literal 1 binary64) (/.f64 re im)))))
(+.f64 (/.f64 re im) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (/.f64 re im))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 re im)
re
im
#s(literal 1 binary64)
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(*.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)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
(*.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 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))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
(*.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re)
(/.f64 (neg.f64 (*.f64 im im)) re)
(/.f64 (*.f64 im im) (neg.f64 re))
(neg.f64 (/.f64 (*.f64 im im) re))
(*.f64 im (/.f64 im re))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(/.f64 (*.f64 im im) re)
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (fabs.f64 im) (fabs.f64 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 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (-.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (-.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 3 binary64))) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (-.f64 (*.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))))
(fma.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 #s(literal 2 binary64)) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fabs.f64 im)) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(+.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 (neg.f64 re) (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fabs.f64 im)))
(pow.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 im #s(literal 1/2 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (sqrt.f64 (fabs.f64 im)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 im #s(literal 1/2 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(hypot.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)))
(exp.f64 (*.f64 (log.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (fabs.f64 im))
(*.f64 (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(*.f64 (fabs.f64 im) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (fabs.f64 im))
(pow.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (fabs.f64 im))
(fma.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (fabs.f64 im))
(fma.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)) (fabs.f64 im))
(fma.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (fabs.f64 im))
(fma.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))
(exp.f64 (*.f64 (log.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 2 binary64))))
(+.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)) (pow.f64 (pow.f64 im #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 im #s(literal 1/2 binary64)) (pow.f64 im #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)))
(pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 1 binary64))
(pow.f64 (*.f64 im im) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 im im))
(fabs.f64 (neg.f64 im))
(fabs.f64 im)
(exp.f64 (*.f64 (log.f64 (*.f64 im im)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (fabs.f64 im)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (fabs.f64 im))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sqrt.f64 (fabs.f64 im))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (fabs.f64 im))) #s(literal 2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im) #s(literal -1/2 binary64)))
(*.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 (exp.f64 (log.f64 (/.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 (/.f64 #s(literal -2 binary64) im)))
(pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 1/2 binary64))
(/.f64 (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 (neg.f64 im))))
(/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im))
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(exp.f64 (*.f64 (log.f64 (exp.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)))) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 1/2 binary64))) (log.f64 (/.f64 #s(literal -2 binary64) im))))
(exp.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(+.f64 (cosh.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) (sinh.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
(*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (log.f64 (/.f64 #s(literal -2 binary64) im)))
(-.f64 (log.f64 (sqrt.f64 #s(literal -2 binary64))) (log.f64 (sqrt.f64 im)))
(log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(/.f64 (-.f64 (*.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64))) (*.f64 (log.f64 (neg.f64 im)) (log.f64 (neg.f64 im)))) (log.f64 (*.f64 #s(literal 2 binary64) (neg.f64 im))))
(/.f64 (-.f64 (pow.f64 (log.f64 #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (log.f64 (neg.f64 im)) #s(literal 3 binary64))) (fma.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64)) (fma.f64 (log.f64 (neg.f64 im)) (log.f64 (neg.f64 im)) (*.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))))))
(-.f64 (log.f64 #s(literal -2 binary64)) (log.f64 im))
(-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im)))
(log.f64 (/.f64 #s(literal -2 binary64) im))
(-.f64 (log.f64 #s(literal 4 binary64)) (log.f64 #s(literal 2 binary64)))
(log.f64 #s(literal 2 binary64))
(+.f64 (log.f64 im) (log.f64 #s(literal -1 binary64)))
(+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im))
(log.f64 (neg.f64 im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (*.f64 re (sqrt.f64 (/.f64 #s(literal 2 binary64) (fabs.f64 im)))) #s(literal 1/4 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) (fabs.f64 im))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (fabs.f64 im))))) re (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (fabs.f64 im))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (*.f64 (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))) #s(literal -1/8 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (fabs.f64 im))) #s(literal 1/4 binary64))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (fabs.f64 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) (fabs.f64 im)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 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) (fabs.f64 im))) (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (sqrt.f64 (fabs.f64 im))))) re (sqrt.f64 (*.f64 (fabs.f64 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 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) re) (*.f64 (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))) (*.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (fabs.f64 im))) #s(literal 1/2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (fabs.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 re (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (fabs.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) re) (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (fabs.f64 im)))) re (sqrt.f64 (fabs.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 re (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (*.f64 (sqrt.f64 (fabs.f64 im)) (fabs.f64 im)))) #s(literal -1/4 binary64) (*.f64 (/.f64 (-.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 im)) (/.f64 #s(literal 1/4 binary64) (fabs.f64 im))) (sqrt.f64 (fabs.f64 im))) #s(literal 1/2 binary64))) re (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (fabs.f64 im)))) (sqrt.f64 (fabs.f64 im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (fabs.f64 im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (fabs.f64 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) (fabs.f64 im))) re #s(literal 1 binary64)) re (fabs.f64 im)))
#s(approx (* (+ (/ re im) 1) im) im)
#s(approx (* (+ (/ re im) 1) im) (+.f64 im re))
#s(approx (+ (/ re im) 1) #s(literal 1 binary64))
#s(approx (+ (/ re im) 1) (+.f64 (/.f64 re im) #s(literal 1 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx re re)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (fabs.f64 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 (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 re (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (fabs.f64 im)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (fabs.f64 im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 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) (fabs.f64 im))) re #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (* 4 re) (*.f64 #s(literal 4 binary64) re))
#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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (/ re (sqrt (* (fabs im) 2))) (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 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) 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 (*.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 (+ (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 (*.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 (+ (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 (*.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 (* (+ (/ re im) 1) im) (*.f64 (+.f64 (/.f64 im re) #s(literal 1 binary64)) re))
#s(approx (+ (/ re im) 1) (*.f64 (+.f64 (/.f64 #s(literal 1 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) (/.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 #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 (+ (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 #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 (+ (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 #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 (+.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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (*.f64 (+.f64 (/.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) re) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.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 (+ (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 (/.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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (* (+ (/ re im) 1) im) (neg.f64 (*.f64 (-.f64 (/.f64 (neg.f64 im) re) #s(literal 1 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (/.f64 (*.f64 im im) (neg.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (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 (* 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 (/.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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.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)) (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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (neg.f64 (*.f64 (-.f64 (neg.f64 (/.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 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 (*.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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (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 (+ (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 (* 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 (+ (/ re im) 1) (/.f64 (+.f64 im re) 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 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 (* 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 (* im im) (*.f64 im im))
#s(approx (* (fabs im) 2) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (fabs im) (fabs.f64 im))
#s(approx (* (* -1/2 im) (exp (* (- (log 2) (log (neg im))) 1/2))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im) #s(literal -1/2 binary64)))
#s(approx (* -1/2 im) (*.f64 #s(literal -1/2 binary64) im))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
#s(approx (* (- (log 2) (log (neg im))) 1/2) (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (- (log 2) (log (neg im))) (log.f64 (/.f64 #s(literal -2 binary64) im)))
#s(approx (log (neg im)) (log.f64 (neg.f64 im)))
#s(approx (neg im) (neg.f64 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 (*.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 (+ (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 (*.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) (*.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 (* 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 (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 (+ (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 (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) (exp (* (- (log 2) (log (neg im))) 1/2))) (*.f64 (*.f64 (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) #s(literal 1/2 binary64))) im) #s(literal -1/2 binary64)))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) #s(literal 1/2 binary64))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) #s(literal 1/2 binary64)))
#s(approx (- (log 2) (log (neg im))) (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))
#s(approx (log (neg im)) (neg.f64 (neg.f64 (log.f64 (neg.f64 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 (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 (*.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) (*.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 (/.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 (* (+ (/ re im) 1) im) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 re im)) #s(literal 1 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im) #s(literal -1/2 binary64)))
#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 (* 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 #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 im) (exp (* (- (log 2) (log (neg im))) 1/2))) (*.f64 (*.f64 (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) #s(literal 1/2 binary64))) im) #s(literal -1/2 binary64)))
#s(approx (exp (* (- (log 2) (log (neg im))) 1/2)) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) #s(literal 1/2 binary64))))
#s(approx (* (- (log 2) (log (neg im))) 1/2) (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) #s(literal 1/2 binary64)))
#s(approx (- (log 2) (log (neg im))) (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))
#s(approx (log (neg im)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))))

eval39.0ms (0.8%)

Memory
12.9MiB live, 104.1MiB allocated; 6ms collecting garbage
Compiler

Compiled 13 721 to 1 970 computations (85.6% saved)

prune19.0ms (0.4%)

Memory
8.1MiB live, 54.8MiB allocated; 2ms collecting garbage
Pruning

27 alts after pruning (14 fresh and 13 done)

PrunedKeptTotal
New3183321
Fresh11112
Picked055
Done088
Total31927346
Accuracy
91.8%
Counts
346 → 27
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓51.0%
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
✓53.9%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
13.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
✓52.8%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) 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))) (sqrt.f64 #s(literal 2 binary64))))
53.9%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(approx (* (+ (/ re im) 1) im) (+.f64 im re)))) (sqrt.f64 #s(literal 2 binary64))))
51.0%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(approx (* (+ (/ re im) 1) im) im))) (sqrt.f64 #s(literal 2 binary64))))
25.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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)))))))
28.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓54.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
51.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
✓27.8%
(*.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))))
✓13.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
47.7%
(*.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))))
51.1%
(*.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)))
27.7%
(*.f64 #s(literal 1/2 binary64) #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)))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal -2 binary64) 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))))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 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) (exp.f64 (log.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
Compiler

Compiled 1 401 to 645 computations (54% saved)

regimes61.0ms (1.2%)

Memory
18.9MiB live, 163.3MiB allocated; 8ms collecting garbage
Counts
32 → 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) #s(approx (* (+ (/ re im) 1) im) im))) (sqrt.f64 #s(literal 2 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 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.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 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) 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 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(approx (* (+ (/ re im) 1) im) (+.f64 im re)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #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)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) 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(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(*.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))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (log.f64 (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) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (-.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (neg.f64 im))) #s(literal 1/2 binary64)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (pow.f64 (exp.f64 (log.f64 (/.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (fma.f64 im im (*.f64 re re)) (*.f64 (*.f64 re re) re)) (+.f64 (fma.f64 im im (*.f64 re re)) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (fma.f64 (fma.f64 im im (*.f64 re re)) (sqrt.f64 (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)))))))
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:

11.0ms
im
9.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
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))))
8.0ms
re
7.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
81.2%1(*.f64 im im)
84.8%2(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
84.8%2(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
85.4%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
85.4%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.1%2re
81.2%1im
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes62.0ms (1.2%)

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

7 calls:

22.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
8.0ms
im
7.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
6.0ms
re
6.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
Results
AccuracySegmentsBranch
68.6%3(*.f64 im im)
68.6%3im
72.5%3(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
72.5%3(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
77.2%4re
72.6%3(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
72.6%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))))
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes7.0ms (0.1%)

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

1 calls:

6.0ms
re
Results
AccuracySegmentsBranch
76.5%4re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes7.0ms (0.1%)

Memory
-26.6MiB live, 20.0MiB allocated; 2ms collecting garbage
Counts
18 → 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) #s(approx (* (+ (/ re im) 1) im) im))) (sqrt.f64 #s(literal 2 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 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.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 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) 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 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(approx (* (+ (/ re im) 1) im) (+.f64 im re)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #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)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (*.f64 im im) re) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 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

1 calls:

6.0ms
re
Results
AccuracySegmentsBranch
74.0%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes17.0ms (0.3%)

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

5 calls:

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

Compiled 51 to 40 computations (21.6% saved)

regimes12.0ms (0.2%)

Memory
-17.1MiB live, 33.6MiB allocated; 4ms collecting garbage
Accuracy

Total -32.8b remaining (-105.3%)

Threshold costs -32.8b (-105.3%)

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:

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

Compiled 55 to 45 computations (18.2% saved)

bsearch0.0ms (0%)

Memory
1.1MiB live, 1.1MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.0
8.123279124751526e-135
Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch55.0ms (1.1%)

Memory
0.9MiB live, 140.0MiB allocated; 10ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
12.0ms
1.8347087706615163e+134
1.0415949518623466e+138
12.0ms
1.7144149043350429e-105
1.2051758984437162e-103
25.0ms
-8.06680299190071e+50
-7.130657469894502e+44
Samples
19.0ms313×0valid
9.0ms36×2valid
3.0ms15×3valid
2.0ms20×1valid
Compiler

Compiled 1 026 to 795 computations (22.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 23.0ms
ival-hypot: 10.0ms (43% of total)
ival-mult!: 7.0ms (30.1% of total)
ival-sqrt: 3.0ms (12.9% of total)
adjust: 2.0ms (8.6% of total)
ival-add!: 1.0ms (4.3% of total)

bsearch4.0ms (0.1%)

Memory
14.0MiB live, 14.0MiB allocated; 0ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.8347087706615163e+134
1.0415949518623466e+138
1.0ms
1.7144149043350429e-105
1.2051758984437162e-103
1.0ms
-8.06680299190071e+50
-7.130657469894502e+44
Compiler

Compiled 898 to 731 computations (18.6% saved)

bsearch18.0ms (0.4%)

Memory
0.4MiB live, 51.6MiB allocated; 3ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
15.0ms
2.35931179884022e+26
1.0342568593702845e+29
1.0ms
-8.06680299190071e+50
-7.130657469894502e+44
Samples
10.0ms128×0valid
Compiler

Compiled 708 to 567 computations (19.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 7.0ms
ival-mult!: 4.0ms (54.2% of total)
ival-hypot: 2.0ms (27.1% of total)
ival-sqrt: 1.0ms (13.6% of total)
adjust: 0.0ms (0% of total)
ival-add!: 0.0ms (0% of total)

bsearch16.0ms (0.3%)

Memory
3.0MiB live, 46.5MiB allocated; 7ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
15.0ms
1.7144149043350429e-105
1.2051758984437162e-103
Samples
11.0ms96×0valid
Compiler

Compiled 284 to 231 computations (18.7% saved)

Precisions
Click to see histograms. Total time spent on operations: 9.0ms
ival-sqrt: 6.0ms (68.7% of total)
ival-hypot: 2.0ms (22.9% of total)
ival-mult!: 1.0ms (11.4% of total)
adjust: 0.0ms (0% of total)
ival-add!: 0.0ms (0% of total)

derivations255.0ms (5%)

Memory
-11.3MiB live, 373.2MiB allocated; 43ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 362 to 79 computations (78.2% saved)

preprocess94.0ms (1.8%)

Memory
29.8MiB live, 199.9MiB allocated; 49ms collecting garbage
Compiler

Compiled 1 140 to 498 computations (56.3% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...