math.sqrt on complex, real part

Time bar (total: 4.0s)

start0.0ms (0%)

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

analyze92.0ms (2.3%)

Memory
4.5MiB live, 197.4MiB allocated; 17ms 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.7s (41.6%)

Memory
-69.5MiB live, 1 486.9MiB allocated; 1.0s collecting garbage
Samples
553.0ms6 223×0valid
450.0ms479×3valid
148.0ms789×2valid
101.0ms765×1valid
Precisions
Click to see histograms. Total time spent on operations: 1.0s
ival-hypot: 630.0ms (62.9% of total)
ival-mult!: 138.0ms (13.8% of total)
ival-sqrt: 120.0ms (12% of total)
adjust: 63.0ms (6.3% of total)
ival-add!: 52.0ms (5.2% of total)
Bogosity

preprocess108.0ms (2.7%)

Memory
-22.4MiB live, 27.7MiB allocated; 14ms 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
▶37.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Symmetry

(abs im)

Compiler

Compiled 30 to 24 computations (20% saved)

series18.0ms (0.4%)

Memory
30.9MiB live, 30.9MiB allocated; 0ms 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:

TimeVariablePoint
3.0ms
im
0
3.0ms
im
inf
3.0ms
re
inf
3.0ms
re
0
2.0ms
re
-inf

rewrite204.0ms (5.1%)

Memory
-12.5MiB live, 308.7MiB allocated; 57ms 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))))

eval42.0ms (1.1%)

Memory
33.7MiB live, 88.4MiB allocated; 14ms collecting garbage
Compiler

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

prune21.0ms (0.5%)

Memory
-3.1MiB live, 41.7MiB allocated; 10ms collecting garbage
Pruning

20 alts after pruning (20 fresh and 0 done)

PrunedKeptTotal
New29820318
Fresh000
Picked101
Done000
Total29920319
Accuracy
87.4%
Counts
319 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
26.1%
(*.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)))))
73.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) im) re))))
▶77.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
37.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
5.9%
(*.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))))
58.9%
(*.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)))))
29.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))) (*.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))))
▶57.6%
(*.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))))))
▶57.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
17.6%
(*.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))))
19.7%
(*.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))))
9.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (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)))))
11.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
9.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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)))))
▶14.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
56.8%
(*.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))))))
19.9%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
▶57.6%
(*.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 1 076 to 708 computations (34.2% saved)

series25.0ms (0.6%)

Memory
1.2MiB live, 46.4MiB allocated; 7ms collecting garbage
Counts
32 → 135
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) #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 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
(*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)
(sqrt.f64 (/.f64 #s(literal 2 binary64) im))
(/.f64 #s(literal 2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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))))))
(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)))))
#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))))
(fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(/.f64 re (fabs.f64 im))
(fabs.f64 im)
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
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 (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 (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* 2 (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 re) (* 2 (fabs im)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 (fabs im)) (* re (+ 2 (/ re (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 2))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (+ 2 (/ re (fabs im)))))
#s(approx (/ re (fabs im)) #s(hole binary64 (/ re (fabs im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 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 (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (/ (pow re 2) (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ (fabs im) (pow re 2))) (+ (* 2 (/ 1 re)) (/ 1 (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (* re (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#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 (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ (fabs im) re)) 2) re)) (/ 1 (fabs im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* (sqrt (/ 2 im)) im) #s(hole binary64 (sqrt (* 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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (fabs im) #s(hole binary64 (fabs 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 (sqrt (/ 2 im)) #s(hole binary64 (sqrt (/ 2 im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -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:

TimeVariablePoint
6.0ms
im
0
6.0ms
re
inf
3.0ms
im
-inf
3.0ms
im
inf
2.0ms
re
-inf

rewrite224.0ms (5.6%)

Memory
25.2MiB live, 250.4MiB allocated; 48ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07234761
07574406
143104314
082024187
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
167 → 481
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) #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 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
(*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)
(sqrt.f64 (/.f64 #s(literal 2 binary64) im))
(/.f64 #s(literal 2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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))))))
(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)))))
#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))))
(fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(/.f64 re (fabs.f64 im))
(fabs.f64 im)
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
#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 (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 (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* 2 (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 re) (* 2 (fabs im)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 (fabs im)) (* re (+ 2 (/ re (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 2))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (+ 2 (/ re (fabs im)))))
#s(approx (/ re (fabs im)) #s(hole binary64 (/ re (fabs im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 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 (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (/ (pow re 2) (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ (fabs im) (pow re 2))) (+ (* 2 (/ 1 re)) (/ 1 (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (* re (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#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 (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ (fabs im) re)) 2) re)) (/ 1 (fabs im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* (sqrt (/ 2 im)) im) #s(hole binary64 (sqrt (* 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 (* im im) #s(hole binary64 (pow im 2)))
#s(approx (fabs im) #s(hole binary64 (fabs 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 (sqrt (/ 2 im)) #s(hole binary64 (sqrt (/ 2 im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -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 (-.f64 (sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 3/2 binary64)) (*.f64 (*.f64 re re) re)) (+.f64 (sqrt.f64 (*.f64 (fma.f64 im im (*.f64 re re)) (fma.f64 im im (*.f64 re re)))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im))))
(/.f64 (hypot.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) (sqrt.f64 (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (fabs.f64 (fabs.f64 im)) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (fabs.f64 (fabs.f64 im)) re)
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (fabs.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 (sqrt.f64 (*.f64 re re))) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (sqrt.f64 (*.f64 re re))) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 (sqrt.f64 (*.f64 re re))) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 (sqrt.f64 (*.f64 re re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 (sqrt.f64 (*.f64 re re))) (neg.f64 im))
(hypot.f64 (fabs.f64 (sqrt.f64 (*.f64 re re))) (fabs.f64 im))
(hypot.f64 (fabs.f64 (sqrt.f64 (*.f64 re re))) im)
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (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 (neg.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 re)) (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)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (neg.f64 (neg.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (neg.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 im)) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (neg.f64 (neg.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (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 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (exp.f64 (log.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (exp.f64 (log.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (neg.f64 (neg.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) im)
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 (neg.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 (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 (sqrt.f64 (*.f64 re re))) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (sqrt.f64 (*.f64 re re))) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 (sqrt.f64 (*.f64 re re))) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 (sqrt.f64 (*.f64 re re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (sqrt.f64 (*.f64 re re))) (neg.f64 im))
(hypot.f64 (neg.f64 (sqrt.f64 (*.f64 re re))) (fabs.f64 im))
(hypot.f64 (neg.f64 (sqrt.f64 (*.f64 re re))) im)
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (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 (neg.f64 re) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im)))
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (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) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (neg.f64 im) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (neg.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (sqrt.f64 (*.f64 re re)) (fabs.f64 (fabs.f64 im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (neg.f64 (neg.f64 im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (exp.f64 (log.f64 im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (neg.f64 im))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (fabs.f64 im))
(hypot.f64 (sqrt.f64 (*.f64 re re)) im)
(hypot.f64 (fabs.f64 im) (fabs.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (fabs.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (fabs.f64 im) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (neg.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 im (fabs.f64 (fabs.f64 re)))
(hypot.f64 im (fabs.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (neg.f64 (neg.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 im (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (neg.f64 (sqrt.f64 (*.f64 re re))))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (sqrt.f64 (*.f64 re re)))
(hypot.f64 im re)
(hypot.f64 re (fabs.f64 (fabs.f64 im)))
(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 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im)) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(+.f64 im im)
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #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))
(*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)
(*.f64 im (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))
(/.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 #s(literal -2 binary64) (neg.f64 im))
(/.f64 #s(literal 2 binary64) im)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))))
(pow.f64 #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 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
(*.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re)
(/.f64 (neg.f64 (*.f64 im im)) re)
(/.f64 (*.f64 im im) (neg.f64 re))
(neg.f64 (/.f64 (*.f64 im im) re))
(*.f64 im (/.f64 im re))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(/.f64 (*.f64 im im) re)
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)))
(*.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 (neg.f64 im)))
(fabs.f64 (*.f64 (neg.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))))
(*.f64 (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))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(pow.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)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.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)))) #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)))))
(exp.f64 (*.f64 (log.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))))) #s(literal 1/2 binary64)))
#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 (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (-.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(/.f64 (-.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))) (-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64))) (fma.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (-.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64) (pow.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 #s(literal 4 binary64) (*.f64 im im) (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))))
(fma.f64 (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (pow.f64 (fabs.f64 im) #s(literal 1 binary64)) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(fma.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 re (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (pow.f64 (fabs.f64 im) #s(literal 1 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 #s(literal 2 binary64) (fabs.f64 im) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(-.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (neg.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (neg.f64 re) (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))))
(+.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(+.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)))) (-.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im))))
(/.f64 (-.f64 (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))) #s(literal 4 binary64)) (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 8 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im))) (+.f64 #s(literal 4 binary64) (-.f64 (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))) (*.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im))))))
(/.f64 (+.f64 (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) #s(literal 8 binary64)) (fma.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))))
(+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(+.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im)))
(/.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(/.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 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 (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(*.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(*.f64 (pow.f64 (fabs.f64 im) #s(literal 1 binary64)) #s(literal 2 binary64))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(*.f64 (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 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) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (pow.f64 (fabs.f64 im) #s(literal 1 binary64)))
(*.f64 #s(literal 2 binary64) (fabs.f64 im))
(pow.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 2 binary64))
(pow.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) #s(literal 1/2 binary64))
(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))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (neg.f64 im)) (sqrt.f64 (neg.f64 im)) (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 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))
(fma.f64 (sqrt.f64 im) (sqrt.f64 im) (fabs.f64 im))
(fma.f64 #s(literal 1 binary64) (fabs.f64 im) (fabs.f64 im))
(fma.f64 (fabs.f64 im) #s(literal 1 binary64) (fabs.f64 im))
(sqrt.f64 (*.f64 #s(literal 4 binary64) (*.f64 im 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))
#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 (neg (/ (* im im) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 #s(literal 2 binary64) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (+ (/ re (fabs im)) 2) #s(literal 2 binary64))
#s(approx (+ (/ re (fabs im)) 2) (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))
#s(approx (/ re (fabs im)) (/.f64 re (fabs.f64 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (fma.f64 (log.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) #s(literal 3 binary64) (*.f64 (log.f64 re) #s(literal 6 binary64))))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (fma.f64 (log.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) #s(literal 3 binary64) (*.f64 (log.f64 re) #s(literal 6 binary64))))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.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 (fabs im)) 2) re) (* (fabs im) 2)) (/.f64 (*.f64 re re) (fabs.f64 im)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) (*.f64 re re)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (*.f64 re re) (fma.f64 (/.f64 (fabs.f64 im) (*.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) (fabs.f64 im))))))
#s(approx (+ (/ re (fabs im)) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 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 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (fabs.f64 im) (sqrt.f64 (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 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 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 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 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 (/.f64 (fabs.f64 im) (sqrt.f64 (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))) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 (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 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (/.f64 (fabs.f64 im) (sqrt.f64 (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)) (/.f64 (fabs.f64 im) (sqrt.f64 (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 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) re) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (/.f64 (fabs.f64 im) (sqrt.f64 (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 (+ (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 (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (*.f64 re re) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fabs.f64 im) re) #s(literal -2 binary64)) #s(literal 2 binary64)) re)) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re 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 (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(literal -1/4 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))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.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 (/.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 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/4 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 (/.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 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(literal -1/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 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.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 (/.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 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/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 (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 re re)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (sqrt.f64 (*.f64 re re)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (* (sqrt (/ 2 im)) im) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (/ 2 im)) (/.f64 (sqrt.f64 (+.f64 im im)) im))
#s(approx (/ 2 im) (/.f64 #s(literal 2 binary64) im))
#s(approx (* im im) (*.f64 im im))
#s(approx (fabs im) (fabs.f64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (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 (sqrt (/ 2 im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.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))))

eval67.0ms (1.7%)

Memory
-8.4MiB live, 141.8MiB allocated; 18ms collecting garbage
Compiler

Compiled 11 901 to 2 513 computations (78.9% saved)

prune20.0ms (0.5%)

Memory
4.8MiB live, 49.7MiB allocated; 5ms collecting garbage
Pruning

19 alts after pruning (15 fresh and 4 done)

PrunedKeptTotal
New4463449
Fresh31215
Picked145
Done000
Total45019469
Accuracy
99.9%
Counts
469 → 19
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶57.6%
(*.f64 (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))))) #s(literal 1/2 binary64))
26.1%
(*.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)))))
✓77.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
37.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
▶58.9%
(*.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)))))
✓57.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶17.6%
(*.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))))
19.7%
(*.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))))
9.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (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)))))
11.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
9.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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)))))
✓14.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
17.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
27.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re)))))
56.8%
(*.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))))))
19.9%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
✓57.6%
(*.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 947 to 614 computations (35.2% saved)

series74.0ms (1.8%)

Memory
-74.0MiB live, 56.1MiB allocated; 81ms collecting garbage
Counts
37 → 129
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
#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 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(literal 2 binary64)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(+.f64 (fabs.f64 im) re)
(fabs.f64 im)
im
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
(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)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
(*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)
(+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64))
(/.f64 (*.f64 im im) (*.f64 re re))
(*.f64 im im)
(*.f64 re re)
#s(literal 4 binary64)
(*.f64 (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))))) #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)))))
#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))))
(fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(/.f64 re (fabs.f64 im))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
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 (+ (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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* 2 (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 re) (* 2 (fabs im)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 (fabs im)) (* re (+ 2 (/ re (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 2))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (+ 2 (/ re (fabs im)))))
#s(approx (/ re (fabs im)) #s(hole binary64 (/ re (fabs im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (fabs im) re) #s(hole binary64 (* re (+ 1 (/ (fabs im) re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 4))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (/ (pow re 2) (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ (fabs im) (pow re 2))) (+ (* 2 (/ 1 re)) (/ 1 (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (* re (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#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 (+ (fabs im) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (fabs im) re)) 1)))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ (fabs im) re)) 2) re)) (/ 1 (fabs im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (sqrt (* -2 im)))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (/ (sqrt (* -2 im)) im)))
#s(approx (/ -2 im) #s(hole binary64 (/ -2 im)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 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 (* (* -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)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* 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))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
Calls

6 calls:

TimeVariablePoint
6.0ms
im
-inf
3.0ms
im
0
3.0ms
im
inf
2.0ms
re
-inf
2.0ms
re
inf

rewrite192.0ms (4.8%)

Memory
41.5MiB live, 271.6MiB allocated; 22ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07085050
07394727
142164521
094953880
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
166 → 364
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
#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 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))
#s(literal 2 binary64)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))
(+.f64 (fabs.f64 im) re)
(fabs.f64 im)
im
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
(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)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
(*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)
(+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64))
(/.f64 (*.f64 im im) (*.f64 re re))
(*.f64 im im)
(*.f64 re re)
#s(literal 4 binary64)
(*.f64 (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))))) #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)))))
#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))))
(fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(/.f64 re (fabs.f64 im))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
#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 (+ (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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* 2 (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 re) (* 2 (fabs im)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 (fabs im)) (* re (+ 2 (/ re (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 2))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (+ 2 (/ re (fabs im)))))
#s(approx (/ re (fabs im)) #s(hole binary64 (/ re (fabs im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (fabs im) re) #s(hole binary64 (* re (+ 1 (/ (fabs im) re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 4))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (/ (pow re 2) (fabs im))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ (fabs im) (pow re 2))) (+ (* 2 (/ 1 re)) (/ 1 (fabs im)))))))
#s(approx (+ (/ re (fabs im)) 2) #s(hole binary64 (* re (+ (* 2 (/ 1 re)) (/ 1 (fabs im))))))
#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 (+ (fabs im) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (fabs im) re)) 1)))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ (fabs im) re)) 2) re)) (/ 1 (fabs im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (sqrt (* -2 im)))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (/ (sqrt (* -2 im)) im)))
#s(approx (/ -2 im) #s(hole binary64 (/ -2 im)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 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 (* (* -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)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* 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))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
Outputs
(*.f64 (sqrt.f64 (*.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(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(literal 2 binary64)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.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 (-.f64 (*.f64 im im) (*.f64 re re))) (neg.f64 (-.f64 (fabs.f64 im) re)))
(/.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 re re) (*.f64 im im)) (-.f64 re (fabs.f64 im)))
(/.f64 (-.f64 (*.f64 im im) (*.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)))))
(/.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 (fabs.f64 im) #s(literal 1 binary64) re)
(fma.f64 #s(literal 1 binary64) (fabs.f64 im) 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 (fabs.f64 im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (fabs.f64 im))
(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)))
im
re
(*.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))
(/.f64 #s(literal 1 binary64) (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)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
(*.f64 im #s(literal -2 binary64))
#s(literal -2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal -1/2 binary64) im)))
(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im) #s(literal -1/2 binary64))
(*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal -1/2 binary64) im))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im))
(*.f64 #s(literal -1/2 binary64) im)
(*.f64 im #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 1/2 binary64))
(/.f64 (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)))
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re)) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re))
(*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re)
(*.f64 re (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))
(fma.f64 #s(literal 4 binary64) re (*.f64 re (*.f64 im (/.f64 im (*.f64 re re)))))
(fma.f64 #s(literal 4 binary64) re (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) re))
(fma.f64 re #s(literal 4 binary64) (*.f64 re (*.f64 im (/.f64 im (*.f64 re re)))))
(fma.f64 re #s(literal 4 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) re))
(+.f64 (*.f64 #s(literal 4 binary64) re) (*.f64 re (*.f64 im (/.f64 im (*.f64 re re)))))
(+.f64 (*.f64 #s(literal 4 binary64) re) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) re))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re)))) #s(literal 16 binary64))) (neg.f64 (-.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 4 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 16 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re)))))) (neg.f64 (-.f64 #s(literal 4 binary64) (*.f64 im (/.f64 im (*.f64 re re))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 3 binary64)) #s(literal 64 binary64))) (neg.f64 (fma.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re))) (-.f64 #s(literal 16 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 64 binary64) (pow.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 16 binary64) (-.f64 (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re)))) (*.f64 #s(literal 4 binary64) (*.f64 im (/.f64 im (*.f64 re re))))))))
(/.f64 (-.f64 (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re)))) #s(literal 16 binary64)) (-.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 4 binary64)))
(/.f64 (-.f64 #s(literal 16 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re))))) (-.f64 #s(literal 4 binary64) (*.f64 im (/.f64 im (*.f64 re re)))))
(/.f64 (+.f64 (pow.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 3 binary64)) #s(literal 64 binary64)) (fma.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re))) (-.f64 #s(literal 16 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 4 binary64)))))
(/.f64 (+.f64 #s(literal 64 binary64) (pow.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 3 binary64))) (+.f64 #s(literal 16 binary64) (-.f64 (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) (*.f64 im (/.f64 im (*.f64 re re)))) (*.f64 #s(literal 4 binary64) (*.f64 im (/.f64 im (*.f64 re re)))))))
(fma.f64 (fabs.f64 (/.f64 im re)) (fabs.f64 (/.f64 im re)) #s(literal 4 binary64))
(fma.f64 (neg.f64 (/.f64 im re)) (neg.f64 (/.f64 im re)) #s(literal 4 binary64))
(fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))
(fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))
(+.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 4 binary64))
(+.f64 #s(literal 4 binary64) (*.f64 im (/.f64 im (*.f64 re re))))
(*.f64 (fabs.f64 (/.f64 im re)) (fabs.f64 (/.f64 im re)))
(*.f64 (neg.f64 (/.f64 im re)) (neg.f64 (/.f64 im re)))
(*.f64 (/.f64 im re) (/.f64 im re))
(*.f64 im (/.f64 im (*.f64 re re)))
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 im im))) (neg.f64 (neg.f64 (*.f64 re re))))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (*.f64 re re)))
(/.f64 (neg.f64 (/.f64 (*.f64 im im) re)) (neg.f64 re))
(/.f64 (/.f64 (*.f64 im im) re) re)
(/.f64 (*.f64 im im) (*.f64 re re))
(exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)) (*.f64 (log.f64 re) #s(literal 2 binary64))))
(*.f64 (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) (/.f64 #s(literal 1 binary64) (*.f64 im im)))
(sqrt.f64 (*.f64 (*.f64 im im) (*.f64 im im)))
(fabs.f64 (*.f64 im (neg.f64 im)))
(fabs.f64 (*.f64 (neg.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))))
(*.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 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 re re) (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re 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(literal 4 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 im im) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))) (neg.f64 (-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)) (*.f64 (*.f64 im im) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64) (pow.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 im im) #s(literal 4 binary64) (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64)))) (neg.f64 (fma.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (-.f64 (*.f64 (*.f64 im im) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (*.f64 (*.f64 im im) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))) (-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)) (*.f64 (*.f64 im im) #s(literal 4 binary64))) (-.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64) (pow.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 (*.f64 im im) #s(literal 4 binary64) (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64))) (fma.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (-.f64 (*.f64 (*.f64 im im) #s(literal 4 binary64)) (*.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(fma.f64 (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (pow.f64 (fabs.f64 im) #s(literal 1 binary64)) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 re (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (pow.f64 (fabs.f64 im) #s(literal 1 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(fma.f64 #s(literal 2 binary64) (fabs.f64 im) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(-.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (neg.f64 re) (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))))
(-.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (neg.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(+.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(+.f64 (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(/.f64 (neg.f64 (-.f64 (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))) #s(literal 4 binary64))) (neg.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))))) (neg.f64 (-.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im)))))
(/.f64 (neg.f64 (+.f64 (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) #s(literal 8 binary64))) (neg.f64 (fma.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (+.f64 #s(literal 8 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)))) (neg.f64 (+.f64 #s(literal 4 binary64) (-.f64 (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))) (*.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im)))))))
(/.f64 (-.f64 (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))) #s(literal 4 binary64)) (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)))) (-.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im))))
(/.f64 (+.f64 (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im)) #s(literal 8 binary64)) (fma.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))))
(/.f64 (+.f64 #s(literal 8 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) im))) (+.f64 #s(literal 4 binary64) (-.f64 (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))) (*.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im))))))
(+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(+.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im)))
(/.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 (fabs.f64 im))))
(/.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(/.f64 re (fabs.f64 im))
(*.f64 (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (fabs.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(*.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(*.f64 (pow.f64 (fabs.f64 im) #s(literal 1 binary64)) #s(literal 2 binary64))
(*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(*.f64 (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(*.f64 #s(literal 2 binary64) (pow.f64 (fabs.f64 im) #s(literal 1 binary64)))
(*.f64 #s(literal 2 binary64) (fabs.f64 im))
(pow.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 im im) #s(literal 4 binary64)) #s(literal 1/2 binary64))
(pow.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 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (neg.f64 im)) (sqrt.f64 (neg.f64 im)) (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 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)) (fabs.f64 im))
(fma.f64 (sqrt.f64 im) (sqrt.f64 im) (fabs.f64 im))
(fma.f64 (fabs.f64 im) #s(literal 1 binary64) (fabs.f64 im))
(fma.f64 #s(literal 1 binary64) (fabs.f64 im) (fabs.f64 im))
(sqrt.f64 (*.f64 (*.f64 im im) #s(literal 4 binary64)))
(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))
#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 (*.f64 im im) #s(literal 4 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 im im) #s(literal 4 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 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))
#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 (+ (fabs im) re) (fabs.f64 im))
#s(approx (+ (fabs im) re) (+.f64 (fabs.f64 im) re))
#s(approx re re)
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (/.f64 (*.f64 im im) re))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) re))
#s(approx (+ (/ (* im im) (* re re)) 4) (*.f64 im (/.f64 im (*.f64 re re))))
#s(approx (+ (/ (* im im) (* re re)) 4) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 #s(literal 2 binary64) (+.f64 (fabs.f64 im) re)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (fma.f64 (fabs.f64 im) #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)))
#s(approx (+ (/ re (fabs im)) 2) #s(literal 2 binary64))
#s(approx (+ (/ re (fabs im)) 2) (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))
#s(approx (/ re (fabs im)) (/.f64 re (fabs.f64 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (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 (fma.f64 im (/.f64 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 im (/.f64 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 im (/.f64 im (*.f64 re re))) #s(literal 3 binary64)) #s(literal 1/8 binary64) (*.f64 im (/.f64 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 im (/.f64 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 im (/.f64 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) (fma.f64 (pow.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 3 binary64)) #s(literal 1/16 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) #s(literal 2 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)) 4) #s(literal 4 binary64))
#s(approx (+ (/ (* im im) (* re re)) 4) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (/.f64 (*.f64 re re) (fabs.f64 im)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (+.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 2 binary64) re)) (*.f64 re re)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (*.f64 re re) (fma.f64 (/.f64 (fabs.f64 im) (*.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 2 binary64) re)))))
#s(approx (+ (/ re (fabs im)) 2) (*.f64 (+.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 2 binary64) 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 (+ (fabs im) re) (neg.f64 (*.f64 (-.f64 (neg.f64 (/.f64 (fabs.f64 im) re)) #s(literal 1 binary64)) re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (neg.f64 (*.f64 (-.f64 (neg.f64 (*.f64 im (/.f64 im (*.f64 re re)))) #s(literal 4 binary64)) re)))
#s(approx (+ (* (+ (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (*.f64 re re) (+.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (/.f64 (fabs.f64 im) re) #s(literal -2 binary64)) #s(literal 2 binary64)) re)) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))))
#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 im im)
#s(approx (* -2 im) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* -1/2 im) (*.f64 #s(literal -1/2 binary64) im))
#s(approx (sqrt (/ -2 im)) (/.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) im))
#s(approx (/ -2 im) (/.f64 #s(literal -2 binary64) im))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #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 (* (* -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)) 4) re) (*.f64 (*.f64 im im) (fma.f64 (/.f64 re (*.f64 im im)) #s(literal 4 binary64) (/.f64 #s(literal 1 binary64) re))))
#s(approx (+ (/ (* im im) (* re re)) 4) (*.f64 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (/.f64 #s(literal 4 binary64) (*.f64 im im))) (*.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 (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 (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))))

eval48.0ms (1.2%)

Memory
-14.1MiB live, 85.2MiB allocated; 17ms collecting garbage
Compiler

Compiled 12 190 to 2 076 computations (83% saved)

prune17.0ms (0.4%)

Memory
-5.3MiB live, 41.6MiB allocated; 2ms collecting garbage
Pruning

20 alts after pruning (12 fresh and 8 done)

PrunedKeptTotal
New3443347
Fresh1910
Picked145
Done044
Total34620366
Accuracy
100.0%
Counts
366 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓57.6%
(*.f64 (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))))) #s(literal 1/2 binary64))
▶58.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))))
26.1%
(*.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)))))
✓77.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
37.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓58.9%
(*.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)))))
✓57.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶19.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #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))))
9.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (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)))))
11.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
9.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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)))))
✓14.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
17.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
▶18.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
27.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re)))))
▶56.8%
(*.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))))))
▶19.9%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
✓57.6%
(*.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 936 to 592 computations (36.8% saved)

series48.0ms (1.2%)

Memory
23.3MiB live, 69.5MiB allocated; 2ms collecting garbage
Counts
35 → 199
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(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))
(*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re)
#s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
(*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)
(/.f64 #s(literal 2 binary64) (sqrt.f64 re))
(sqrt.f64 re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.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))
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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (* (/ 2 (sqrt re)) re) #s(hole binary64 (* 2 (/ re (sqrt re)))))
#s(approx (/ 2 (sqrt re)) #s(hole binary64 (/ 2 (sqrt re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt 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 (+ (/ (* im im) (* re re)) 4) #s(hole binary64 4))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (* (/ 2 (sqrt re)) re) #s(hole binary64 (/ 2 (sqrt (/ 1 re)))))
#s(approx (/ 2 (sqrt re)) #s(hole binary64 (/ 2 (* re (sqrt (/ 1 re))))))
#s(approx (sqrt re) #s(hole binary64 (* re (sqrt (/ 1 re)))))
#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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* (/ 2 (sqrt re)) re) #s(hole binary64 (/ -2 (sqrt (/ 1 re)))))
#s(approx (/ 2 (sqrt re)) #s(hole binary64 (/ -2 (* re (sqrt (/ 1 re))))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* re (sqrt (/ 1 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 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (fabs im) 2) #s(hole binary64 (* 2 (fabs 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* 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/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)))))))
Calls

6 calls:

TimeVariablePoint
21.0ms
re
-inf
5.0ms
re
inf
5.0ms
re
0
4.0ms
im
0
4.0ms
im
inf

rewrite284.0ms (7.1%)

Memory
-0.9MiB live, 400.3MiB allocated; 103ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
011469236
011778532
169668439
092457314
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
234 → 354
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(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))
(*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re)
#s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
(*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)
(/.f64 #s(literal 2 binary64) (sqrt.f64 re))
(sqrt.f64 re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.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 (+ (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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (* (/ 2 (sqrt re)) re) #s(hole binary64 (* 2 (/ re (sqrt re)))))
#s(approx (/ 2 (sqrt re)) #s(hole binary64 (/ 2 (sqrt re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt 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 (+ (/ (* im im) (* re re)) 4) #s(hole binary64 4))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (+ 4 (/ (pow im 2) (pow re 2)))))
#s(approx (* (/ 2 (sqrt re)) re) #s(hole binary64 (/ 2 (sqrt (/ 1 re)))))
#s(approx (/ 2 (sqrt re)) #s(hole binary64 (/ 2 (* re (sqrt (/ 1 re))))))
#s(approx (sqrt re) #s(hole binary64 (* re (sqrt (/ 1 re)))))
#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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* (/ 2 (sqrt re)) re) #s(hole binary64 (/ -2 (sqrt (/ 1 re)))))
#s(approx (/ 2 (sqrt re)) #s(hole binary64 (/ -2 (* re (sqrt (/ 1 re))))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* re (sqrt (/ 1 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 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (fabs im) 2) #s(hole binary64 (* 2 (fabs 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 (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* 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/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)))))))
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)))
(exp.f64 (*.f64 (log.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) #s(literal 1/2 binary64)))
#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 (*.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))))
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))
(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(approx (+ (/ (* im im) (* re re)) 4) #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(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))
(*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re)
(*.f64 re #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (+.f64 re re) (sqrt.f64 re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (+.f64 re re) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (+.f64 re re) (sqrt.f64 re)))
(*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)
(*.f64 (/.f64 re (sqrt.f64 re)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (/.f64 re (sqrt.f64 re)))
(*.f64 re (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))
(/.f64 (+.f64 re re) (sqrt.f64 re))
(+.f64 (/.f64 re (sqrt.f64 re)) (/.f64 re (sqrt.f64 re)))
(pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 1/2 binary64))
(/.f64 #s(literal -2 binary64) (neg.f64 (sqrt.f64 re)))
(/.f64 #s(literal 2 binary64) (sqrt.f64 re))
(sqrt.f64 (/.f64 #s(literal 4 binary64) re))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 4 binary64) re)) #s(literal 1/2 binary64)))
(pow.f64 re #s(literal 1/2 binary64))
(sqrt.f64 re)
(exp.f64 (*.f64 (log.f64 re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 4 binary64) re) (*.f64 #s(literal 4 binary64) re)) (*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re))) (-.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re)))
(/.f64 (fma.f64 #s(literal 64 binary64) (*.f64 (*.f64 re re) re) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 4 binary64) re) (*.f64 #s(literal 4 binary64) re) (-.f64 (*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re)) (*.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re)))))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
(fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 re #s(literal 4 binary64) (/.f64 (*.f64 im im) re))
(+.f64 (*.f64 #s(literal 4 binary64) re) (/.f64 (*.f64 im im) re))
(+.f64 (/.f64 (*.f64 im im) re) (*.f64 #s(literal 4 binary64) re))
(*.f64 im (/.f64 im re))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(/.f64 (*.f64 im im) re)
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 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))
#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)))) (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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (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 (* 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 (*.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 (* (+ (/ (* im im) (* re re)) 4) re) (/.f64 (*.f64 im im) re))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) re))
#s(approx (+ (/ (* im im) (* re re)) 4) (*.f64 im (/.f64 im (*.f64 re re))))
#s(approx (+ (/ (* im im) (* re re)) 4) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) (*.f64 re re)))
#s(approx (* (/ 2 (sqrt re)) re) (/.f64 (+.f64 re re) (sqrt.f64 re)))
#s(approx (/ 2 (sqrt re)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))
#s(approx (sqrt re) (sqrt.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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) #s(literal -1/64 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) re)))))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal -1/16 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/32 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) #s(literal 1/4 binary64)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (*.f64 im (/.f64 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 im (/.f64 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) (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 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) #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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (/.f64 (+.f64 re re) (sqrt.f64 re)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (+.f64 re re) (sqrt.f64 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 (fma.f64 im (/.f64 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 im (/.f64 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 im (/.f64 im (*.f64 re re))))) #s(literal 4 binary64)) re))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64))
#s(approx (+ (/ (* im im) (* re re)) 4) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))
#s(approx (* (/ 2 (sqrt re)) re) (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (/ 2 (sqrt re)) (/.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) re)))
#s(approx (sqrt re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 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 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re)))) #s(literal 1/32 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/64 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/64 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.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 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re)))) #s(literal 1/16 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (sqrt (* 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 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (sqrt (* 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 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re)))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.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) (neg.f64 (*.f64 (-.f64 (neg.f64 (/.f64 (fabs.f64 im) re)) #s(literal 1 binary64)) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (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 (* (+ (/ (* im im) (* re re)) 4) re) (neg.f64 (*.f64 (-.f64 (neg.f64 (*.f64 im (/.f64 im (*.f64 re re)))) #s(literal 4 binary64)) re)))
#s(approx (* (/ 2 (sqrt re)) re) (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (/ 2 (sqrt re)) (/.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) re)))
#s(approx (sqrt re) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) 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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/4 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/4 binary64))) (*.f64 im im) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re)))) #s(literal 1/4 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) (*.f64 re re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal -1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 re re)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))) re))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re)) (sqrt.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re))) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* im im) (*.f64 im im))
#s(approx (* (fabs im) 2) (*.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) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) #s(literal -1/8 binary64) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) #s(literal 1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) #s(literal 1/4 binary64) (*.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) #s(literal 1/4 binary64) (*.f64 (/.f64 re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 im im))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.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 (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (*.f64 (*.f64 im im) (fma.f64 (/.f64 re (*.f64 im im)) #s(literal 4 binary64) (/.f64 #s(literal 1 binary64) re))))
#s(approx (+ (/ (* im im) (* re re)) 4) (*.f64 (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (/.f64 #s(literal 4 binary64) (*.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) (/.f64 #s(literal -1 binary64) im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im)) #s(literal 1/16 binary64))) (*.f64 (*.f64 im im) im))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 re re) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/4 binary64) (*.f64 (/.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im)) #s(literal 1/8 binary64))) (*.f64 (*.f64 im im) im))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) im)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -1 binary64) im)) (*.f64 im im))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) #s(literal 1/4 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 re re)) (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 3/2 binary64)) im))) (*.f64 (*.f64 im im) im)))) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.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))))

eval64.0ms (1.6%)

Memory
17.5MiB live, 122.7MiB allocated; 43ms collecting garbage
Compiler

Compiled 13 855 to 1 978 computations (85.7% saved)

prune23.0ms (0.6%)

Memory
6.7MiB live, 52.8MiB allocated; 6ms collecting garbage
Pruning

24 alts after pruning (13 fresh and 11 done)

PrunedKeptTotal
New3196325
Fresh077
Picked235
Done088
Total32124345
Accuracy
100.0%
Counts
345 → 24
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓57.6%
(*.f64 (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))))) #s(literal 1/2 binary64))
56.8%
(*.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))
✓58.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))))
2.9%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 re im)) #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))))
11.6%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #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)))) (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))))
57.5%
(*.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))))
26.1%
(*.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)))))
✓77.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
37.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓58.9%
(*.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)))))
✓57.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓19.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #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))))
9.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (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)))))
11.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
9.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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)))))
✓14.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
17.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
✓18.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
27.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re)))))
19.9%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 re (sqrt.f64 re)) #s(literal 2 binary64))))
✓57.6%
(*.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 1 516 to 650 computations (57.1% saved)

regimes109.0ms (2.7%)

Memory
-6.3MiB live, 93.5MiB allocated; 21ms collecting garbage
Counts
33 → 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) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (+ (/ (* im im) (* re re)) 4) #s(literal 4 binary64)) re))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(*.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) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 re (sqrt.f64 re)) #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))))
(*.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) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 re im)) #s(literal 1 binary64))))) (sqrt.f64 #s(literal 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 (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))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (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) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (*.f64 re re)) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #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)))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))) (*.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (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)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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)))))
Outputs
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 (neg.f64 re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
Calls

7 calls:

55.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
12.0ms
im
9.0ms
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
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
Results
AccuracySegmentsBranch
77.9%1(*.f64 im im)
89.8%2(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
89.8%2(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
89.0%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
89.0%2(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
88.7%2re
79.6%2im
Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes49.0ms (1.2%)

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

5 calls:

22.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
7.0ms
re
6.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
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
6.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
Results
AccuracySegmentsBranch
83.1%3re
79.7%4(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
79.7%4(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
80.6%4(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
80.6%4(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes8.0ms (0.2%)

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

1 calls:

6.0ms
re
Results
AccuracySegmentsBranch
83.1%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes5.0ms (0.1%)

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

1 calls:

4.0ms
re
Results
AccuracySegmentsBranch
83.0%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes8.0ms (0.2%)

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

1 calls:

7.0ms
re
Results
AccuracySegmentsBranch
82.6%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes4.0ms (0.1%)

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

1 calls:

3.0ms
re
Results
AccuracySegmentsBranch
82.6%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes4.0ms (0.1%)

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

1 calls:

3.0ms
re
Results
AccuracySegmentsBranch
82.3%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

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

3.0ms
re
Results
AccuracySegmentsBranch
82.2%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

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

1 calls:

2.0ms
re
Results
AccuracySegmentsBranch
82.1%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes14.0ms (0.3%)

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

7 calls:

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

Compiled 55 to 45 computations (18.2% saved)

regimes4.0ms (0.1%)

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

Total -36.8b remaining (-135.1%)

Threshold costs -36.8b (-135.1%)

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

3 calls:

1.0ms
re
1.0ms
im
1.0ms
(*.f64 im im)
Results
AccuracySegmentsBranch
57.5%1(*.f64 im im)
57.5%1im
57.5%1re
Compiler

Compiled 5 to 7 computations (-40% saved)

bsearch0.0ms (0%)

Memory
0.9MiB live, 0.9MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.0
2.7372247471156516e-307
Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch35.0ms (0.9%)

Memory
10.1MiB live, 58.8MiB allocated; 12ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
19.0ms
2.9048119461967997e+50
2.507926351358615e+54
14.0ms
-0.012378319082403532
-0.0018081857963670384
Samples
17.0ms181×0valid
5.0ms30×2valid
1.0ms10×1valid
1.0ms3×3valid
Compiler

Compiled 718 to 546 computations (24% saved)

Precisions
Click to see histograms. Total time spent on operations: 18.0ms
ival-hypot: 12.0ms (66.1% of total)
ival-sqrt: 2.0ms (11% of total)
ival-mult!: 2.0ms (11% of total)
adjust: 1.0ms (5.5% of total)
ival-add!: 1.0ms (5.5% of total)

bsearch4.0ms (0.1%)

Memory
8.4MiB live, 8.4MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
3.0ms
2.9048119461967997e+50
2.507926351358615e+54
1.0ms
-0.012378319082403532
-0.0018081857963670384
Samples
1.0ms16×0valid
Compiler

Compiled 620 to 504 computations (18.7% saved)

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

bsearch2.0ms (0.1%)

Memory
6.0MiB live, 6.0MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.9048119461967997e+50
2.507926351358615e+54
1.0ms
-0.012378319082403532
-0.0018081857963670384
Compiler

Compiled 606 to 490 computations (19.1% saved)

bsearch3.0ms (0.1%)

Memory
4.7MiB live, 4.7MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.9048119461967997e+50
2.507926351358615e+54
1.0ms
-0.012378319082403532
-0.0018081857963670384
Compiler

Compiled 634 to 518 computations (18.3% saved)

bsearch2.0ms (0.1%)

Memory
4.2MiB live, 4.2MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.9048119461967997e+50
2.507926351358615e+54
1.0ms
-0.012378319082403532
-0.0018081857963670384
Compiler

Compiled 634 to 518 computations (18.3% saved)

bsearch5.0ms (0.1%)

Memory
-41.6MiB live, 4.4MiB allocated; 3ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.9048119461967997e+50
2.507926351358615e+54
1.0ms
-0.012378319082403532
-0.0018081857963670384
Compiler

Compiled 610 to 502 computations (17.7% saved)

bsearch2.0ms (0.1%)

Memory
4.7MiB live, 4.7MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.9048119461967997e+50
2.507926351358615e+54
1.0ms
-0.012378319082403532
-0.0018081857963670384
Compiler

Compiled 568 to 474 computations (16.5% saved)

bsearch9.0ms (0.2%)

Memory
19.3MiB live, 19.3MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.9048119461967997e+50
2.507926351358615e+54
7.0ms
-0.012378319082403532
-0.0018081857963670384
Samples
2.0ms13×2valid
1.0ms24×0valid
1.0ms9×1valid
0.0ms2×3valid
Compiler

Compiled 568 to 460 computations (19% saved)

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

bsearch1.0ms (0%)

Memory
2.1MiB live, 2.1MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.9048119461967997e+50
2.507926351358615e+54
Compiler

Compiled 322 to 262 computations (18.6% saved)

derivations337.0ms (8.4%)

Memory
12.8MiB live, 291.7MiB allocated; 77ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 688 to 99 computations (85.6% saved)

preprocess161.0ms (4%)

Memory
11.9MiB live, 252.3MiB allocated; 55ms collecting garbage
Compiler

Compiled 2 118 to 814 computations (61.6% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...