math.sqrt on complex, real part

Time bar (total: 3.7s)

start0.0ms (0%)

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

analyze173.0ms (4.7%)

Memory
35.3MiB live, 206.1MiB allocated; 54ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.9%0.1%0%0%0%0
0%0%99.9%0.1%0%0%0%1
50%50%50%0.1%0%0%0%2
50%50%50%0.1%0%0%0%3
50%50%50%0.1%0%0%0%4
62.5%62.4%37.5%0.1%0%0%0%5
62.5%62.4%37.5%0.1%0%0%0%6
68.8%68.7%31.2%0.1%0%0%0%7
68.8%68.7%31.2%0.1%0%0%0%8
71.9%71.8%28.1%0.1%0%0%0%9
71.9%71.8%28.1%0.1%0%0%0%10
73.4%73.4%26.5%0.1%0%0%0%11
73.4%73.4%26.5%0.1%0%0%0%12
Compiler

Compiled 17 to 11 computations (35.3% saved)

sample1.4s (37.9%)

Memory
18.2MiB live, 2 466.1MiB allocated; 522ms collecting garbage
Samples
634.0ms6 218×0valid
172.0ms795×2valid
161.0ms753×1valid
139.0ms490×3valid
Precisions
Click to see histograms. Total time spent on operations: 818.0ms
ival-hypot: 391.0ms (47.8% of total)
ival-mult!: 189.0ms (23.1% of total)
ival-sqrt: 99.0ms (12.1% of total)
ival-add!: 85.0ms (10.4% of total)
adjust: 55.0ms (6.7% of total)
Bogosity

preprocess58.0ms (1.6%)

Memory
-25.6MiB live, 65.9MiB allocated; 9ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03690
114990
240690
3104490
4351990
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶37.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Symmetry

(abs im)

Compiler

Compiled 24 to 24 computations (0% saved)

series20.0ms (0.5%)

Memory
22.7MiB live, 69.6MiB allocated; 2ms collecting garbage
Counts
12 → 122
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Calls

6 calls:

TimeVariablePointExpression
4.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms
re
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
2.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)

rewrite285.0ms (7.7%)

Memory
7.1MiB live, 369.9MiB allocated; 52ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06604927
06724680
150754595
082893807
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
134 → 316
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)))
(fabs.f64 (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 (+.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.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 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (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 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 re re)) re)
(fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)) re)
(fma.f64 (sqrt.f64 (*.f64 re re)) (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) re)
(fma.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) re)
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (neg.f64 re))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(*.f64 (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 re re)))
(*.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)))
(*.f64 (sqrt.f64 (*.f64 re re)) (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.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)))
(fabs.f64 (sqrt.f64 (fma.f64 im im (*.f64 re 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)) (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 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (exp.f64 (log.f64 re)) 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)))) (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)))) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) im)
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (fabs.f64 re) im)
(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) (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 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (neg.f64 re) im)
(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) (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)) (exp.f64 (log.f64 im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (fabs.f64 im))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (neg.f64 im))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) im)
(hypot.f64 (sqrt.f64 (*.f64 im im)) (exp.f64 (log.f64 re)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (fabs.f64 re))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (neg.f64 re))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) 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 (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (sqrt.f64 (*.f64 re re)))
(hypot.f64 im re)
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (sqrt.f64 (*.f64 im im)))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im))
(*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re))
(*.f64 (*.f64 re re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)))
(*.f64 (*.f64 im im) (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)))
(/.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 (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 (sqrt.f64 (*.f64 re re)))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (*.f64 im im))
(fma.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (*.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 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (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 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re)) (*.f64 im im))
(fma.f64 (*.f64 re re) #s(literal 1 binary64) (*.f64 (*.f64 re re) (/.f64 (*.f64 im im) (*.f64 re re))))
(fma.f64 #s(literal 1 binary64) (*.f64 re re) (*.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)))
(fma.f64 #s(literal 1 binary64) (*.f64 im im) (*.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (*.f64 im im)))
(fma.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)) (*.f64 re re))
(fma.f64 (*.f64 im im) #s(literal 1 binary64) (*.f64 (*.f64 im im) (/.f64 (*.f64 re re) (*.f64 im im))))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(-.f64 (*.f64 re re) (neg.f64 (*.f64 im im)))
(-.f64 (*.f64 im im) (neg.f64 (*.f64 re re)))
(+.f64 (*.f64 (*.f64 re re) #s(literal 1 binary64)) (*.f64 (*.f64 re re) (/.f64 (*.f64 im im) (*.f64 re re))))
(+.f64 (*.f64 (*.f64 im im) #s(literal 1 binary64)) (*.f64 (*.f64 im im) (/.f64 (*.f64 re re) (*.f64 im im))))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 im im)) (*.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)))
(*.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(*.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re)))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 re re) (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 (*.f64 re re)) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.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 (sqrt.f64 (*.f64 re re))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 re re))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 re 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 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (fabs.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 (sqrt.f64 (*.f64 im 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)))
(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 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 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 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fma.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 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 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 im im)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) (pow.f64 (*.f64 im im) #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (*.f64 re re) (sqrt.f64 (*.f64 im im))))
#s(approx (+ (* re re) (* 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 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 re) (* im im)) (fma.f64 im im (*.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 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/128 binary64) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) 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 (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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.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)) (fma.f64 im im (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 re re) im))) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.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))))

eval57.0ms (1.5%)

Memory
13.4MiB live, 162.8MiB allocated; 34ms collecting garbage
Compiler

Compiled 4 505 to 1 840 computations (59.2% saved)

prune20.0ms (0.5%)

Memory
8.0MiB live, 50.3MiB allocated; 9ms collecting garbage
Pruning

14 alts after pruning (14 fresh and 0 done)

PrunedKeptTotal
New29314307
Fresh000
Picked101
Done000
Total29414308
Accuracy
89.9%
Counts
308 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
37.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶77.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
28.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 #s(approx (+ (* re re) (* im im)) (*.f64 im im))) re))))
6.1%
(*.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))))
20.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
▶55.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
56.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
18.1%
(*.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))))
▶3.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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))))))
21.6%
(*.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))))
▶18.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
55.4%
(*.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 458 to 450 computations (1.7% saved)

series50.0ms (1.3%)

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

6 calls:

TimeVariablePointExpression
32.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (neg im) (+ (* -2 (/ re im)) 2) (/ re im))
4.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (neg im) (+ (* -2 (/ re im)) 2) (/ re im))
4.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (neg im) (+ (* -2 (/ re im)) 2) (/ re im))
3.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (neg im) (+ (* -2 (/ re im)) 2) (/ re im))
2.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (* (* -1/2 im) (sqrt (/ -2 im))) (* -1/2 im) -1/2 (sqrt (/ -2 im)) (/ -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (neg im) (+ (* -2 (/ re im)) 2) (/ re im))

rewrite203.0ms (5.5%)

Memory
27.3MiB live, 261.0MiB allocated; 29ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval49.0ms (1.3%)

Memory
-20.1MiB live, 72.4MiB allocated; 6ms collecting garbage
Compiler

Compiled 4 581 to 1 820 computations (60.3% saved)

prune51.0ms (1.4%)

Memory
-25.5MiB live, 33.1MiB allocated; 34ms collecting garbage
Pruning

19 alts after pruning (15 fresh and 4 done)

PrunedKeptTotal
New3288336
Fresh279
Picked145
Done000
Total33119350
Accuracy
91.7%
Counts
350 → 19
Alt Table
Click to see full alt table
StatusAccuracyProgram
37.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
55.5%
(*.f64 #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))))
✓77.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
▶6.1%
(*.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))))
✓55.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶56.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
▶18.1%
(*.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))))
21.6%
(*.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))))
✓18.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
18.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 #s(literal 1 binary64) (/.f64 re (*.f64 im im)))))))
▶18.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))))))
20.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
4.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (fma.f64 #s(literal -2 binary64) im (+.f64 re re))))))
3.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im)))))
51.8%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
55.4%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
Compiler

Compiled 584 to 584 computations (0% saved)

series22.0ms (0.6%)

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

6 calls:

TimeVariablePointExpression
3.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* (* im im) (/ 1 re))) (* (* im im) (/ 1 re)) (* im im) (/ 1 re) 1 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* re re)) (* re re) 4)
3.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* (* im im) (/ 1 re))) (* (* im im) (/ 1 re)) (* im im) (/ 1 re) 1 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* re re)) (* re re) 4)
3.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* (* im im) (/ 1 re))) (* (* im im) (/ 1 re)) (* im im) (/ 1 re) 1 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* re re)) (* re re) 4)
3.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* (* im im) (/ 1 re))) (* (* im im) (/ 1 re)) (* im im) (/ 1 re) 1 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* re re)) (* re re) 4)
3.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* (* im im) (/ 1 re))) (* (* im im) (/ 1 re)) (* im im) (/ 1 re) 1 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (/ (* im im) (* re re)) 4) re) (+ (/ (* im im) (* re re)) 4) (/ (* im im) (* re re)) (* re re) 4)

rewrite248.0ms (6.7%)

Memory
24.0MiB live, 313.6MiB allocated; 68ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07415547
07695274
154995127
081914308
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
177 → 337
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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(literal 1/2 binary64)
(sqrt.f64 #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 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
(*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)
(fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(neg.f64 re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))))
(neg.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re)))
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))
(*.f64 im im)
(/.f64 #s(literal 1 binary64) re)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
(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 re re)
#s(literal 4 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 (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 2))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (+ 2 (* 2 (/ re im)))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#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 (neg re) #s(hole binary64 (* -1 re)))
#s(approx (neg (* (* im im) (/ 1 re))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* (* im im) (/ 1 re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ 1 re) #s(hole binary64 (/ 1 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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 re)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* re (+ 2 (* 2 (/ im re))))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (* 2 (/ re im))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (* re (+ (* 2 (/ 1 im)) (* 2 (/ 1 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 (+ (/ (* 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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* re (- (* -2 (/ im re)) 2)))))
#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 (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (/ (+ (* 2 im) (* 2 re)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (+ (/ (* im im) (* re re)) 4) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ 1 (pow im 2))) (/ 1 (pow re 2))))))
#s(approx (* 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 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#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 #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(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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(literal 1/2 binary64)
(pow.f64 #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(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #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(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
(exp.f64 (*.f64 (log.f64 #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(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
(*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)
(*.f64 im (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 im #s(literal 2 binary64) (*.f64 im (/.f64 (+.f64 re re) im)))
(fma.f64 im #s(literal 2 binary64) (*.f64 (/.f64 (+.f64 re re) im) im))
(fma.f64 #s(literal 2 binary64) im (*.f64 im (/.f64 (+.f64 re re) im)))
(fma.f64 #s(literal 2 binary64) im (*.f64 (/.f64 (+.f64 re re) im) im))
(+.f64 (+.f64 im im) (*.f64 im (/.f64 (+.f64 re re) im)))
(+.f64 (+.f64 im im) (*.f64 (/.f64 (+.f64 re re) im) im))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 (+.f64 re re) im) #s(literal 2 binary64))) #s(literal 2 binary64))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 (+.f64 re re) im))) (/.f64 (+.f64 re re) im))
(*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) #s(literal 2 binary64))
(*.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re)) (/.f64 #s(literal 1 binary64) im))
(pow.f64 (/.f64 im (*.f64 #s(literal 2 binary64) (+.f64 im re))) #s(literal -1 binary64))
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 (+.f64 re re) im) (/.f64 (+.f64 re re) im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (/.f64 (+.f64 re re) im) (/.f64 (+.f64 re re) im)) #s(literal 4 binary64)) (-.f64 (/.f64 (+.f64 re re) im) #s(literal 2 binary64)))
(/.f64 (+.f64 #s(literal 8 binary64) (*.f64 (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 re im)) #s(literal 8 binary64))) (+.f64 #s(literal 4 binary64) (-.f64 (*.f64 (/.f64 (+.f64 re re) im) (/.f64 (+.f64 re re) im)) (*.f64 #s(literal 2 binary64) (/.f64 (+.f64 re re) im)))))
(/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (/.f64 re im)) #s(literal 8 binary64) #s(literal 8 binary64)) (fma.f64 (/.f64 (+.f64 re re) im) (/.f64 (+.f64 re re) im) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 (+.f64 re re) im) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re))) (neg.f64 im))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re)) im)
(/.f64 #s(literal 1 binary64) (/.f64 im (*.f64 #s(literal 2 binary64) (+.f64 im re))))
(fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))
(fma.f64 #s(literal 2 binary64) (/.f64 re im) #s(literal 2 binary64))
(-.f64 (/.f64 (+.f64 re re) im) #s(literal -2 binary64))
(-.f64 #s(literal 2 binary64) (neg.f64 (/.f64 (+.f64 re re) im)))
(-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re im) #s(literal -2 binary64)))
(+.f64 (/.f64 (+.f64 im im) im) (/.f64 (+.f64 re re) im))
(+.f64 (/.f64 (+.f64 re re) im) #s(literal 2 binary64))
(+.f64 #s(literal 2 binary64) (/.f64 (+.f64 re re) im))
(*.f64 re (/.f64 #s(literal 1 binary64) im))
(pow.f64 (/.f64 im re) #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 im re))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(/.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)))
(fabs.f64 (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)
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)))
(fabs.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)))) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (+.f64 re re))
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)))) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))
(/.f64 (fma.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) (neg.f64 re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
(*.f64 #s(literal -1 binary64) re)
(*.f64 re #s(literal -1 binary64))
(neg.f64 re)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.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)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
(*.f64 (neg.f64 (*.f64 im im)) (/.f64 #s(literal 1 binary64) re))
(*.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))
(*.f64 (*.f64 im im) (neg.f64 (/.f64 #s(literal 1 binary64) re)))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re)
(neg.f64 (/.f64 (*.f64 im im) re))
(*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im))
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))
(*.f64 im (/.f64 im re))
(pow.f64 (/.f64 re (*.f64 im im)) #s(literal -1 binary64))
(/.f64 (*.f64 (*.f64 im im) #s(literal 1 binary64)) re)
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re))
(/.f64 (*.f64 im im) re)
(/.f64 #s(literal 1 binary64) (/.f64 re (*.f64 im im)))
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (fabs.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 (sqrt.f64 (*.f64 im 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)))
(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(literal 1 binary64) (/.f64 #s(literal 1 binary64) re))
(pow.f64 (/.f64 re #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 re #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 re))
(/.f64 #s(literal 1 binary64) (/.f64 re #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) re)
(exp.f64 (*.f64 (log.f64 re) #s(literal -1 binary64)))
#s(literal 1 binary64)
(*.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)))
(fabs.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))))
(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 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (*.f64 im (/.f64 im (*.f64 re re))))) (*.f64 im (/.f64 im (*.f64 re re))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 4 binary64))) #s(literal 4 binary64))
(*.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (*.f64 re re)))
(pow.f64 (/.f64 (*.f64 re re) (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im))) #s(literal -1 binary64))
(/.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)))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im))) (neg.f64 (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) (*.f64 re re))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im))))
(fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))
(fma.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 re 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) (neg.f64 (*.f64 im (/.f64 im (*.f64 re re)))))
(+.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal 4 binary64)) (*.f64 re re)) (*.f64 im (/.f64 im (*.f64 re re))))
(+.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 (/.f64 im re) (/.f64 im re))
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 re re)))
(*.f64 im (/.f64 im (*.f64 re re)))
(pow.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal -1 binary64))
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (*.f64 re re)))
(/.f64 (/.f64 (*.f64 im im) re) re)
(/.f64 (*.f64 im im) (*.f64 re re))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))
(exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)) (*.f64 (log.f64 re) #s(literal 2 binary64))))
(*.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)))
(*.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re)))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 (*.f64 re 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 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.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 (sqrt.f64 (*.f64 re 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 (sqrt.f64 (*.f64 re re))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 re re))) #s(literal 2 binary64))))
#s(literal 4 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 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 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fma.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 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 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 im im))
#s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (+ (* (/ re im) 2) 2) #s(literal 2 binary64))
#s(approx (+ (* (/ re im) 2) 2) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx re re)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 im im)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) (pow.f64 (*.f64 im im) #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (*.f64 re re) (sqrt.f64 (*.f64 im im))))
#s(approx (neg re) (neg.f64 re))
#s(approx (neg (* (* im im) (/ 1 re))) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* (* im im) (/ 1 re)) (/.f64 (*.f64 im im) re))
#s(approx (/ 1 re) (/.f64 #s(literal 1 binary64) 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) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 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 (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 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) #s(literal 1/8 binary64) (*.f64 im (/.f64 im (*.f64 re re))))) #s(literal 4 binary64)) re))
#s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re re))
#s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 (fma.f64 (/.f64 im re) #s(literal 2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (* (/ re im) 2) 2) (/.f64 (+.f64 re re) im))
#s(approx (+ (* (/ re im) 2) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 2 binary64) im)) 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 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 6 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 (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (*.f64 im (/.f64 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 im (/.f64 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) (fma.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) #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 (* 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 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 (neg.f64 re) (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal -2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (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))) (*.f64 (neg.f64 re) (fma.f64 (*.f64 im (/.f64 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 im (/.f64 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) (fma.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (*.f64 (neg.f64 re) (neg.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))))
#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 (+ (* (/ re im) 2) 2) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)))
#s(approx im im)
#s(approx (* -2 im) (*.f64 #s(literal -2 binary64) im))
#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) (*.f64 im im))
#s(approx (* (+ (/ (* im im) (* re re)) 4) re) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#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) (*.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) (fma.f64 (exp.f64 (-.f64 (*.f64 (log.f64 re) #s(literal 6 binary64)) (*.f64 (log.f64 im) #s(literal 6 binary64)))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64)))) #s(literal 1 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) 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 (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 (* (+ (* (/ re im) 2) 2) im) (*.f64 (neg.f64 im) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #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) (*.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) (fma.f64 (exp.f64 (-.f64 (*.f64 (log.f64 re) #s(literal 6 binary64)) (*.f64 (log.f64 im) #s(literal 6 binary64)))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))))

eval67.0ms (1.8%)

Memory
-24.5MiB live, 129.6MiB allocated; 51ms collecting garbage
Compiler

Compiled 4 802 to 1 894 computations (60.6% saved)

prune17.0ms (0.5%)

Memory
14.5MiB live, 61.8MiB allocated; 3ms collecting garbage
Pruning

22 alts after pruning (15 fresh and 7 done)

PrunedKeptTotal
New3126318
Fresh1910
Picked235
Done044
Total31522337
Accuracy
91.7%
Counts
337 → 22
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶37.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
55.5%
(*.f64 #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))))
✓77.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓6.1%
(*.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))))
✓55.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
21.6%
(*.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))))
✓18.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
18.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 #s(literal 1 binary64) (/.f64 re (*.f64 im im)))))))
✓18.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))))))
▶20.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
20.7%
(*.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))))))
▶5.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re re)))))
45.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 (fma.f64 (/.f64 im re) #s(literal 2 binary64) #s(literal 2 binary64)) re)))))
▶57.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))))
4.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (fma.f64 #s(literal -2 binary64) im (+.f64 re re))))))
▶3.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im)))))
51.8%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
0.0%
(*.f64 #s(literal 1/2 binary64) (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))))
55.4%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
Compiler

Compiled 683 to 675 computations (1.2% saved)

series37.0ms (1%)

Memory
-3.9MiB live, 91.4MiB allocated; 24ms collecting garbage
Counts
36 → 143
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))))
#s(literal 1/2 binary64)
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
(*.f64 #s(literal 2 binary64) (+.f64 im re))
#s(literal 2 binary64)
(+.f64 im re)
im
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re re)))
#s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re re))
(+.f64 re re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))
(neg.f64 (*.f64 im (/.f64 im re)))
(*.f64 im (/.f64 im re))
(/.f64 im re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im)))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))
(*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im)
(fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64))
(/.f64 re im)
#s(literal -2 binary64)
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ im re) #s(hole binary64 im))
#s(approx (+ im re) #s(hole binary64 (+ im re)))
#s(approx re #s(hole binary64 re))
#s(approx (+ re re) #s(hole binary64 (* 2 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 (/ im re) #s(hole binary64 (/ im re)))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* -2 im)))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (+ (* -2 im) (* 2 re))))
#s(approx (+ (* (/ re im) 2) -2) #s(hole binary64 -2))
#s(approx (+ (* (/ re im) 2) -2) #s(hole binary64 (- (* 2 (/ re im)) 2)))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) 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 (+ (* im im) (* re re))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #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 (+ (* im im) (* re re))) #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 (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* re (+ 2 (* 2 (/ im re))))))
#s(approx (+ im re) #s(hole binary64 (* re (+ 1 (/ im re)))))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* re (+ 2 (* -2 (/ im re))))))
#s(approx (+ (* (/ re im) 2) -2) #s(hole binary64 (* 2 (/ re im))))
#s(approx (+ (* (/ re im) 2) -2) #s(hole binary64 (* re (- (* 2 (/ 1 im)) (* 2 (/ 1 re))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 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 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* re (- (* -2 (/ im re)) 2)))))
#s(approx (+ im re) #s(hole binary64 (* -1 (* re (- (* -1 (/ im re)) 1)))))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* -1 (* re (- (* 2 (/ im re)) 2)))))
#s(approx (+ (* (/ re im) 2) -2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 re)) (* 2 (/ 1 im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (* (/ re im) 2) -2) #s(hole binary64 (/ (+ (* -2 im) (* 2 re)) im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) 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 (+ (* im im) (* re re))) 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 (+ (* im im) (* re re))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #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 (+ (* im im) (* re re))) #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 (* 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 (+ im re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* im (- (* 2 (/ re im)) 2))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* 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 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ im re) #s(hole binary64 (* -1 (* im (- (* -1 (/ re im)) 1)))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Calls

6 calls:

TimeVariablePointExpression
14.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (* 2 (+ im re)) 2 (+ im re) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ re re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (* (+ (* (/ re im) 2) -2) im) (+ (* (/ re im) 2) -2) (/ re im) -2 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
5.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (* 2 (+ im re)) 2 (+ im re) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ re re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (* (+ (* (/ re im) 2) -2) im) (+ (* (/ re im) 2) -2) (/ re im) -2 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
4.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (* 2 (+ im re)) 2 (+ im re) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ re re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (* (+ (* (/ re im) 2) -2) im) (+ (* (/ re im) 2) -2) (/ re im) -2 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
4.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (* 2 (+ im re)) 2 (+ im re) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ re re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (* (+ (* (/ re im) 2) -2) im) (+ (* (/ re im) 2) -2) (/ re im) -2 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
3.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (* 2 (+ im re)) 2 (+ im re) im re (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ re re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (/ re im)) 2)) (* (+ (* (/ re im) 2) -2) im) (+ (* (/ re im) 2) -2) (/ re im) -2 (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))

rewrite234.0ms (6.3%)

Memory
29.4MiB live, 411.4MiB allocated; 74ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval52.0ms (1.4%)

Memory
-29.5MiB live, 120.3MiB allocated; 15ms collecting garbage
Compiler

Compiled 5 523 to 2 350 computations (57.5% saved)

prune19.0ms (0.5%)

Memory
-6.3MiB live, 40.5MiB allocated; 2ms collecting garbage
Pruning

22 alts after pruning (11 fresh and 11 done)

PrunedKeptTotal
New3961397
Fresh01010
Picked055
Done167
Total39722419
Accuracy
91.7%
Counts
419 → 22
Alt Table
Click to see full alt table
StatusAccuracyProgram
77.8%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓37.6%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
55.5%
(*.f64 #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))))
✓6.1%
(*.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))))
✓55.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
21.6%
(*.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))))
✓18.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
18.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 #s(literal 1 binary64) (/.f64 re (*.f64 im im)))))))
✓18.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))))))
✓20.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
20.7%
(*.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))))))
✓5.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re re)))))
45.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 (fma.f64 (/.f64 im re) #s(literal 2 binary64) #s(literal 2 binary64)) re)))))
✓57.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))))
4.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (fma.f64 #s(literal -2 binary64) im (+.f64 re re))))))
✓3.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im)))))
51.8%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
0.0%
(*.f64 #s(literal 1/2 binary64) (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))))
55.4%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
Compiler

Compiled 717 to 584 computations (18.5% saved)

regimes74.0ms (2%)

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

7 calls:

22.0ms
(*.f64 im im)
12.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
9.0ms
re
8.0ms
im
7.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Results
AccuracySegmentsBranch
77.8%1(*.f64 im im)
85.3%2(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
85.3%2(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
86.0%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
86.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))))
82.3%2re
77.8%1im
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes43.0ms (1.2%)

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

7 calls:

8.0ms
(*.f64 im im)
6.0ms
im
6.0ms
re
5.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
5.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
Results
AccuracySegmentsBranch
66.4%3(*.f64 im im)
66.4%3im
72.8%4re
75.4%4(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
75.4%4(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
76.0%4(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
76.0%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))))
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes27.0ms (0.7%)

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

5 calls:

6.0ms
re
5.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
5.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
5.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
5.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
Results
AccuracySegmentsBranch
70.5%3re
66.2%2(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
66.2%2(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
66.8%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
66.8%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))))
Compiler

Compiled 39 to 40 computations (-2.6% saved)

regimes21.0ms (0.6%)

Memory
-21.8MiB live, 24.9MiB allocated; 2ms 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)) #s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 re 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 -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) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
3.0ms
im
3.0ms
re
3.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
3.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
62.7%2(*.f64 im im)
62.7%2im
57.0%1(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
57.0%1(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
58.6%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
58.6%2(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
65.1%3re
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes3.0ms (0.1%)

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

3.0ms
re
Results
AccuracySegmentsBranch
63.5%2re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes10.0ms (0.3%)

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

7 calls:

2.0ms
im
1.0ms
re
1.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
1.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
1.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
Results
AccuracySegmentsBranch
55.7%1(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
55.7%1(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
55.7%1(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
55.7%1(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
55.7%1(*.f64 im im)
55.7%1im
55.7%1re
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes7.0ms (0.2%)

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

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

7 calls:

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

Compiled 42 to 45 computations (-7.1% saved)

bsearch0.0ms (0%)

Memory
0.4MiB live, 0.4MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.0
6.665416898227577e-149
Compiler

Compiled 15 to 17 computations (-13.3% saved)

bsearch1.0ms (0%)

Memory
0.5MiB live, 0.5MiB allocated; 0ms collecting garbage
Algorithm
3×left-value
Steps
TimeLeftRight
0.0ms
8.406645649426769e+75
+inf
0.0ms
1.8357062180613068e-90
1.1822836559999628e-74
0.0ms
0.0
6.665416898227577e-149
Compiler

Compiled 15 to 17 computations (-13.3% saved)

bsearch35.0ms (1%)

Memory
-17.3MiB live, 29.5MiB allocated; 2ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
12.0ms
2.44067565505888e+98
8.092978322312265e+102
21.0ms
-5.487790668642544e+133
-2.458615536339376e+132
Samples
9.0ms166×0valid
7.0ms29×3valid
3.0ms18×2valid
3.0ms27×1valid
Compiler

Compiled 565 to 591 computations (-4.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 16.0ms
ival-hypot: 8.0ms (49.5% of total)
ival-sqrt: 3.0ms (18.6% of total)
ival-mult!: 3.0ms (18.6% of total)
adjust: 2.0ms (12.4% of total)
ival-add!: 1.0ms (6.2% of total)

bsearch116.0ms (3.1%)

Memory
-15.9MiB live, 37.5MiB allocated; 112ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
84.0ms
8.27901764807698e-43
7.033062607354132e-41
28.0ms
-9.313474016968077e+265
-1.4907212903662084e+259
Samples
10.0ms45×3valid
9.0ms122×0valid
6.0ms38×2valid
5.0ms51×1valid
Compiler

Compiled 473 to 501 computations (-5.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 22.0ms
ival-hypot: 11.0ms (49.1% of total)
ival-mult!: 4.0ms (17.9% of total)
adjust: 3.0ms (13.4% of total)
ival-sqrt: 3.0ms (13.4% of total)
ival-add!: 1.0ms (4.5% of total)

bsearch1.0ms (0%)

Memory
1.0MiB live, 1.0MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
8.27901764807698e-43
7.033062607354132e-41
Compiler

Compiled 221 to 231 computations (-4.5% saved)

derivations228.0ms (6.2%)

Memory
9.1MiB live, 107.4MiB allocated; 17ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 126 to 93 computations (26.2% saved)

preprocess70.0ms (1.9%)

Memory
6.5MiB live, 97.6MiB allocated; 18ms collecting garbage
Remove

(abs im)

Compiler

Compiled 674 to 548 computations (18.7% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...