math.sqrt on complex, imaginary part, im greater than 0 branch

Time bar (total: 8.1s)

start0.0ms (0%)

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

analyze143.0ms (1.8%)

Memory
-19.6MiB live, 179.0MiB allocated; 78ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%50%50%0%0%0%0
0%0%50%50%0%0%0%1
50%25%25%50%0%0%0%2
50%25%25%50%0%0%0%3
62.5%31.2%18.7%50%0%0%0%4
62.5%31.2%18.7%50%0%0%0%5
68.8%34.3%15.6%50%0%0%0%6
68.8%34.3%15.6%50%0%0%0%7
71.9%35.9%14%50%0%0%0%8
71.9%35.9%14%50%0%0%0%9
73.4%36.7%13.3%50%0%0%0%10
73.4%36.7%13.3%50%0%0%0%11
74.2%37.1%12.9%50%0%0%0%12
Compiler

Compiled 19 to 12 computations (36.8% saved)

sample1.9s (23.5%)

Memory
26.5MiB live, 1 432.8MiB allocated; 380ms collecting garbage
Samples
891.0ms6 201×0valid
246.0ms808×2valid
212.0ms787×1valid
127.0ms460×3valid
Precisions
Click to see histograms. Total time spent on operations: 1.0s
ival-hypot: 450.0ms (44.1% of total)
ival-mult!: 371.0ms (36.4% of total)
ival-sqrt: 82.0ms (8% of total)
adjust: 76.0ms (7.5% of total)
ival-sub!: 41.0ms (4% of total)
Bogosity

preprocess75.0ms (0.9%)

Memory
-9.6MiB live, 33.5MiB allocated; 9ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03692
19792
220392
330492
466092
5371992
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶43.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Symmetry

(abs im)

Compiler

Compiled 24 to 24 computations (0% saved)

series65.0ms (0.8%)

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

6 calls:

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

rewrite814.0ms (10.1%)

Memory
64.2MiB live, 730.4MiB allocated; 117ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06864698
06974191
123444007
085013827
0315103090
Stop Event
1×iter-limit
1×iter-limit
1×node-limit
1×iter-limit
Counts
131 → 290
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (+ (* -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/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/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/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/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/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 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* 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 (* -1 (* 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 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* 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 (* -1 (* 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 (* -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 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) 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 (/ re im))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)) (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)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)))
(pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (*.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 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(neg.f64 (*.f64 #s(literal -2 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(neg.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(-.f64 (+.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) re)
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 re (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re 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 #s(literal 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1 binary64))
(/.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))) (fma.f64 re re (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(*.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/4 binary64)))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) im)
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) re)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 im (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (fma.f64 im im (*.f64 re re)))
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (neg.f64 re) re) (*.f64 (neg.f64 re) re))) (fma.f64 im im (*.f64 (neg.f64 re) re)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 (neg.f64 im) im) (*.f64 (neg.f64 im) im))) (fma.f64 re re (*.f64 (neg.f64 im) im)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (pow.f64 (*.f64 (neg.f64 re) re) #s(literal 3 binary64))) (fma.f64 (*.f64 im im) (*.f64 im im) (fma.f64 (*.f64 (neg.f64 re) re) (*.f64 (neg.f64 re) re) (*.f64 (*.f64 im im) (*.f64 (neg.f64 re) re)))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (pow.f64 (*.f64 (neg.f64 im) im) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 re re) re) re (fma.f64 (*.f64 (neg.f64 im) im) (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) (*.f64 (neg.f64 im) im)))))
(neg.f64 (fma.f64 (neg.f64 im) im (*.f64 (neg.f64 re) re)))
(neg.f64 (fma.f64 (neg.f64 re) re (*.f64 (neg.f64 im) im)))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))) (*.f64 im im))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))) (*.f64 re re))
(fma.f64 (pow.f64 (neg.f64 (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (pow.f64 (neg.f64 (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64) (*.f64 re re))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 re re))
(fma.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) #s(literal 2 binary64) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) #s(literal 2 binary64) (*.f64 re re))
(fma.f64 (*.f64 im im) #s(literal 1 binary64) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (*.f64 im im) #s(literal 1 binary64) (*.f64 re re))
(fma.f64 (*.f64 re re) #s(literal 1 binary64) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (*.f64 re re) #s(literal 1 binary64) (*.f64 im im))
(fma.f64 #s(literal 1 binary64) (*.f64 im im) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 #s(literal 1 binary64) (*.f64 im im) (*.f64 re re))
(fma.f64 #s(literal 1 binary64) (*.f64 re re) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 #s(literal 1 binary64) (*.f64 re re) (*.f64 im im))
(fma.f64 im im (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 re re (*.f64 im im))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(+.f64 (*.f64 im im) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(+.f64 (*.f64 im im) (*.f64 re re))
(+.f64 (*.f64 re re) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (*.f64 re re) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 re re))
(*.f64 re re)
(pow.f64 (neg.f64 (fabs.f64 re)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 re) re))
(sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) re))
(fabs.f64 (*.f64 (neg.f64 re) re))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
re
(*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))))
(*.f64 (pow.f64 (neg.f64 (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (*.f64 im im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 im im))
(*.f64 im im)
(pow.f64 (neg.f64 (fabs.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 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 im) im))
(sqrt.f64 (*.f64 (*.f64 im im) (*.f64 im im)))
(fabs.f64 (*.f64 (neg.f64 im) im))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
im
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64) (*.f64 re (fma.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/32 binary64))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/8 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (-.f64 im re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (fma.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1 binary64)) im) re #s(literal -2 binary64)) re im) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (-.f64 im re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal -1 binary64)) re im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 re re)) (*.f64 im im))) im) re #s(literal -1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 re (/.f64 re im)) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 re re)) (*.f64 im im))) im) (*.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (*.f64 re (/.f64 re (pow.f64 im #s(literal 5 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) im)) (*.f64 re re) im))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/32 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/32 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/1024 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 4 binary64)) (*.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/32 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im (*.f64 (*.f64 (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/16 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im (*.f64 (*.f64 (pow.f64 re #s(literal -9/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) #s(literal 1/32 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/512 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 4 binary64)) (*.f64 #s(literal 1/32 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)))) (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im (*.f64 (*.f64 (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/16 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.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)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/8 binary64) (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)) (/.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im))) (/.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)))) 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) (/.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) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/16 binary64) (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) (/.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 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/16 binary64) (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)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 re (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) re))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) re)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 re) (-.f64 (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -4 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -4 binary64))) (/.f64 (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -4 binary64))) (/.f64 (fma.f64 (/.f64 (sqrt.f64 re) (*.f64 re re)) (fma.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal -1/4 binary64))))) (*.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) re))) re))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -2 binary64)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 re) (-.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -4 binary64))) (*.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 re) (-.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -4 binary64))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 re) (-.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -4 binary64))) (/.f64 (fma.f64 (/.f64 (sqrt.f64 re) (*.f64 re re)) (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal -1/4 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))))) (*.f64 (*.f64 re 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 (neg.f64 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 im (/.f64 im (*.f64 re re))) #s(literal -2 binary64)) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64) #s(literal 2 binary64)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64))) (fma.f64 #s(literal -1/2 binary64) (*.f64 im (/.f64 im (*.f64 re re))) #s(literal -2 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 im (/.f64 im (*.f64 re re))) #s(literal -1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 re (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 im (+.f64 im im))) (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 7/128 binary64)) #s(literal 2 binary64))) (sqrt.f64 re)) #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (sqrt.f64 re) (-.f64 (*.f64 (*.f64 im im) (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 7/128 binary64)) (*.f64 re re)))) #s(literal 2 binary64))) (*.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 7/128 binary64)) #s(literal 2 binary64))))) (*.f64 im im))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 im (+.f64 im im))) (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 7/128 binary64)) #s(literal 2 binary64))) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (*.f64 (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re)) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (sqrt.f64 re) (*.f64 (*.f64 re re) re))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 re) (-.f64 (*.f64 (*.f64 im im) (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 7/128 binary64)) (*.f64 re re)))) #s(literal 2 binary64))) (*.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 7/128 binary64)) #s(literal 2 binary64))))) (*.f64 im im))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 7 binary64)))) #s(literal -5/64 binary64) (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64))) (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 im im)) (*.f64 re re))) re) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -5/128 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 7 binary64)))) (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64))) (*.f64 im im) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 im im)) (*.f64 re re))) re) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* im im) (*.f64 im im))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/8 binary64) (fma.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (fma.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #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))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) (-.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 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (*.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal -2 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re im)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 (-.f64 (*.f64 (*.f64 re (/.f64 re im)) #s(literal 1/2 binary64)) re) im) #s(literal 1 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (-.f64 (*.f64 (*.f64 re (/.f64 re im)) #s(literal 1/2 binary64)) re) im)) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64)))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 im (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (*.f64 (*.f64 re (/.f64 re (*.f64 im im))) #s(literal 1/2 binary64)))) im))
#s(approx (+ (* re re) (* im im)) (*.f64 (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal -1/4 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/8 binary64) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal -1/4 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 im (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) (*.f64 (*.f64 im im) im)) #s(literal 3/16 binary64) (neg.f64 (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal -1/4 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) (*.f64 (*.f64 im im) im)) #s(literal 3/8 binary64) (neg.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (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) (-.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal -2 binary64)) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) re) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im)) im) #s(literal -2 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (neg.f64 (fma.f64 (/.f64 re im) im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 (-.f64 (*.f64 (*.f64 re (/.f64 re im)) #s(literal -1/2 binary64)) re) im) #s(literal -1 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 re (/.f64 re (*.f64 im im))) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 im (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (*.f64 (*.f64 re (/.f64 re (*.f64 im im))) #s(literal 1/2 binary64)))) im)))

eval46.0ms (0.6%)

Memory
-21.8MiB live, 72.5MiB allocated; 26ms collecting garbage
Compiler

Compiled 4 008 to 1 777 computations (55.7% saved)

prune15.0ms (0.2%)

Memory
-15.3MiB live, 29.9MiB allocated; 4ms collecting garbage
Pruning

13 alts after pruning (13 fresh and 0 done)

PrunedKeptTotal
New27013283
Fresh000
Picked101
Done000
Total27113284
Accuracy
99.9%
Counts
284 → 13
Alt Table
Click to see full alt table
StatusAccuracyProgram
43.8%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶84.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
▶5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
▶54.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
9.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))))
11.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶54.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
9.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
▶11.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re) (*.f64 im im)))))
27.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))))))
29.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
20.7%
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
Compiler

Compiled 440 to 432 computations (1.8% saved)

series30.0ms (0.4%)

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

6 calls:

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

rewrite888.0ms (11%)

Memory
27.2MiB live, 759.9MiB allocated; 232ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
08165277
08544737
126974593
084584310
0346504111
Stop Event
1×iter-limit
1×iter-limit
1×node-limit
1×iter-limit
Counts
192 → 597
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(-.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)))
(*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))
(-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)
#s(approx (sqrt (+ (* re re) (* im im))) re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(-.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re) (*.f64 im im)))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re) (*.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re) (*.f64 im im)))
(*.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re) (*.f64 im im))
(/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re)
(+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64))
(/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))
(*.f64 #s(literal -1/4 binary64) (*.f64 im im))
#s(literal -1/4 binary64)
(*.f64 im im)
(*.f64 re re)
#s(literal 1 binary64)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (- (/ re im) 2) #s(hole binary64 -2))
#s(approx (- (/ re im) 2) #s(hole binary64 (- (/ re im) 2)))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 3))))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) #s(hole binary64 (* -1/4 (/ (pow im 2) (pow re 3)))))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) #s(hole binary64 (/ (+ (* -1/4 (pow im 2)) (pow re 2)) (pow re 3))))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) #s(hole binary64 (* -1/4 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) #s(hole binary64 (/ (+ (* -1/4 (pow im 2)) (pow re 2)) (pow re 2))))
#s(approx (/ (* -1/4 (* im im)) (* re re)) #s(hole binary64 (* -1/4 (/ (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 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (+ (* -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/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/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/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/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/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 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (- (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (- (+ (* 2 (/ im (pow re 2))) (/ 1 im)) (* 2 (/ 1 re))))))
#s(approx (- (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (- (/ re im) 2) #s(hole binary64 (* re (- (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) #s(hole binary64 (/ 1 re)))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) #s(hole binary64 (/ (+ 1 (* -1/4 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) #s(hole binary64 1))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) #s(hole binary64 (+ 1 (* -1/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 re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* 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 (* -1 (* 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 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* 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 (* -1 (* 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 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (+ 2 (* -2 (/ im re))) re)) (/ 1 im)))))
#s(approx (- (/ re im) 2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 re)) (/ 1 im))))))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow im 2)) (* 1/4 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) #s(hole binary64 (* -1 (/ (- (* 1/4 (/ (pow im 2) (pow re 2))) 1) re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* -2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* -2 re) (* 2 im))) (pow re 2)) im)))
#s(approx (- (/ re im) 2) #s(hole binary64 (/ (+ re (* -2 im)) im)))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) #s(hole binary64 (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (* -1/4 (* im im)) #s(hole binary64 (* -1/4 (pow im 2))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (* -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 im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) #s(hole binary64 (* (pow im 4) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) #s(hole binary64 (* (pow im 2) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) #s(hole binary64 (* (pow im 2) (- (/ 1 (pow im 2)) (* 1/4 (/ 1 (pow re 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) 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 (/ re im))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* 2 (/ re im)) 2)))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* -2 re) (/ (pow re 2) im)) im)) 2)))))
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 (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)) (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)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 1/2 binary64)))
(pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (*.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 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(neg.f64 (*.f64 #s(literal -2 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(neg.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(-.f64 (+.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) re)
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 re (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re 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 #s(literal 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re 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))) (fma.f64 re re (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(*.f64 (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/4 binary64)))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) re)
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) im)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 im (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
re
im
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(*.f64 (*.f64 im (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 im (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))))
(*.f64 #s(literal 1 binary64) (+.f64 im im))
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(neg.f64 (*.f64 #s(literal -2 binary64) im))
(+.f64 im im)
(*.f64 (sqrt.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) 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))) re) re) #s(literal 2 binary64))))
(*.f64 (pow.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 1/2 binary64)))
(pow.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))
(neg.f64 (*.f64 #s(literal -2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)))
(neg.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))
(-.f64 (+.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) #s(approx (sqrt (+ (* re re) (* im im))) re)) re)
(-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) (-.f64 re (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)))
(+.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))
(*.f64 #s(literal 1 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) #s(approx (sqrt (+ (* re re) (* im im))) re)) (*.f64 re re)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) #s(approx (sqrt (+ (* re re) (* im im))) re) (fma.f64 re re (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
(-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)
#s(approx (sqrt (+ (* re re) (* im im))) re)
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal -2 binary64) im) (*.f64 #s(literal -2 binary64) im))) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal -2 binary64) im)))
(/.f64 (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re) (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re))) (fma.f64 im #s(literal 2 binary64) (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re)))
(/.f64 (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64))) (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64))))) (fma.f64 im #s(literal 2 binary64) (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal -2 binary64) im) #s(literal 3 binary64))) (fma.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (fma.f64 (*.f64 #s(literal -2 binary64) im) (*.f64 #s(literal -2 binary64) im) (*.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal -2 binary64) im)))))
(/.f64 (-.f64 (pow.f64 (+.f64 im im) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re) #s(literal 3 binary64))) (fma.f64 (+.f64 im im) (+.f64 im im) (fma.f64 (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re) (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re) (*.f64 (+.f64 im im) (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re)))))
(/.f64 (-.f64 (pow.f64 (+.f64 im im) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (+.f64 im im) (+.f64 im im) (fma.f64 (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64))) (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64))) (*.f64 (+.f64 im im) (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64)))))))
(fma.f64 (*.f64 im (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 #s(literal 2 binary64) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(fma.f64 (sqrt.f64 #s(literal 2 binary64)) (fma.f64 im (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(fma.f64 #s(literal 1 binary64) (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(fma.f64 im #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(fma.f64 re (-.f64 (/.f64 re im) #s(literal 2 binary64)) (+.f64 im im))
(fma.f64 #s(literal 2 binary64) im (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(-.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal -2 binary64) im))
(-.f64 (+.f64 im im) (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re))
(-.f64 (+.f64 im im) (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64))))
(+.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)
(+.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im))
(+.f64 (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(+.f64 im (+.f64 im (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re)))
(+.f64 im (-.f64 im (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re)))
(+.f64 im (-.f64 im (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 4 binary64)) (+.f64 (/.f64 re im) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (/.f64 re im) (/.f64 re im) (+.f64 #s(literal 4 binary64) (/.f64 (+.f64 re re) im))))
(/.f64 (fma.f64 (neg.f64 re) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 im (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 (neg.f64 im) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (fma.f64 (neg.f64 re) (sqrt.f64 #s(literal 1/2 binary64)) (*.f64 im (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 im) (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (*.f64 re (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im (neg.f64 (sqrt.f64 #s(literal 2 binary64))))) (*.f64 im (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (*.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 im (sqrt.f64 #s(literal 2 binary64)))) (*.f64 im (sqrt.f64 #s(literal 1/2 binary64))))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 re #s(literal -1 binary64)) #s(literal -2 binary64))
(fma.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) im) #s(literal -2 binary64))
(fma.f64 (/.f64 re im) #s(literal 1 binary64) #s(literal -2 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 re im) #s(literal -2 binary64))
(-.f64 (/.f64 (*.f64 (neg.f64 re) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 im) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (neg.f64 im) (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (neg.f64 im) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))))
(-.f64 (/.f64 (*.f64 (neg.f64 re) (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (neg.f64 im) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (neg.f64 im) (sqrt.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 im) (sqrt.f64 #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (*.f64 re (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 (*.f64 im (neg.f64 (sqrt.f64 #s(literal 2 binary64)))) (*.f64 im (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))))
(-.f64 (/.f64 (*.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (*.f64 im (sqrt.f64 #s(literal 2 binary64))) (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))))
(-.f64 (/.f64 re im) #s(literal 2 binary64))
(+.f64 (/.f64 re im) #s(literal -2 binary64))
(*.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 re #s(literal -1 binary64)))
(*.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) im))
(*.f64 (/.f64 re im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 re im))
(/.f64 (+.f64 re re) (+.f64 im im))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 (*.f64 #s(literal -2 binary64) re) (*.f64 #s(literal -2 binary64) im))
(/.f64 re im)
(neg.f64 (/.f64 (neg.f64 re) im))
(+.f64 (/.f64 re (+.f64 im im)) (/.f64 re (+.f64 im im)))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) 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 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))
(*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)
(*.f64 (*.f64 im im) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)))) (fma.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re))))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im))) (neg.f64 re))
(/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im)) re)
(neg.f64 (/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im)) (neg.f64 re)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im))) re))
(fma.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)))
(fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)))
(fma.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re)))
(-.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)))
(-.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))
(-.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)) (*.f64 (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal 1/4 binary64)) (*.f64 im im)))
(-.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 im im)))
(+.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re)))
(+.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)))
(+.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 im im)))
(*.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)) re) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)) re))
(/.f64 (neg.f64 (-.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (neg.f64 re)) (neg.f64 re))) (*.f64 (neg.f64 re) re))
(/.f64 (neg.f64 (*.f64 re (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)))) (*.f64 re re))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)))) (+.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64))))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))))) (+.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)))))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)))) (+.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re))))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (fma.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64))))))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)))))))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re))))))
(/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) (*.f64 (neg.f64 re) re))) (*.f64 (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (neg.f64 re) (*.f64 (neg.f64 re) #s(literal -1 binary64))) (*.f64 re re))
(/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (neg.f64 re) re) re)) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) re (neg.f64 re)) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (neg.f64 re) re) re)) (*.f64 re (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 re (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) (neg.f64 re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) re (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (+.f64 re (*.f64 (neg.f64 re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 re re))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) re (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 re re) re (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (+.f64 (neg.f64 re) (*.f64 re (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 #s(literal -1/4 binary64) im) im))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 re (*.f64 (*.f64 #s(literal -1/4 binary64) im) im))) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 re re) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 re re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 #s(literal -1/4 binary64) im) im))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 re (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 re (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) re))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (neg.f64 re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) #s(literal -1 binary64))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) re (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) #s(literal 1 binary64))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (neg.f64 re) re))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) (neg.f64 re)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (-.f64 (neg.f64 re) (*.f64 (neg.f64 re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (neg.f64 re) re))
(/.f64 (-.f64 re (*.f64 (neg.f64 re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))) (*.f64 re re))
(/.f64 (-.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (-.f64 re (*.f64 re (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 re re))
(/.f64 (fma.f64 (*.f64 re re) re (*.f64 re (*.f64 (*.f64 #s(literal -1/4 binary64) im) im))) (*.f64 re (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (neg.f64 re)) (*.f64 (neg.f64 re) re))
(/.f64 (-.f64 (neg.f64 re) (*.f64 re (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) re re) (*.f64 re re))
(/.f64 (*.f64 (*.f64 re re) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) re)) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) (*.f64 re re)) re))
(/.f64 (*.f64 (*.f64 re re) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) re)) (*.f64 (+.f64 re re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64)) (neg.f64 re)))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) #s(literal 2 binary64)) re))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 re) re)) re))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re))) (*.f64 (+.f64 re re) re))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (neg.f64 re)) (neg.f64 re)) (*.f64 re re))
(/.f64 (*.f64 re (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64))) (*.f64 (neg.f64 re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) re))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64)) re))
(/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) re))
(/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)) (neg.f64 re))
(/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (*.f64 re re) re))
(/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re)
(neg.f64 (+.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal 1/4 binary64))))
(neg.f64 (+.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)))))
(neg.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal 1/4 binary64) (/.f64 #s(literal -1 binary64) re)))
(neg.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal -1 binary64) re)))
(neg.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)) re))
(fma.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) im) (*.f64 re re)) (/.f64 im re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) im) re) (/.f64 im (*.f64 re re)) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (fabs.f64 re) re) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (fabs.f64 re) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 (fabs.f64 re) re) (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 (fabs.f64 re) re) (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 re (*.f64 (neg.f64 re) re)) #s(literal -1 binary64) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 re (*.f64 (neg.f64 re) re)) #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 re (*.f64 re re)) #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 re (*.f64 re re)) #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (*.f64 re re)) (/.f64 (*.f64 im im) re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (*.f64 im im) (*.f64 re re)) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) (*.f64 re re)) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (/.f64 #s(literal -1/4 binary64) re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re))
(fma.f64 #s(literal -1 binary64) (/.f64 re (*.f64 (neg.f64 re) re)) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 #s(literal -1 binary64) (/.f64 re (*.f64 (neg.f64 re) re)) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 #s(literal 1 binary64) (/.f64 re (*.f64 re re)) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 #s(literal 1 binary64) (/.f64 re (*.f64 re re)) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) re))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 #s(literal 1/4 binary64) re) (/.f64 (*.f64 im im) (*.f64 re re))))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) re) (/.f64 #s(literal -1/4 binary64) (*.f64 re re))))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) (/.f64 #s(literal -1/4 binary64) re)))
(-.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)) re))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))))
(-.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)))
(-.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal -1 binary64) re))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (neg.f64 re)) (*.f64 (neg.f64 re) re)) (/.f64 (neg.f64 re) (*.f64 (neg.f64 re) re)))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) re) (*.f64 re re)) (/.f64 re (*.f64 re re)))
(+.f64 (/.f64 (neg.f64 re) (*.f64 (neg.f64 re) re)) (/.f64 (*.f64 (neg.f64 re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re))) (*.f64 (neg.f64 re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) (/.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))))
(+.f64 (/.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (neg.f64 re) (*.f64 (*.f64 #s(literal -1/4 binary64) im) im)) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re))))
(+.f64 (/.f64 (*.f64 (*.f64 re re) re) (*.f64 re (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 re (*.f64 (*.f64 #s(literal -1/4 binary64) im) im)) (*.f64 re (*.f64 (*.f64 re re) re))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (neg.f64 re)) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re))) (/.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) (*.f64 (*.f64 (*.f64 re re) re) re)) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) re)))
(+.f64 (/.f64 re (*.f64 re re)) (/.f64 (*.f64 re (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re))) (*.f64 re re)))
(+.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) re))
(+.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) re))
(*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re))) #s(literal 1 binary64)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal -1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal -1 binary64)) (fma.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) #s(literal -1 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))))))
(/.f64 (*.f64 (*.f64 re re) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) re)) (*.f64 (*.f64 re re) re))
(/.f64 (*.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 (*.f64 (neg.f64 re) re) (*.f64 re re)))
(/.f64 (*.f64 (*.f64 re re) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) re)) (+.f64 re re))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (neg.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 (*.f64 (neg.f64 re) re) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 re) re)))
(/.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re))) (+.f64 re re))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 #s(literal 2 binary64) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 re re))
(neg.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)))
(fma.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) im) (fabs.f64 re)) (/.f64 im (fabs.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) im) re) (/.f64 (neg.f64 im) re) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) im) re) (/.f64 im re) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 (neg.f64 im) im) re) (/.f64 #s(literal 1/4 binary64) re) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal 1/4 binary64) re) (/.f64 (*.f64 (neg.f64 im) im) re) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)) (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) re) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64))
(-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 re re))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (*.f64 re re))))
(-.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (/.f64 (*.f64 (neg.f64 re) re) (*.f64 re re)))
(-.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal 1/4 binary64) re)))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) re) (/.f64 #s(literal -1/4 binary64) re)))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)))
(-.f64 #s(literal 1 binary64) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) (*.f64 re re)) (*.f64 (*.f64 re re) re)) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) (*.f64 re re))) (/.f64 (*.f64 (*.f64 (neg.f64 re) re) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) (*.f64 re re))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) (*.f64 (*.f64 (*.f64 re re) re) re)) (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 (*.f64 re re) re) re)))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) #s(literal 2 binary64)) (+.f64 re re)) (/.f64 (+.f64 re re) (+.f64 re re)))
(+.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) #s(literal 2 binary64)) (*.f64 (*.f64 (neg.f64 re) re) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 (neg.f64 re) re) #s(literal 2 binary64)) (*.f64 (*.f64 (neg.f64 re) re) #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) #s(literal 2 binary64)) (*.f64 (*.f64 re re) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64)) (*.f64 (*.f64 re re) #s(literal 2 binary64))))
(+.f64 (/.f64 (+.f64 re re) (+.f64 re re)) (/.f64 (*.f64 #s(literal 2 binary64) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re)) (+.f64 re re)))
(+.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 re) re)) (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 re) re))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 re) re))))
(+.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 re re))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) im) im)) (*.f64 #s(literal 2 binary64) (*.f64 re re))))
(+.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)))
(+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))
(*.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) im) (fabs.f64 re)) (/.f64 im (fabs.f64 re)))
(*.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) im) re) (/.f64 (neg.f64 im) re))
(*.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) im) re) (/.f64 im re))
(*.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)))
(*.f64 (/.f64 (*.f64 (neg.f64 im) im) re) (/.f64 #s(literal 1/4 binary64) re))
(*.f64 (/.f64 #s(literal 1/4 binary64) re) (/.f64 (*.f64 (neg.f64 im) im) re))
(*.f64 (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)) (/.f64 (*.f64 im im) (fabs.f64 re)))
(*.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (*.f64 im im) re))
(*.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) re))
(*.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (*.f64 (*.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 1/4 binary64)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (*.f64 (*.f64 (*.f64 im re) (*.f64 im re)) #s(literal 1/4 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 (neg.f64 im) im) (*.f64 re re))) (*.f64 re (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 im re) (*.f64 im re))) (*.f64 re (*.f64 (*.f64 re re) re)))
(/.f64 (*.f64 (*.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal -1/4 binary64)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (*.f64 (*.f64 (*.f64 im re) (*.f64 im re)) #s(literal -1/4 binary64)) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (neg.f64 im) im) (*.f64 re re))) (*.f64 (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im re) (*.f64 im re))) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)))
(/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (neg.f64 im) im)) (*.f64 re re))
(/.f64 (*.f64 (*.f64 (neg.f64 im) im) #s(literal 1/4 binary64)) (*.f64 re re))
(/.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) re) (neg.f64 re))
(/.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) re) re)
(/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (neg.f64 re) re))
(/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re))
(neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))
(*.f64 (*.f64 #s(literal -1/4 binary64) im) im)
(*.f64 (*.f64 im im) #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) (*.f64 im im))
(neg.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))
#s(literal -1/4 binary64)
(*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))))
(*.f64 (pow.f64 (neg.f64 (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (*.f64 im im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 im im))
(*.f64 im im)
(pow.f64 (neg.f64 (fabs.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 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 im) im))
(sqrt.f64 (*.f64 (*.f64 im im) (*.f64 im im)))
(fabs.f64 (*.f64 (neg.f64 im) im))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (*.f64 re re) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 re re))
(*.f64 re re)
(pow.f64 (neg.f64 (fabs.f64 re)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 re) re))
(sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) re))
(fabs.f64 (*.f64 (neg.f64 re) re))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
#s(literal 1 binary64)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64) (*.f64 re (fma.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/32 binary64))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/8 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) (-.f64 re im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal -2 binary64)) re im) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (-.f64 im re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal -1 binary64)) re im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal -1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 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) im)) (*.f64 re re) im))
#s(approx re re)
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (+.f64 im im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 #s(literal -2 binary64) (-.f64 re im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (- (/ re im) 2) #s(literal -2 binary64))
#s(approx (- (/ re im) 2) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) (/.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 (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 (*.f64 re re) re)))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) im) im) (*.f64 re re)))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)))
#s(approx (/ (* -1/4 (* im im)) (* re re)) (/.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) 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) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (pow.f64 re #s(literal -9/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) #s(literal 1/64 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/1024 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im (*.f64 (*.f64 (pow.f64 re #s(literal -9/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) #s(literal 1/32 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/512 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/32 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.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)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/8 binary64) (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)) (/.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im))) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))) 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) (/.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) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/16 binary64) (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) (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/16 binary64) (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)
#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 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (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))) (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) re re))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re re) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 2 binary64) re)) (*.f64 re re)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal 2 binary64)) re)) (*.f64 re re)))
#s(approx (- (/ re im) 2) (/.f64 re im))
#s(approx (- (/ re im) 2) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) (/.f64 (*.f64 im im) re))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) (/.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 (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (/.f64 #s(literal 1 binary64) re))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) #s(literal 1 binary64))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) re)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 re) (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (/.f64 (sqrt.f64 re) (*.f64 re re)) (fma.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/64 binary64) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) (*.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) re))) re))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -2 binary64)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 re) (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))))) #s(literal -1/4 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 re) (-.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 re) (-.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (/.f64 (sqrt.f64 re) (*.f64 re re)) (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/32 binary64) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))))) (*.f64 (*.f64 re 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 (neg.f64 re) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/4 binary64) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -2 binary64)) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 re) (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/16 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -2 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (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))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) re re)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal 2 binary64)) re)) (*.f64 re re)))
#s(approx (- (/ re im) 2) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) (/.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 (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 im (+.f64 im im))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (*.f64 im im))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 7/128 binary64)) (*.f64 re re)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (sqrt.f64 re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im im))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im (+.f64 im im))) #s(literal -1/16 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 7/128 binary64)) (*.f64 re re)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (sqrt.f64 re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im im))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 7 binary64))) #s(literal -5/64 binary64) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re)))) (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -5/128 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 7 binary64))) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re)))) (*.f64 im im) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re (fma.f64 #s(literal -2 binary64) im re)) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (-.f64 re im)) im (*.f64 re re)) im))
#s(approx (- (/ re im) 2) (/.f64 (fma.f64 #s(literal -2 binary64) im re) im))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (* -1/4 (* im im)) (*.f64 (*.f64 #s(literal -1/4 binary64) im) im))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #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))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) (-.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 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (*.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal -2 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re im)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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) #s(literal 1 binary64))) (/.f64 re im)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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) #s(literal 1 binary64))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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)))) im im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (* im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (*.f64 im im))))
#s(approx (/ (+ (/ (* -1/4 (* im im)) (* re re)) 1) re) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)))
#s(approx (+ (/ (* -1/4 (* im im)) (* re re)) 1) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 re re)) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (neg.f64 (*.f64 im (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal -3/16 binary64)) (*.f64 (*.f64 im im) im)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) (*.f64 im im)) (/.f64 #s(literal 3/8 binary64) im) (neg.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (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 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) re) (/.f64 (*.f64 re re) im)) im) #s(literal -2 binary64)) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) re) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im)) im) #s(literal -2 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (neg.f64 (fma.f64 (/.f64 re im) im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 (-.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64)) re) im) #s(literal -1 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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)))) im im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64)) im))

eval80.0ms (1%)

Memory
-13.5MiB live, 171.6MiB allocated; 48ms collecting garbage
Compiler

Compiled 8 299 to 3 579 computations (56.9% saved)

prune16.0ms (0.2%)

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

14 alts after pruning (11 fresh and 3 done)

PrunedKeptTotal
New5625567
Fresh268
Picked235
Done000
Total56614580
Accuracy
99.9%
Counts
580 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
43.8%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
54.9%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
▶12.0%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))) #s(literal 1/2 binary64))
✓84.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
✓5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
▶57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
11.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im)) re))))
▶11.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
✓54.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
9.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
▶27.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))))))
▶29.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
17.7%
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
20.7%
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
Compiler

Compiled 462 to 450 computations (2.6% saved)

series89.0ms (1.1%)

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

6 calls:

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

rewrite1.2s (15.1%)

Memory
43.6MiB live, 761.7MiB allocated; 247ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
08477345
08816575
127426239
084615977
0360775035
Stop Event
1×iter-limit
1×iter-limit
1×node-limit
1×iter-limit
Counts
218 → 665
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
#s(literal 2 binary64)
(-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))
(*.f64 #s(literal -4 binary64) re)
#s(literal -4 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.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 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))))
(*.f64 (neg.f64 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)))
(neg.f64 re)
(fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))
(/.f64 im (*.f64 re re))
(*.f64 re re)
#s(literal 4 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))
(*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)
(*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im)
(/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re)
(fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64))
(/.f64 (*.f64 im im) (*.f64 re re))
#s(literal -1/4 binary64)
#s(literal 1 binary64)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* -4 re) #s(hole binary64 (* -4 re)))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (/ (+ (* -4 (pow re 2)) (* -1 (pow im 2))) re)))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (+ (* im (/ im (* re re))) 4) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (+ (* im (/ im (* re re))) 4) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) (pow re 2))))
#s(approx (/ im (* re re)) #s(hole binary64 (/ im (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 3))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (* -1/4 (/ (pow im 3) (pow re 3)))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (/ (+ (* -1/4 (pow im 3)) (* im (pow re 2))) (pow re 3))))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) #s(hole binary64 (* -1/4 (/ (pow im 2) (pow re 3)))))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) #s(hole binary64 (/ (+ (* -1/4 (pow im 2)) (pow re 2)) (pow re 3))))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) #s(hole binary64 (* -1/4 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) #s(hole binary64 (/ (+ (* -1/4 (pow im 2)) (pow re 2)) (pow re 2))))
#s(approx (/ (* im im) (* re re)) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (+ (* -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/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/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/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/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/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 re))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* -4 re)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4))))
#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 (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (/ im re)))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (/ (+ im (* -1/4 (/ (pow im 3) (pow re 2)))) re)))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) #s(hole binary64 (/ 1 re)))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) #s(hole binary64 (/ (+ 1 (* -1/4 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) #s(hole binary64 1))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) #s(hole binary64 (+ 1 (* -1/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 re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* 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 (* -1 (* 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 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* 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 (* -1 (* 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 (* -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 re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) #s(hole binary64 (* -1 (/ (+ (* -1 (pow im 2)) (* 1/4 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (* -1 (/ (+ (* -1 im) (* 1/4 (/ (pow im 3) (pow re 2)))) re))))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) #s(hole binary64 (* -1 (/ (- (* 1/4 (/ (pow im 2) (pow re 2))) 1) re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (+ (* -4 re) (* -1 (/ (pow im 2) re)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (* im (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) #s(hole binary64 (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (* -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 (* (neg re) (+ (* im (/ im (* re re))) 4)) #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 (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) #s(hole binary64 (* (pow im 4) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (* (pow im 3) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) #s(hole binary64 (* (pow im 2) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) #s(hole binary64 (* (pow im 2) (- (/ 1 (pow im 2)) (* 1/4 (/ 1 (pow re 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) 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 (/ re im))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) #s(hole binary64 (* -1 (* (pow im 3) (- (* 1/4 (/ 1 (pow re 3))) (/ 1 (* (pow im 2) re)))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (pow.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1/2 binary64)))
(pow.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(neg.f64 (*.f64 #s(literal -2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(neg.f64 (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(-.f64 (+.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(approx (sqrt (+ (* re re) (* im im))) im)) re)
(-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 re (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(+.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
#s(literal 2 binary64)
(*.f64 #s(literal 1 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.f64 re re)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (fma.f64 re re (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))
(*.f64 #s(literal -4 binary64) re)
(*.f64 re #s(literal -4 binary64))
#s(literal -4 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 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)) (/.f64 (*.f64 im im) re))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
(*.f64 (/.f64 (*.f64 im im) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) re))
(*.f64 (/.f64 (*.f64 re re) re) (*.f64 (/.f64 im (*.f64 re re)) im))
(*.f64 (/.f64 #s(literal -1 binary64) re) (/.f64 (*.f64 im im) #s(literal -1 binary64)))
(*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 (*.f64 re re) re))
(*.f64 (/.f64 (*.f64 im im) re) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 im im) re))
(*.f64 im (/.f64 im re))
(/.f64 (*.f64 (*.f64 re re) (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 (neg.f64 re) re))
(/.f64 (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 re re)) (*.f64 (neg.f64 re) re))
(/.f64 (*.f64 (/.f64 (*.f64 im im) re) (*.f64 re re)) (*.f64 re re))
(/.f64 (*.f64 (*.f64 re re) (*.f64 (neg.f64 im) im)) (*.f64 (*.f64 (neg.f64 re) re) re))
(/.f64 (*.f64 (*.f64 re re) (/.f64 (*.f64 im im) re)) (*.f64 re re))
(/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 im) im)) (*.f64 #s(literal -2 binary64) re))
(/.f64 (*.f64 im (+.f64 im im)) (+.f64 re re))
(/.f64 (*.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) re))
(/.f64 (*.f64 (neg.f64 im) im) (neg.f64 re))
(/.f64 (*.f64 (*.f64 re im) (*.f64 re im)) (*.f64 (*.f64 re re) re))
(/.f64 (*.f64 im im) re)
(neg.f64 (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))))
(*.f64 (pow.f64 (neg.f64 (*.f64 im (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) #s(literal 2 binary64)))
(*.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (*.f64 im im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 im im))
(*.f64 im im)
(pow.f64 (neg.f64 (fabs.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 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 im) im))
(sqrt.f64 (*.f64 (*.f64 im im) (*.f64 im im)))
(fabs.f64 (*.f64 (neg.f64 im) im))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 im)) #s(literal 2 binary64)))
(exp.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 im (*.f64 (neg.f64 re) re)) im #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 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re))
(*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re)
(*.f64 (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)) re) #s(literal -1 binary64))
(*.f64 (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)) (neg.f64 re))
(*.f64 #s(literal -1 binary64) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)) re))
(*.f64 (neg.f64 re) (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)))
(*.f64 re (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im))) (*.f64 (*.f64 re #s(literal 4 binary64)) (*.f64 re #s(literal 4 binary64)))) (fma.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im) (*.f64 re #s(literal 4 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re))) (*.f64 (*.f64 #s(literal -4 binary64) (neg.f64 re)) (*.f64 #s(literal -4 binary64) (neg.f64 re)))) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re) (*.f64 #s(literal -4 binary64) (neg.f64 re))))
(/.f64 (-.f64 (pow.f64 (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal 3 binary64)) (pow.f64 (*.f64 re #s(literal 4 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)) (fma.f64 (*.f64 re #s(literal 4 binary64)) (*.f64 re #s(literal 4 binary64)) (*.f64 (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 re #s(literal 4 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal -4 binary64) (neg.f64 re)) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)) (fma.f64 (*.f64 #s(literal -4 binary64) (neg.f64 re)) (*.f64 #s(literal -4 binary64) (neg.f64 re)) (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)) (*.f64 #s(literal -4 binary64) (neg.f64 re))))))
(neg.f64 (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)) re))
(fma.f64 (*.f64 re #s(literal 4 binary64)) #s(literal -1 binary64) (*.f64 (*.f64 re (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal -1 binary64)))
(fma.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re) #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 4 binary64) re) #s(literal -1 binary64)))
(fma.f64 (*.f64 #s(literal 4 binary64) re) #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re) #s(literal -1 binary64)))
(fma.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) re (*.f64 #s(literal -4 binary64) re))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re) (*.f64 #s(literal 4 binary64) (neg.f64 re)))
(fma.f64 #s(literal -1 binary64) (*.f64 re #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (*.f64 re (*.f64 (/.f64 im (*.f64 re re)) im))))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re) (*.f64 #s(literal -1 binary64) (*.f64 #s(literal 4 binary64) re)))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 4 binary64) re) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re)))
(fma.f64 #s(literal 4 binary64) (neg.f64 re) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)))
(fma.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im) (*.f64 (neg.f64 re) #s(literal 4 binary64)))
(fma.f64 (neg.f64 re) #s(literal 4 binary64) (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)))
(fma.f64 re (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) (*.f64 #s(literal -4 binary64) re))
(-.f64 (*.f64 (neg.f64 re) #s(literal 4 binary64)) (*.f64 re (*.f64 (/.f64 im (*.f64 re re)) im)))
(-.f64 (*.f64 #s(literal 4 binary64) (neg.f64 re)) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) (neg.f64 re)))
(-.f64 (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 re #s(literal 4 binary64)))
(-.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)) (*.f64 #s(literal -4 binary64) (neg.f64 re)))
(+.f64 (*.f64 re (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im)) (*.f64 #s(literal -4 binary64) re))
(+.f64 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re)) (*.f64 #s(literal -1 binary64) (*.f64 #s(literal 4 binary64) re)))
(+.f64 (*.f64 #s(literal -1 binary64) (*.f64 re #s(literal 4 binary64))) (*.f64 #s(literal -1 binary64) (*.f64 re (*.f64 (/.f64 im (*.f64 re re)) im))))
(+.f64 (*.f64 #s(literal -1 binary64) (*.f64 #s(literal 4 binary64) re)) (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re)))
(+.f64 (*.f64 (*.f64 re #s(literal 4 binary64)) #s(literal -1 binary64)) (*.f64 (*.f64 re (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal -1 binary64)))
(+.f64 (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re) #s(literal -1 binary64)) (*.f64 (*.f64 #s(literal 4 binary64) re) #s(literal -1 binary64)))
(+.f64 (*.f64 (*.f64 #s(literal 4 binary64) re) #s(literal -1 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) re) #s(literal -1 binary64)))
(+.f64 (*.f64 (neg.f64 re) #s(literal 4 binary64)) (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)))
(+.f64 (*.f64 #s(literal 4 binary64) (neg.f64 re)) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)))
(+.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) re) (*.f64 #s(literal -4 binary64) re))
(+.f64 (*.f64 (neg.f64 re) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 (neg.f64 re) #s(literal 4 binary64)))
(+.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (neg.f64 re)) (*.f64 #s(literal 4 binary64) (neg.f64 re)))
(*.f64 #s(literal -1 binary64) re)
(*.f64 #s(literal 1 binary64) (neg.f64 re))
(*.f64 re #s(literal -1 binary64))
(neg.f64 re)
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal 16 binary64)) (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal -4 binary64)))
(/.f64 (-.f64 #s(literal 16 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im))) (+.f64 #s(literal 4 binary64) (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im)))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 3 binary64)) #s(literal -64 binary64)) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (*.f64 (/.f64 im (*.f64 re re)) im) (+.f64 #s(literal 16 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -4 binary64)))))
(/.f64 (-.f64 #s(literal 64 binary64) (pow.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 3 binary64))) (+.f64 #s(literal 16 binary64) (fma.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) (*.f64 #s(literal 4 binary64) (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im)))))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 im) im) #s(literal 1/2 binary64)) (*.f64 (*.f64 re re) #s(literal 2 binary64))) (*.f64 (*.f64 re re) #s(literal -1/2 binary64)))
(/.f64 (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)) (*.f64 re #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (*.f64 im im) #s(literal 1/2 binary64) (*.f64 (*.f64 re re) #s(literal 2 binary64))) (*.f64 (*.f64 re re) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 (neg.f64 re) re) (*.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 im) im))) (*.f64 (*.f64 re re) #s(literal -1/2 binary64)))
(/.f64 (+.f64 re (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re)) (*.f64 #s(literal 1/2 binary64) re))
(/.f64 (fma.f64 #s(literal 2 binary64) (*.f64 re re) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) (*.f64 (*.f64 re re) #s(literal 1/2 binary64)))
(neg.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)))
(fma.f64 (*.f64 (/.f64 im #s(literal -1 binary64)) (/.f64 im #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 re re)) #s(literal 4 binary64))
(fma.f64 (*.f64 (/.f64 (*.f64 re re) re) (/.f64 (*.f64 re re) re)) (*.f64 (/.f64 im (*.f64 re re)) (/.f64 im (*.f64 re re))) #s(literal 4 binary64))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) (/.f64 im (*.f64 re re))) (*.f64 (/.f64 (*.f64 re re) re) (/.f64 (*.f64 re re) re)) #s(literal 4 binary64))
(fma.f64 (pow.f64 (/.f64 im re) #s(literal 1 binary64)) (pow.f64 (/.f64 im re) #s(literal 1 binary64)) #s(literal 4 binary64))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 im) (neg.f64 re))) (fabs.f64 (/.f64 (fabs.f64 im) (neg.f64 re))) #s(literal 4 binary64))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 im) re)) (fabs.f64 (/.f64 (fabs.f64 im) re)) #s(literal 4 binary64))
(fma.f64 (fabs.f64 (/.f64 (neg.f64 im) (fabs.f64 re))) (fabs.f64 (/.f64 (neg.f64 im) (fabs.f64 re))) #s(literal 4 binary64))
(fma.f64 (fabs.f64 (/.f64 im (fabs.f64 re))) (fabs.f64 (/.f64 im (fabs.f64 re))) #s(literal 4 binary64))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 im re))) (fabs.f64 (fabs.f64 (/.f64 im re))) #s(literal 4 binary64))
(fma.f64 (neg.f64 (/.f64 (fabs.f64 im) (neg.f64 re))) (neg.f64 (/.f64 (fabs.f64 im) (neg.f64 re))) #s(literal 4 binary64))
(fma.f64 (neg.f64 (/.f64 (neg.f64 im) (fabs.f64 re))) (neg.f64 (/.f64 (neg.f64 im) (fabs.f64 re))) #s(literal 4 binary64))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 im re))) (neg.f64 (fabs.f64 (/.f64 im re))) #s(literal 4 binary64))
(fma.f64 (pow.f64 (/.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 2 binary64)) #s(literal 4 binary64))
(fma.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 2 binary64)) (pow.f64 (/.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)) #s(literal 4 binary64))
(fma.f64 (pow.f64 (/.f64 (*.f64 re re) re) #s(literal 2 binary64)) (pow.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64)) #s(literal 4 binary64))
(fma.f64 (pow.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 re re) re) #s(literal 2 binary64)) #s(literal 4 binary64))
(fma.f64 (fabs.f64 (/.f64 im re)) (fabs.f64 (/.f64 im re)) #s(literal 4 binary64))
(fma.f64 (/.f64 (fabs.f64 im) (neg.f64 re)) (/.f64 (fabs.f64 im) (neg.f64 re)) #s(literal 4 binary64))
(fma.f64 (/.f64 (fabs.f64 im) re) (/.f64 (fabs.f64 im) re) #s(literal 4 binary64))
(fma.f64 (/.f64 (neg.f64 im) (fabs.f64 re)) (/.f64 (neg.f64 im) (fabs.f64 re)) #s(literal 4 binary64))
(fma.f64 (/.f64 im (fabs.f64 re)) (/.f64 im (fabs.f64 re)) #s(literal 4 binary64))
(fma.f64 (/.f64 (neg.f64 im) re) (/.f64 (neg.f64 im) re) #s(literal 4 binary64))
(fma.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 im #s(literal -1 binary64)) (/.f64 im #s(literal -1 binary64))) #s(literal 4 binary64))
(fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1 binary64) #s(literal 4 binary64))
(fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64))
(fma.f64 #s(literal 1 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 4 binary64))
(fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64))
(-.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -4 binary64))
(-.f64 #s(literal 4 binary64) (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im))
(+.f64 (/.f64 (*.f64 (*.f64 (neg.f64 im) im) #s(literal 1/2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (/.f64 (*.f64 (*.f64 (neg.f64 re) re) #s(literal 2 binary64)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))))
(+.f64 (/.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64)) (*.f64 re #s(literal 1/2 binary64))) (/.f64 (+.f64 re re) (*.f64 re #s(literal 1/2 binary64))))
(+.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 re) re)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 im) im)) (*.f64 (*.f64 re re) #s(literal -1/2 binary64))))
(+.f64 (/.f64 (+.f64 re re) (*.f64 #s(literal 1/2 binary64) re)) (/.f64 (*.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) re)))
(+.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64)) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))))
(+.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 4 binary64))
(+.f64 #s(literal 4 binary64) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 (neg.f64 im) (/.f64 im re))))
(+.f64 #s(literal 4 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1 binary64)))
(+.f64 #s(literal 4 binary64) (*.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal 1 binary64) re)))
(+.f64 #s(literal 4 binary64) (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) (neg.f64 im)))
(+.f64 #s(literal 4 binary64) (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (/.f64 #s(literal -1 binary64) re)))
(+.f64 #s(literal 4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im))
(/.f64 (*.f64 (neg.f64 im) (*.f64 re re)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (/.f64 (neg.f64 im) re) (neg.f64 re))
(/.f64 (neg.f64 im) (*.f64 (neg.f64 re) re))
(/.f64 (/.f64 im re) re)
(/.f64 (*.f64 (*.f64 re re) im) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 im (*.f64 re re))
(neg.f64 (/.f64 im (*.f64 (neg.f64 re) re)))
(*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (*.f64 re re) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 re re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 re re)
(pow.f64 (neg.f64 (fabs.f64 re)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 re #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 re) re))
(sqrt.f64 (*.f64 (*.f64 (*.f64 re re) re) re))
(fabs.f64 (*.f64 (neg.f64 re) re))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
#s(literal 4 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) 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 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))
(*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im)
(*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im))
(*.f64 (*.f64 im im) (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
(*.f64 im (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)))) (fma.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re))))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im))) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) im (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) im))
(fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) im (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) im))
(fma.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)))
(fma.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)))
(fma.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re) (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))))
(fma.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re)))
(fma.f64 im (*.f64 (/.f64 #s(literal 1 binary64) re) im) (*.f64 im (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im)))
(fma.f64 im (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) (*.f64 im (*.f64 (/.f64 #s(literal 1 binary64) re) im)))
(-.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)))
(-.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))
(-.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)) (*.f64 (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal 1/4 binary64)) (*.f64 im im)))
(-.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 im im)))
(+.f64 (*.f64 im (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im)) (*.f64 im (*.f64 (/.f64 #s(literal 1 binary64) re) im)))
(+.f64 (*.f64 im (*.f64 (/.f64 #s(literal 1 binary64) re) im)) (*.f64 im (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im)))
(+.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) im) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) im))
(+.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) im) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) im))
(+.f64 (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re)))
(+.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 im im) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))))
(+.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)))
(+.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im im)))
(*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im)
(*.f64 im (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
(/.f64 (-.f64 (*.f64 (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)))) (fma.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re))))
(/.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im)) (*.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) im) (*.f64 (/.f64 #s(literal -1 binary64) re) im))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im (*.f64 (/.f64 #s(literal -1 binary64) re) im)))
(/.f64 (-.f64 (pow.f64 (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)) #s(literal 3 binary64))) (fma.f64 (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) im) #s(literal 3 binary64))) (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) (fma.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) im) (*.f64 (/.f64 #s(literal -1 binary64) re) im) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) (*.f64 (/.f64 #s(literal -1 binary64) re) im)))))
(/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) im)) (neg.f64 re))
(/.f64 (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) im) re)
(neg.f64 (/.f64 (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) im) (neg.f64 re)))
(neg.f64 (/.f64 (neg.f64 (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) im)) re))
(fma.f64 (/.f64 #s(literal 1 binary64) re) im (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im))
(fma.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im (*.f64 (/.f64 #s(literal 1 binary64) re) im))
(fma.f64 im (/.f64 #s(literal 1 binary64) re) (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))))
(fma.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 im (/.f64 #s(literal 1 binary64) re)))
(-.f64 (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)))
(-.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) (*.f64 (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal 1/4 binary64)) im))
(-.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) im))
(-.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) (*.f64 (/.f64 #s(literal -1 binary64) re) im))
(+.f64 (*.f64 im (/.f64 #s(literal 1 binary64) re)) (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))))
(+.f64 (*.f64 im (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re))) (*.f64 im (/.f64 #s(literal 1 binary64) re)))
(+.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im))
(+.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) im) (*.f64 (/.f64 #s(literal 1 binary64) re) im))
(*.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)) re) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)) re))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (neg.f64 re)) (neg.f64 re))) (*.f64 (neg.f64 re) re))
(/.f64 (neg.f64 (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)))) (*.f64 re re))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)))) (+.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re))))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)))) (+.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64))))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))))) (+.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)))))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (fma.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re))))))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64)) (pow.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (fma.f64 (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64))))))
(/.f64 (-.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)))))))
(/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64))) (neg.f64 re))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) (*.f64 (neg.f64 re) re))) (*.f64 (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (neg.f64 re) (*.f64 (neg.f64 re) #s(literal -1 binary64))) (*.f64 re re))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (neg.f64 re) re) re)) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) re (*.f64 (neg.f64 re) #s(literal 1 binary64))) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (neg.f64 re) re) re)) (*.f64 re (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (*.f64 re (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) (neg.f64 re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) re (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (fma.f64 #s(literal -1 binary64) (neg.f64 re) (*.f64 (neg.f64 re) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 re re))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) re (*.f64 (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 re re) re (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (+.f64 (neg.f64 re) (*.f64 re (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 (neg.f64 re) re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 im im) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 re (*.f64 (*.f64 im im) #s(literal -1/4 binary64)))) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 re re) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 re re) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 im im) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 re (*.f64 #s(literal 1/4 binary64) (*.f64 im im)))) (*.f64 re (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) re))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (neg.f64 re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) #s(literal -1 binary64))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) re (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) #s(literal 1 binary64))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (neg.f64 re) re))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) (neg.f64 re)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (-.f64 (neg.f64 re) (*.f64 (neg.f64 re) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 (neg.f64 re) re))
(/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (neg.f64 re)) (*.f64 (neg.f64 re) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))) (*.f64 re re))
(/.f64 (-.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (-.f64 re (*.f64 re (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (*.f64 re re))
(/.f64 (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) (neg.f64 re)) (*.f64 (neg.f64 re) re))
(/.f64 (-.f64 (neg.f64 re) (*.f64 re (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) re re) (*.f64 re re))
(/.f64 (*.f64 (*.f64 re re) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re))
(/.f64 (fma.f64 (*.f64 re re) re (*.f64 re (*.f64 (*.f64 im im) #s(literal -1/4 binary64)))) (*.f64 re (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) re (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64)) (neg.f64 re)))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) re))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64)) re))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (neg.f64 re)) (neg.f64 re)) (*.f64 re re))
(/.f64 (*.f64 re (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64))) (*.f64 (neg.f64 re) re))
(/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) re))
(/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)) (neg.f64 re))
(/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (*.f64 re re) re))
(/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re)
(neg.f64 (+.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal 1/4 binary64))))
(neg.f64 (+.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)))))
(neg.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal 1/4 binary64) (/.f64 #s(literal -1 binary64) re)))
(neg.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal -1 binary64) re)))
(neg.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)) re))
(fma.f64 (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (fabs.f64 re) re) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (fabs.f64 re) re) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 (fabs.f64 re) re) (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 (fabs.f64 re) re) (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 re (*.f64 (neg.f64 re) re)) #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 re (*.f64 (neg.f64 re) re)) #s(literal -1 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 re (*.f64 re re)) #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 re (*.f64 re re)) #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (*.f64 re re)) (/.f64 (*.f64 im im) re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 #s(literal -1/4 binary64) re) (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 #s(literal -1/4 binary64) re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) (*.f64 re re)) (/.f64 #s(literal 1 binary64) re))
(fma.f64 #s(literal -1 binary64) (/.f64 re (*.f64 (neg.f64 re) re)) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 #s(literal -1 binary64) (/.f64 re (*.f64 (neg.f64 re) re)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 #s(literal 1 binary64) (/.f64 re (*.f64 re re)) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 #s(literal 1 binary64) (/.f64 re (*.f64 re re)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) re))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) (/.f64 #s(literal -1/4 binary64) re)))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (/.f64 #s(literal -1/4 binary64) (*.f64 re re))))
(-.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64)) re))
(-.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 (neg.f64 im) im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (*.f64 (neg.f64 im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))))
(-.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)))
(-.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal -1 binary64) re))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) (neg.f64 re)) (*.f64 (neg.f64 re) re)) (/.f64 (neg.f64 re) (*.f64 (neg.f64 re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) re) (*.f64 re re)) (/.f64 re (*.f64 re re)))
(+.f64 (/.f64 (neg.f64 re) (*.f64 (neg.f64 re) re)) (/.f64 (*.f64 (neg.f64 re) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64))) (*.f64 (neg.f64 re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 (neg.f64 re) (*.f64 (*.f64 im im) #s(literal -1/4 binary64))) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re))))
(+.f64 (/.f64 (*.f64 (*.f64 re re) re) (*.f64 re (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 re (*.f64 (*.f64 im im) #s(literal -1/4 binary64))) (*.f64 re (*.f64 (*.f64 re re) re))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (neg.f64 re)) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re))) (/.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re))))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) re) (*.f64 (*.f64 (*.f64 re re) re) re)) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))))
(+.f64 (/.f64 re (*.f64 re re)) (/.f64 (*.f64 re (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64))) (*.f64 re re)))
(+.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)) re))
(+.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) re))
(*.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64))) #s(literal 1 binary64)) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal -1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64)) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) #s(literal 3 binary64)) #s(literal -1 binary64)) (fma.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) #s(literal -1 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64)) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) (*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im))))))
(/.f64 (*.f64 (*.f64 re re) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))) (neg.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64))))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 re re) #s(literal 2 binary64)))
(/.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 #s(literal 2 binary64) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 re re))
(neg.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)) (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (neg.f64 re)) (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))
(fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal -1 binary64) #s(literal 1 binary64))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (/.f64 #s(literal -1/4 binary64) (neg.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) re) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1 binary64))
(-.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 re re))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 im im))) (*.f64 #s(literal 2 binary64) (*.f64 re re))))
(-.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) (/.f64 (*.f64 (neg.f64 re) re) (*.f64 re re)))
(-.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) (neg.f64 re))))
(-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (/.f64 #s(literal -1/4 binary64) re)))
(-.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 (neg.f64 im) im) #s(literal -1/4 binary64)) (*.f64 re re)))
(-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal -1/4 binary64)))
(-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)))
(+.f64 (*.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im))) #s(literal 1 binary64))
(+.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal -1 binary64)) #s(literal 1 binary64))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 re re)) (*.f64 (*.f64 (*.f64 re re) re) re)) (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 (*.f64 re re) re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 re re) #s(literal 2 binary64))) (/.f64 (*.f64 (*.f64 re re) #s(literal 2 binary64)) (*.f64 (*.f64 re re) #s(literal 2 binary64))))
(+.f64 (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 re re)) (*.f64 #s(literal 2 binary64) (*.f64 re re))) (/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) #s(literal -1/4 binary64))) (*.f64 #s(literal 2 binary64) (*.f64 re re))))
(+.f64 (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im))))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal -1 binary64)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im) #s(literal 1/4 binary64)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))
(*.f64 (*.f64 (/.f64 im #s(literal -1 binary64)) (/.f64 im #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (*.f64 re re)))
(*.f64 (*.f64 (/.f64 (*.f64 re re) re) (/.f64 (*.f64 re re) re)) (*.f64 (/.f64 im (*.f64 re re)) (/.f64 im (*.f64 re re))))
(*.f64 (*.f64 (/.f64 im (*.f64 re re)) (/.f64 im (*.f64 re re))) (*.f64 (/.f64 (*.f64 re re) re) (/.f64 (*.f64 re re) re)))
(*.f64 (pow.f64 (/.f64 im re) #s(literal 1 binary64)) (pow.f64 (/.f64 im re) #s(literal 1 binary64)))
(*.f64 (fabs.f64 (/.f64 (fabs.f64 im) (neg.f64 re))) (fabs.f64 (/.f64 (fabs.f64 im) (neg.f64 re))))
(*.f64 (fabs.f64 (/.f64 (fabs.f64 im) re)) (fabs.f64 (/.f64 (fabs.f64 im) re)))
(*.f64 (fabs.f64 (/.f64 (neg.f64 im) (fabs.f64 re))) (fabs.f64 (/.f64 (neg.f64 im) (fabs.f64 re))))
(*.f64 (fabs.f64 (/.f64 im (fabs.f64 re))) (fabs.f64 (/.f64 im (fabs.f64 re))))
(*.f64 (fabs.f64 (fabs.f64 (/.f64 im re))) (fabs.f64 (fabs.f64 (/.f64 im re))))
(*.f64 (neg.f64 (/.f64 (fabs.f64 im) (neg.f64 re))) (neg.f64 (/.f64 (fabs.f64 im) (neg.f64 re))))
(*.f64 (neg.f64 (/.f64 (neg.f64 im) (fabs.f64 re))) (neg.f64 (/.f64 (neg.f64 im) (fabs.f64 re))))
(*.f64 (neg.f64 (fabs.f64 (/.f64 im re))) (neg.f64 (fabs.f64 (/.f64 im re))))
(*.f64 (pow.f64 (/.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 2 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) re) #s(literal 2 binary64)) (pow.f64 (/.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))
(*.f64 (pow.f64 (/.f64 (*.f64 re re) re) #s(literal 2 binary64)) (pow.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64)))
(*.f64 (pow.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64)) (pow.f64 (/.f64 (*.f64 re re) re) #s(literal 2 binary64)))
(*.f64 (fabs.f64 (/.f64 im re)) (fabs.f64 (/.f64 im re)))
(*.f64 (/.f64 (fabs.f64 im) (neg.f64 re)) (/.f64 (fabs.f64 im) (neg.f64 re)))
(*.f64 (/.f64 (fabs.f64 im) re) (/.f64 (fabs.f64 im) re))
(*.f64 (/.f64 (neg.f64 im) (fabs.f64 re)) (/.f64 (neg.f64 im) (fabs.f64 re)))
(*.f64 (/.f64 im (fabs.f64 re)) (/.f64 im (fabs.f64 re)))
(*.f64 (/.f64 (neg.f64 im) re) (/.f64 (neg.f64 im) re))
(*.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 im #s(literal -1 binary64)) (/.f64 im #s(literal -1 binary64))))
(*.f64 (/.f64 im re) (/.f64 im re))
(*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1 binary64))
(*.f64 (/.f64 im (*.f64 re re)) im)
(*.f64 #s(literal 1 binary64) (*.f64 (/.f64 im (*.f64 re re)) im))
(*.f64 im (/.f64 im (*.f64 re re)))
(pow.f64 (fabs.f64 (/.f64 im re)) #s(literal 2 binary64))
(pow.f64 (/.f64 (fabs.f64 im) (neg.f64 re)) #s(literal 2 binary64))
(pow.f64 (/.f64 (fabs.f64 im) re) #s(literal 2 binary64))
(pow.f64 (/.f64 (neg.f64 im) (fabs.f64 re)) #s(literal 2 binary64))
(pow.f64 (/.f64 im (fabs.f64 re)) #s(literal 2 binary64))
(pow.f64 (/.f64 (neg.f64 im) re) #s(literal 2 binary64))
(pow.f64 (/.f64 im re) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (neg.f64 im) (*.f64 re re)) (*.f64 (neg.f64 im) (*.f64 re re))) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (*.f64 (*.f64 (neg.f64 im) (*.f64 re re)) (*.f64 (*.f64 re re) im)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (*.f64 (*.f64 re re) re)))
(/.f64 (*.f64 (*.f64 (*.f64 re re) im) (*.f64 (neg.f64 im) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (*.f64 (*.f64 (*.f64 re re) im) (*.f64 (*.f64 re re) im)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))
(/.f64 (*.f64 im (*.f64 (neg.f64 im) (*.f64 re re))) (*.f64 re (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (*.f64 im (*.f64 (*.f64 re re) im)) (*.f64 re (*.f64 (*.f64 re re) re)))
(/.f64 (*.f64 (neg.f64 im) (*.f64 (neg.f64 im) (*.f64 re re))) (*.f64 (neg.f64 re) (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (*.f64 (neg.f64 im) (*.f64 (*.f64 re re) im)) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)))
(/.f64 (*.f64 (*.f64 (neg.f64 im) (*.f64 re re)) im) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (*.f64 (*.f64 (neg.f64 im) (*.f64 re re)) (neg.f64 im)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) (neg.f64 re)))
(/.f64 (*.f64 (*.f64 (*.f64 re re) im) im) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 (*.f64 (*.f64 re re) im) (neg.f64 im)) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (*.f64 #s(literal 2 binary64) (*.f64 (neg.f64 im) im)) (*.f64 (*.f64 #s(literal -2 binary64) re) re))
(/.f64 (*.f64 im (+.f64 im im)) (*.f64 (+.f64 re re) re))
(/.f64 (*.f64 (*.f64 (neg.f64 im) im) (*.f64 re re)) (*.f64 (*.f64 (*.f64 (neg.f64 re) re) re) re))
(/.f64 (*.f64 (neg.f64 im) im) (*.f64 (neg.f64 re) re))
(/.f64 (*.f64 (*.f64 re im) (*.f64 re im)) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (neg.f64 re))
(/.f64 (/.f64 (*.f64 im im) re) re)
(/.f64 (*.f64 im im) (*.f64 re re))
(neg.f64 (*.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im))
(fabs.f64 (*.f64 (/.f64 im (*.f64 re re)) im))
(exp.f64 (*.f64 (log.f64 (/.f64 im re)) #s(literal 2 binary64)))
#s(literal -1/4 binary64)
#s(literal 1 binary64)
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64) (*.f64 re (fma.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/32 binary64))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/8 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (-.f64 im re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal -2 binary64)) re im) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (-.f64 im re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal -1 binary64)) re im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal -1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 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) im)) (*.f64 re re) im))
#s(approx re re)
#s(approx (* -4 re) (*.f64 #s(literal -4 binary64) re))
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (neg.f64 im) (/.f64 im re)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (/.f64 (-.f64 (*.f64 (*.f64 re re) #s(literal -4 binary64)) (*.f64 im im)) re))
#s(approx (neg re) (neg.f64 re))
#s(approx (+ (* im (/ im (* re re))) 4) (*.f64 (/.f64 im (*.f64 re re)) im))
#s(approx (+ (* im (/ im (* re re))) 4) (/.f64 (fma.f64 (*.f64 re re) #s(literal 4 binary64) (*.f64 im im)) (*.f64 re re)))
#s(approx (/ im (* re re)) (/.f64 im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64) (*.f64 re (fma.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/32 binary64))) re (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal -1/4 binary64))))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) (/.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 (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (*.f64 (/.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) im) (*.f64 re re)) #s(literal -1/4 binary64) im) re))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64)))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)))
#s(approx (/ (* im im) (* re re)) (*.f64 (/.f64 im (*.f64 re re)) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/32 binary64))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/32 binary64)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/1024 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im (*.f64 (*.f64 (pow.f64 re #s(literal -9/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) #s(literal 1/32 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/512 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/32 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.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)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/8 binary64) (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)) (/.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im))) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)))) 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) (/.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) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/16 binary64) (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) (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal 1/16 binary64) (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)
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1/2 binary64) #s(literal 1 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 re (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1/2 binary64)))) re))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 #s(literal -4 binary64) re))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re))
#s(approx (+ (* im (/ im (* re re))) 4) #s(literal 4 binary64))
#s(approx (+ (* im (/ im (* re re))) 4) (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/32 binary64))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) #s(literal -1/32 binary64)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/1024 binary64) (*.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/64 binary64) (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) (/.f64 (*.f64 im im) re))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) (/.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 (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (/.f64 im re))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) im) (*.f64 re re)) #s(literal -1/4 binary64) im) re))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) (/.f64 #s(literal 1 binary64) re))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) #s(literal 1 binary64))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) re)) #s(literal -1/2 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) #s(literal 1/2 binary64))) (neg.f64 re)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (/.f64 (sqrt.f64 re) (*.f64 re re)) (fma.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal -1/4 binary64))))) (*.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) re))) re))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -2 binary64)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)))) #s(literal -1/4 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re)))) (neg.f64 re)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (-.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re))) (neg.f64 re)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (-.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (/.f64 (sqrt.f64 re) (*.f64 re re)) (fma.f64 #s(literal -1/16 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal -1/4 binary64))))) (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))))) (*.f64 (*.f64 re re) re))) (neg.f64 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 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64))) (neg.f64 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/4 binary64) (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 (/.f64 im (*.f64 re re)) im)) #s(literal -4 binary64))) (neg.f64 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -2 binary64) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -2 binary64)) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1/2 binary64) #s(literal 2 binary64))) (neg.f64 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/16 binary64))) (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -2 binary64))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1/2 binary64) #s(literal 1 binary64))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 re (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) re)) #s(literal -1/8 binary64) (*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1/2 binary64)))) re)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (fma.f64 (/.f64 im (*.f64 (neg.f64 re) re)) im #s(literal -4 binary64)) re))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) re)) #s(literal -1/2 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) #s(literal 1/2 binary64))) (neg.f64 re)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (/.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re)))) #s(literal -1/32 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -4 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 (/.f64 (sqrt.f64 re) (*.f64 re re)) (fma.f64 #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) (*.f64 #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 #s(literal -1/4 binary64))))) (*.f64 (*.f64 (*.f64 im im) (sqrt.f64 (neg.f64 re))) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) re))) re))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) (/.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 (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) im) (*.f64 re re)) #s(literal -1/4 binary64) im) re))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im (+.f64 im im))) #s(literal -1/32 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (*.f64 im im))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (*.f64 re re)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (sqrt.f64 re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im im))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im (+.f64 im im))) #s(literal -1/16 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (*.f64 re re)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (sqrt.f64 re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im im))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 7 binary64))) #s(literal -5/64 binary64) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re))) (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -5/128 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 7 binary64))) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re))) (*.f64 im im) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx im im)
#s(approx (* im im) (*.f64 im im))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im (+.f64 im im))) #s(literal -1/32 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal 1/4 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal 2 binary64)) #s(literal -1/32 binary64))) (*.f64 im im))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (*.f64 re re)))) (sqrt.f64 #s(literal 2 binary64))) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (sqrt.f64 re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 7/128 binary64)) (sqrt.f64 #s(literal 2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im im))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #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))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) (-.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 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (*.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal 2 binary64)))) #s(literal -2 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re im)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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) #s(literal 1 binary64))) (/.f64 re im)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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) #s(literal 1 binary64))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 im (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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)))) im))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (-.f64 (*.f64 (/.f64 re (*.f64 im im)) #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (+ (* im (/ im (* re re))) 4) (*.f64 (*.f64 im im) (-.f64 (/.f64 #s(literal 4 binary64) (*.f64 im im)) (/.f64 #s(literal -1 binary64) (*.f64 re re)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (fma.f64 (*.f64 (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im))
#s(approx (* (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) im) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (*.f64 im im))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) im)))
#s(approx (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)))
#s(approx (+ (* (/ (* im im) (* re re)) -1/4) 1) (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 re re)) (*.f64 im im))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (neg.f64 (*.f64 im (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal -3/16 binary64)) (*.f64 (*.f64 im im) im)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) (*.f64 im im)) (/.f64 #s(literal 3/8 binary64) im) (neg.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (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 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) re) (/.f64 (*.f64 re re) im)) im) #s(literal -2 binary64)) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) re) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im)) im) #s(literal -2 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (neg.f64 (fma.f64 (/.f64 re im) im im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 (-.f64 (*.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64)) re) im) #s(literal -1 binary64)) im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 (-.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 im (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) (*.f64 re re)) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) 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)))) im)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (neg.f64 (*.f64 im (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im)))) #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal -3/16 binary64)) (*.f64 (*.f64 im im) im)))))))
#s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (*.f64 (*.f64 (*.f64 (neg.f64 im) im) im) (-.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) re)))))

eval88.0ms (1.1%)

Memory
-17.6MiB live, 183.2MiB allocated; 41ms collecting garbage
Compiler

Compiled 9 711 to 4 306 computations (55.7% saved)

prune25.0ms (0.3%)

Memory
3.0MiB live, 55.3MiB allocated; 17ms collecting garbage
Pruning

16 alts after pruning (10 fresh and 6 done)

PrunedKeptTotal
New6437650
Fresh336
Picked235
Done033
Total64816664
Accuracy
99.9%
Counts
664 → 16
Alt Table
Click to see full alt table
StatusAccuracyProgram
43.8%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶54.9%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
▶11.6%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im)))) #s(literal 1/2 binary64))
12.6%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) im) re) im))) #s(literal 1/2 binary64))
12.1%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (/.f64 im re)) im))) #s(literal 1/2 binary64))
✓84.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
✓5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓11.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶10.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) re))))
✓54.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
9.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
✓29.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶27.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))))
▶20.7%
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
17.7%
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
Compiler

Compiled 519 to 505 computations (2.7% saved)

series236.0ms (2.9%)

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

6 calls:

TimeVariablePointExpression
88.0ms
im
@inf
((* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+ (* (- (/ re im) 2) re) (+ im im)) (- (/ re im) 2) (/ re im) re im 2 (+ im im) 1/2 (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (* (* 1/2 im) (/ 1 (sqrt re))) (* 1/2 im) (/ 1 (sqrt re)) 1 (sqrt 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 re) (+ (* im (/ im (* re re))) 4)) (- (* -4 re) (/ (* im im) re)) (* -4 re) -4 (/ (* 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)) (/ (exp (* (log im) 2)) re) (exp (* (log im) 2)) (* (log im) 2) (log im) (* (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)) (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (+ (* (* (/ im (* re re)) im) -1/4) 1) (* (/ im (* re re)) im) (/ im (* re re)) (* re re) -1/4)
87.0ms
im
@-inf
((* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+ (* (- (/ re im) 2) re) (+ im im)) (- (/ re im) 2) (/ re im) re im 2 (+ im im) 1/2 (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (* (* 1/2 im) (/ 1 (sqrt re))) (* 1/2 im) (/ 1 (sqrt re)) 1 (sqrt 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 re) (+ (* im (/ im (* re re))) 4)) (- (* -4 re) (/ (* im im) re)) (* -4 re) -4 (/ (* 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)) (/ (exp (* (log im) 2)) re) (exp (* (log im) 2)) (* (log im) 2) (log im) (* (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)) (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (+ (* (* (/ im (* re re)) im) -1/4) 1) (* (/ im (* re re)) im) (/ im (* re re)) (* re re) -1/4)
41.0ms
im
@0
((* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+ (* (- (/ re im) 2) re) (+ im im)) (- (/ re im) 2) (/ re im) re im 2 (+ im im) 1/2 (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (* (* 1/2 im) (/ 1 (sqrt re))) (* 1/2 im) (/ 1 (sqrt re)) 1 (sqrt 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 re) (+ (* im (/ im (* re re))) 4)) (- (* -4 re) (/ (* im im) re)) (* -4 re) -4 (/ (* 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)) (/ (exp (* (log im) 2)) re) (exp (* (log im) 2)) (* (log im) 2) (log im) (* (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)) (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (+ (* (* (/ im (* re re)) im) -1/4) 1) (* (/ im (* re re)) im) (/ im (* re re)) (* re re) -1/4)
6.0ms
re
@-inf
((* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+ (* (- (/ re im) 2) re) (+ im im)) (- (/ re im) 2) (/ re im) re im 2 (+ im im) 1/2 (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (* (* 1/2 im) (/ 1 (sqrt re))) (* 1/2 im) (/ 1 (sqrt re)) 1 (sqrt 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 re) (+ (* im (/ im (* re re))) 4)) (- (* -4 re) (/ (* im im) re)) (* -4 re) -4 (/ (* 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)) (/ (exp (* (log im) 2)) re) (exp (* (log im) 2)) (* (log im) 2) (log im) (* (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)) (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (+ (* (* (/ im (* re re)) im) -1/4) 1) (* (/ im (* re re)) im) (/ im (* re re)) (* re re) -1/4)
6.0ms
re
@0
((* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+ (* (- (/ re im) 2) re) (+ im im)) (- (/ re im) 2) (/ re im) re im 2 (+ im im) 1/2 (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (* (* 1/2 im) (/ 1 (sqrt re))) (* 1/2 im) (/ 1 (sqrt re)) 1 (sqrt 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 re) (+ (* im (/ im (* re re))) 4)) (- (* -4 re) (/ (* im im) re)) (* -4 re) -4 (/ (* 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)) (/ (exp (* (log im) 2)) re) (exp (* (log im) 2)) (* (log im) 2) (log im) (* (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)) (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (+ (* (* (/ im (* re re)) im) -1/4) 1) (* (/ im (* re re)) im) (/ im (* re re)) (* re re) -1/4)

rewrite697.0ms (8.6%)

Memory
46.7MiB live, 360.8MiB allocated; 27ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07476476
07925740
023555269
0168144611
Stop Event
1×iter-limit
1×iter-limit
1×iter-limit
1×node-limit
1×iter-limit
Counts
206 → 611
Calls
Call 1
Inputs
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(-.f64 (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(+.f64 im im)
#s(literal 1/2 binary64)
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
(*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))
(*.f64 #s(literal 1/2 binary64) im)
(/.f64 #s(literal 1 binary64) (sqrt.f64 re))
#s(literal 1 binary64)
(sqrt.f64 re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))
(-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))
(*.f64 #s(literal -4 binary64) re)
#s(literal -4 binary64)
(/.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 (exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) re))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) re))
(/.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) re)
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(*.f64 (log.f64 im) #s(literal 2 binary64))
(log.f64 im)
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im)))
(*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im))
(/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re)
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64))
(*.f64 (/.f64 im (*.f64 re re)) im)
(/.f64 im (*.f64 re re))
(*.f64 re re)
#s(literal -1/4 binary64)
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (- (/ re im) 2) #s(hole binary64 -2))
#s(approx (- (/ re im) 2) #s(hole binary64 (- (/ re im) 2)))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (* (* 1/2 im) (/ 1 (sqrt re))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 1 re))))))
#s(approx (/ 1 (sqrt re)) #s(hole binary64 (sqrt (/ 1 re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (/ (+ (* -4 (pow re 2)) (* -1 (pow im 2))) re)))
#s(approx (- (* -4 re) (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (- (* -4 re) (/ (* im im) re)) #s(hole binary64 (/ (- (* -4 (pow re 2)) (pow im 2)) re)))
#s(approx (* -4 re) #s(hole binary64 (* -4 re)))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ (exp (* (log im) 2)) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 3))))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) #s(hole binary64 (* -1/4 (/ (pow im 2) (pow re 3)))))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) #s(hole binary64 (/ (+ (* -1/4 (pow im 2)) (pow re 2)) (pow re 3))))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) #s(hole binary64 (* -1/4 (/ (pow im 2) (pow re 2)))))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) #s(hole binary64 (/ (+ (* -1/4 (pow im 2)) (pow re 2)) (pow re 2))))
#s(approx (* (/ im (* re re)) im) #s(hole binary64 (/ (pow im 2) (pow re 2))))
#s(approx (/ im (* re re)) #s(hole binary64 (/ im (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (+ (* -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/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/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (- (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (- (+ (* 2 (/ im (pow re 2))) (/ 1 im)) (* 2 (/ 1 re))))))
#s(approx (- (/ re im) 2) #s(hole binary64 (/ re im)))
#s(approx (- (/ re im) 2) #s(hole binary64 (* re (- (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* -4 re)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4))))
#s(approx (- (* -4 re) (/ (* im im) re)) #s(hole binary64 (* -4 re)))
#s(approx (- (* -4 re) (/ (* im im) re)) #s(hole binary64 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4))))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) #s(hole binary64 (/ 1 re)))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) #s(hole binary64 (/ (+ 1 (* -1/4 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) #s(hole binary64 1))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* 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 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (+ 2 (* -2 (/ im re))) re)) (/ 1 im)))))
#s(approx (- (/ re im) 2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 re)) (/ 1 im))))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (- (* -4 re) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) #s(hole binary64 (* -1 (/ (+ (* -1 (pow im 2)) (* 1/4 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) #s(hole binary64 (* -1 (/ (- (* 1/4 (/ (pow im 2) (pow re 2))) 1) re))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* -2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* -2 re) (* 2 im))) (pow re 2)) im)))
#s(approx (- (/ re im) 2) #s(hole binary64 (/ (+ re (* -2 im)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* 1/2 im) #s(hole binary64 (* 1/2 im)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (+ (* -4 re) (* -1 (/ (pow im 2) re)))))
#s(approx (- (* -4 re) (/ (* im im) re)) #s(hole binary64 (+ (* -4 re) (* -1 (/ (pow im 2) re)))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (exp (* (log im) 2)) #s(hole binary64 (pow im 2)))
#s(approx (* (log im) 2) #s(hole binary64 (* 2 (log im))))
#s(approx (log im) #s(hole binary64 (log im)))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) #s(hole binary64 (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) #s(hole binary64 (* (pow im 2) (- (* -4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (- (* -4 re) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (- (* -4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* (log im) 2) #s(hole binary64 (* -2 (log (/ 1 im)))))
#s(approx (log im) #s(hole binary64 (* -1 (log (/ 1 im)))))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) #s(hole binary64 (* (pow im 4) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) #s(hole binary64 (* (pow im 2) (- (/ 1 (* (pow im 2) re)) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) #s(hole binary64 (* (pow im 2) (- (/ 1 (pow im 2)) (* 1/4 (/ 1 (pow re 2)))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) im)))))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* 2 (/ re im)) 2)))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* -2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (log im) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 im)))))))
#s(approx (log im) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 im))))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
(/.f64 (-.f64 (*.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im)) (*.f64 im im)) (-.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 (+.f64 im im) (+.f64 im im))) (-.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))
(/.f64 (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))) (-.f64 (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re)))
(/.f64 (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re)) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re)))) (fma.f64 im #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) #s(literal 3 binary64)) (*.f64 (*.f64 im im) im)) (fma.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) (-.f64 (*.f64 im im) (*.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (pow.f64 (+.f64 im im) #s(literal 3 binary64))) (fma.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im)))))
(/.f64 (+.f64 (pow.f64 (+.f64 im im) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 (+.f64 im im) (+.f64 im im) (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re)))))
(/.f64 (-.f64 (pow.f64 (+.f64 im im) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re)) #s(literal 3 binary64))) (fma.f64 (+.f64 im im) (+.f64 im im) (fma.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re)) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re)) (*.f64 (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re))))))
(fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))
(fma.f64 im #s(literal 2 binary64) (*.f64 (neg.f64 (neg.f64 re)) (-.f64 (/.f64 re im) #s(literal 2 binary64))))
(fma.f64 im #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(fma.f64 re (-.f64 (/.f64 re im) #s(literal 2 binary64)) (+.f64 im im))
(fma.f64 #s(literal 2 binary64) im (*.f64 (neg.f64 (neg.f64 re)) (-.f64 (/.f64 re im) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) im (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(-.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (neg.f64 im) #s(literal 2 binary64)))
(-.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal -2 binary64) im))
(-.f64 (+.f64 im im) (*.f64 (neg.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64))) re))
(-.f64 (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re)))
(+.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)
(+.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re) (+.f64 im im))
(+.f64 (+.f64 im im) (*.f64 (neg.f64 (neg.f64 re)) (-.f64 (/.f64 re im) #s(literal 2 binary64))))
(+.f64 (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re))
(+.f64 im (-.f64 im (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (neg.f64 re))))
(+.f64 im (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re im))
(/.f64 (-.f64 (*.f64 re (/.f64 re (*.f64 im im))) #s(literal 4 binary64)) (+.f64 (/.f64 re im) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 re (/.f64 re (*.f64 im im)) (+.f64 #s(literal 4 binary64) (/.f64 (+.f64 re re) im))))
(-.f64 (/.f64 re im) #s(literal 2 binary64))
(*.f64 (/.f64 #s(literal 1 binary64) im) re)
(*.f64 re (/.f64 #s(literal 1 binary64) im))
(/.f64 (*.f64 #s(literal 1 binary64) re) im)
(/.f64 (*.f64 re #s(literal 1 binary64)) im)
(/.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 re im)
(neg.f64 (/.f64 re (neg.f64 im)))
(neg.f64 (/.f64 (neg.f64 re) im))
re
im
#s(literal 2 binary64)
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im)) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(+.f64 im im)
#s(literal 1/2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)) im)
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) im))
(*.f64 (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64))
(*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))
(*.f64 #s(literal 1/2 binary64) (/.f64 im (sqrt.f64 re)))
(*.f64 im (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) im) #s(literal -1 binary64)) (neg.f64 (sqrt.f64 re)))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) im)) (neg.f64 (sqrt.f64 re)))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) im)) (neg.f64 (sqrt.f64 re)))
(/.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 re))
(*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) im)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 1/2 binary64) im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) im))
(*.f64 #s(literal 1/2 binary64) im)
(*.f64 im #s(literal 1/2 binary64))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1/2 binary64)) (pow.f64 (sqrt.f64 re) #s(literal -1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1 binary64))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))
(pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 re) #s(literal -1 binary64))
(pow.f64 re #s(literal -1/2 binary64))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.f64 re)))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 re)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (sqrt.f64 re))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 re))
(neg.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 re)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) re))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 re)) #s(literal -1 binary64)))
#s(literal 1 binary64)
(*.f64 (pow.f64 re #s(literal 1/4 binary64)) (pow.f64 re #s(literal 1/4 binary64)))
(pow.f64 re #s(literal 1/2 binary64))
(sqrt.f64 re)
(exp.f64 (*.f64 (log.f64 re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 #s(literal -4 binary64) re)) (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 (neg.f64 im) (/.f64 im re)))) (-.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 (neg.f64 im) (/.f64 im re))))
(/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 #s(literal -4 binary64) re))) (-.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 #s(literal -4 binary64) re)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 #s(literal -4 binary64) re)) (*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re))) (fma.f64 #s(literal -4 binary64) re (/.f64 (*.f64 im im) re)))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal -4 binary64) re) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 #s(literal -4 binary64) re) (-.f64 (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 (neg.f64 im) (/.f64 im re))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal -4 binary64) re) #s(literal 3 binary64))) (fma.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 (neg.f64 im) (/.f64 im re)) (-.f64 (*.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 #s(literal -4 binary64) re)) (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 #s(literal -4 binary64) re)))))
(/.f64 (-.f64 (pow.f64 (*.f64 #s(literal -4 binary64) re) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 #s(literal -4 binary64) re) (fma.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re) (*.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))))
(fma.f64 (neg.f64 im) (/.f64 im re) (*.f64 #s(literal -4 binary64) re))
(fma.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64) (*.f64 #s(literal -4 binary64) re))
(fma.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re) (*.f64 #s(literal -4 binary64) re))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re) (*.f64 #s(literal -4 binary64) re))
(fma.f64 #s(literal -4 binary64) re (*.f64 (neg.f64 im) (/.f64 im re)))
(fma.f64 im (*.f64 (/.f64 im re) #s(literal -1 binary64)) (*.f64 #s(literal -4 binary64) re))
(fma.f64 im (neg.f64 (/.f64 im re)) (*.f64 #s(literal -4 binary64) re))
(fma.f64 re #s(literal -4 binary64) (*.f64 (neg.f64 im) (/.f64 im re)))
(-.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal -1 binary64)))
(-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))
(-.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 (neg.f64 re) #s(literal -4 binary64)))
(-.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 #s(literal 4 binary64) re))
(+.f64 (*.f64 #s(literal -4 binary64) re) (*.f64 (neg.f64 im) (/.f64 im re)))
(+.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 #s(literal -4 binary64) re))
(*.f64 #s(literal -4 binary64) re)
(*.f64 re #s(literal -4 binary64))
#s(literal -4 binary64)
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (fabs.f64 im)) (fabs.f64 im))
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (neg.f64 im)) (neg.f64 im))
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) im)
(*.f64 (/.f64 (*.f64 re re) re) (*.f64 (/.f64 im (*.f64 re re)) im))
(*.f64 (fabs.f64 im) (*.f64 (fabs.f64 im) (/.f64 #s(literal 1 binary64) re)))
(*.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) re))
(*.f64 (neg.f64 im) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)))
(*.f64 (neg.f64 im) (/.f64 (neg.f64 im) re))
(*.f64 (/.f64 im re) im)
(*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 (*.f64 re re) re))
(*.f64 (/.f64 (*.f64 im im) re) #s(literal 1 binary64))
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))
(*.f64 #s(literal -1 binary64) (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im))
(*.f64 (*.f64 re re) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 im im) re))
(*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))
(*.f64 im (/.f64 im re))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (neg.f64 im) im)) (neg.f64 re))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) im) im) (*.f64 re re)) re)
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) im) im) re) (*.f64 re re))
(/.f64 (*.f64 (*.f64 (*.f64 (neg.f64 im) im) re) re) (*.f64 (*.f64 (neg.f64 re) re) re))
(/.f64 (*.f64 (neg.f64 im) im) (neg.f64 re))
(/.f64 (*.f64 (*.f64 (*.f64 re re) im) im) (*.f64 (*.f64 re re) re))
(/.f64 (*.f64 im im) (neg.f64 (neg.f64 re)))
(/.f64 (*.f64 im im) re)
(neg.f64 (*.f64 (neg.f64 im) (/.f64 im re)))
(fma.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re)))
(fma.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re)) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re)))
(+.f64 (/.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) re) (/.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) re))
(*.f64 (*.f64 #s(literal 1 binary64) (fabs.f64 im)) (fabs.f64 im))
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (*.f64 im im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 im im))
(*.f64 im im)
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 im))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -2 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))) (-.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))))
(neg.f64 (*.f64 (neg.f64 im) im))
(fma.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) (*.f64 (sinh.f64 (log.f64 im)) (cosh.f64 (log.f64 im))) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(+.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))
(+.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (fabs.f64 im)) (fabs.f64 im))
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (neg.f64 im)) (neg.f64 im))
(*.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) im)
(*.f64 (/.f64 (*.f64 re re) re) (*.f64 (/.f64 im (*.f64 re re)) im))
(*.f64 (fabs.f64 im) (*.f64 (fabs.f64 im) (/.f64 #s(literal 1 binary64) re)))
(*.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) re))
(*.f64 (neg.f64 im) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)))
(*.f64 (neg.f64 im) (/.f64 (neg.f64 im) re))
(*.f64 (/.f64 im re) im)
(*.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 (*.f64 re re) re))
(*.f64 (/.f64 (*.f64 im im) re) #s(literal 1 binary64))
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))
(*.f64 #s(literal -1 binary64) (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im))
(*.f64 (*.f64 re re) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))))
(*.f64 #s(literal 1 binary64) (/.f64 (*.f64 im im) re))
(*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))
(*.f64 im (/.f64 im re))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (neg.f64 im) im)) (neg.f64 re))
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) im) im) (*.f64 re re)) re)
(/.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) im) im) re) (*.f64 re re))
(/.f64 (*.f64 (*.f64 (*.f64 (neg.f64 im) im) re) re) (*.f64 (*.f64 (neg.f64 re) re) re))
(/.f64 (*.f64 (neg.f64 im) im) (neg.f64 re))
(/.f64 (*.f64 (*.f64 (*.f64 re re) im) im) (*.f64 (*.f64 re re) re))
(/.f64 (*.f64 im im) (neg.f64 (neg.f64 re)))
(/.f64 (*.f64 im im) re)
(neg.f64 (*.f64 (neg.f64 im) (/.f64 im re)))
(fma.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re)))
(fma.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re)) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) re)))
(+.f64 (/.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) re) (/.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) re))
(*.f64 (*.f64 #s(literal 1 binary64) (fabs.f64 im)) (fabs.f64 im))
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (*.f64 im im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 im im))
(*.f64 im im)
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 im))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) im) #s(literal -2 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))) (-.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))))
(neg.f64 (*.f64 (neg.f64 im) im))
(fma.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) (*.f64 (sinh.f64 (log.f64 im)) (cosh.f64 (log.f64 im))) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(+.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))
(+.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)))
(*.f64 (neg.f64 (log.f64 im)) #s(literal -2 binary64))
(*.f64 (log.f64 im) #s(literal 2 binary64))
(*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 im)))
(*.f64 #s(literal 2 binary64) (log.f64 im))
(/.f64 (-.f64 (*.f64 (log.f64 im) (log.f64 im)) (*.f64 (log.f64 im) (log.f64 im))) (-.f64 (log.f64 im) (log.f64 im)))
(/.f64 (+.f64 (pow.f64 (log.f64 im) #s(literal 3 binary64)) (pow.f64 (log.f64 im) #s(literal 3 binary64))) (fma.f64 (log.f64 im) (log.f64 im) (-.f64 (*.f64 (log.f64 im) (log.f64 im)) (*.f64 (log.f64 im) (log.f64 im)))))
(neg.f64 (*.f64 #s(literal -2 binary64) (log.f64 im)))
(neg.f64 (*.f64 (log.f64 im) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 im))
(fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)) (log.f64 im))
(+.f64 (log.f64 (fabs.f64 im)) (log.f64 (fabs.f64 im)))
(+.f64 (log.f64 (neg.f64 im)) (log.f64 (neg.f64 im)))
(+.f64 (log.f64 im) (log.f64 im))
(log.f64 (*.f64 im im))
(*.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))
(neg.f64 (*.f64 (log.f64 im) #s(literal -1 binary64)))
(neg.f64 (neg.f64 (log.f64 im)))
(log.f64 im)
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) 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 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im))))
(*.f64 (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im))
(*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (fabs.f64 im)) (fabs.f64 im))
(*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (neg.f64 im)) (neg.f64 im))
(*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im)
(*.f64 (fabs.f64 im) (*.f64 (fabs.f64 im) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re)))
(*.f64 (neg.f64 im) (*.f64 (neg.f64 im) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re)))
(*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (*.f64 im im))
(*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) (/.f64 (*.f64 im im) re))
(*.f64 (*.f64 im im) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re))
(*.f64 im (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im))
(/.f64 (*.f64 (*.f64 im im) (neg.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)))) (neg.f64 re))
(/.f64 (*.f64 (neg.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64))) (*.f64 im im)) (neg.f64 re))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im)) (*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (/.f64 (*.f64 im im) re)))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) #s(literal 3 binary64)) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (-.f64 (*.f64 (/.f64 (*.f64 im im) re) (/.f64 (*.f64 im im) re)) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (/.f64 (*.f64 im im) re)))))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) im) im)) (neg.f64 re))
(/.f64 (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) im) im) re)
(fma.f64 (*.f64 (*.f64 im im) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re)))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) re))
(fma.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (fabs.f64 im)) (fabs.f64 im) (/.f64 (*.f64 im im) re))
(fma.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (neg.f64 im)) (neg.f64 im) (/.f64 (*.f64 im im) re))
(fma.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im (/.f64 (*.f64 im im) re))
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (fabs.f64 im)) (fabs.f64 im) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) (neg.f64 im)) (neg.f64 im) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) im) im (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (/.f64 (*.f64 re re) re) (*.f64 (/.f64 im (*.f64 re re)) im) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (fabs.f64 im) (*.f64 (fabs.f64 im) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)))) (/.f64 (*.f64 im im) re))
(fma.f64 (fabs.f64 im) (*.f64 (fabs.f64 im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) re) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (neg.f64 im) (*.f64 (neg.f64 im) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)))) (/.f64 (*.f64 im im) re))
(fma.f64 (neg.f64 im) (*.f64 (neg.f64 im) (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (neg.f64 im) (/.f64 (neg.f64 im) re) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re)))
(fma.f64 (/.f64 im re) im (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 im im) re))
(fma.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 (*.f64 im im) re))
(fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (/.f64 (*.f64 im im) re))
(fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (*.f64 im im) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (/.f64 (*.f64 im im) re))
(fma.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 #s(literal -1 binary64) (*.f64 (neg.f64 im) (/.f64 im re)) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 (*.f64 re re) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) (*.f64 im im)) (/.f64 (*.f64 im im) re))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 im im) re) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 im (*.f64 im (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)))) (/.f64 (*.f64 im im) re))
(fma.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(fma.f64 im (/.f64 im re) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (*.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal 1 binary64) re)))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (*.f64 (neg.f64 (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
(+.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))) (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64))))
(+.f64 (*.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re)) (*.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re)))
(+.f64 (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im) (/.f64 (*.f64 im im) re))
(+.f64 (/.f64 (*.f64 im im) re) (*.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
(/.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) re) (*.f64 re re))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)))) (/.f64 #s(literal 1 binary64) (*.f64 re re))) (-.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1 binary64) re)))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))) (-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) #s(literal 3 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1 binary64) re)))))
(/.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1 binary64) re) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (-.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)))))))
(/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) (neg.f64 re) (neg.f64 re)) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) re (*.f64 re #s(literal 1 binary64))) (*.f64 re re))
(/.f64 (+.f64 (neg.f64 re) (*.f64 (neg.f64 re) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im))) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 #s(literal 1 binary64) re (*.f64 re (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im))) (*.f64 re re))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (neg.f64 re) (*.f64 (*.f64 (*.f64 re re) re) #s(literal -1 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (neg.f64 re)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) re (*.f64 (*.f64 (*.f64 re re) re) #s(literal 1 binary64))) (*.f64 (*.f64 (*.f64 re re) re) re))
(/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 re re) re) (*.f64 (neg.f64 re) (*.f64 (*.f64 im im) #s(literal -1/4 binary64)))) (*.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re) (*.f64 re (*.f64 (*.f64 im im) #s(literal -1/4 binary64)))) (*.f64 re (*.f64 (*.f64 re re) re)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)))) (neg.f64 (neg.f64 re)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)))) (neg.f64 (*.f64 (*.f64 (neg.f64 re) re) re)))
(/.f64 (neg.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (neg.f64 re) re) re))
(/.f64 (neg.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64))) (neg.f64 re))
(/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (*.f64 re re) re))
(/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re)
(neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) (neg.f64 re)))
(neg.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (*.f64 (neg.f64 re) re) re)))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64))) re))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 re re) re)))
(fma.f64 (/.f64 (fabs.f64 re) (*.f64 re re)) (/.f64 (fabs.f64 re) re) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 (neg.f64 re) (*.f64 re re)) (/.f64 (neg.f64 re) re) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 re (*.f64 re re)) (/.f64 re re) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 (fabs.f64 re) re) (/.f64 (fabs.f64 re) (*.f64 re re)) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 (neg.f64 re) re) (/.f64 (neg.f64 re) (*.f64 re re)) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 re re) (/.f64 re (*.f64 re re)) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 #s(literal -1/4 binary64) re) (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (*.f64 re re)) (/.f64 (*.f64 im im) re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (fabs.f64 re) (/.f64 (fabs.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 (/.f64 im (*.f64 re re)) (/.f64 (*.f64 #s(literal -1/4 binary64) im) re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) (/.f64 #s(literal -1/4 binary64) re) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) (*.f64 re re)) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) re))
(fma.f64 #s(literal -1/4 binary64) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1 binary64) re))
(fma.f64 (neg.f64 re) (/.f64 (neg.f64 re) (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(fma.f64 re (/.f64 re (*.f64 (*.f64 re re) re)) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(-.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (neg.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re)))) #s(literal -1/4 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 (*.f64 re re) re)))
(+.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1 binary64) re))
(+.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
(/.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (fabs.f64 re)) (fabs.f64 re))
(/.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (neg.f64 re)) (neg.f64 re))
(/.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) re) re)
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im)))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) #s(literal 3 binary64)) #s(literal 1 binary64)) (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) #s(literal 1 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im)) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im)))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im)))))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 re re) (*.f64 (*.f64 re re) (*.f64 re re))) (*.f64 (*.f64 re re) (*.f64 re re)))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)))) (*.f64 re re))
(/.f64 (neg.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 (neg.f64 re) re))
(/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 re re))
(neg.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (neg.f64 re) re)))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re))) (*.f64 re re)))
(fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (fabs.f64 re)) (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (neg.f64 re)) (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) re) (/.f64 (*.f64 im im) re) #s(literal 1 binary64))
(fma.f64 (*.f64 #s(literal -1/4 binary64) im) (/.f64 im (*.f64 re re)) #s(literal 1 binary64))
(fma.f64 (/.f64 im (*.f64 re re)) (*.f64 #s(literal -1/4 binary64) im) #s(literal 1 binary64))
(fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (/.f64 #s(literal -1/4 binary64) (neg.f64 re)) #s(literal 1 binary64))
(fma.f64 (/.f64 (*.f64 im im) re) (/.f64 #s(literal -1/4 binary64) re) #s(literal 1 binary64))
(fma.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 re re)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal 1 binary64))
(fma.f64 im (*.f64 (/.f64 im (*.f64 re re)) #s(literal -1/4 binary64)) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (/.f64 im (*.f64 re re))) (*.f64 #s(literal -1/4 binary64) im)))
(-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (neg.f64 im) (/.f64 im (*.f64 re re))) #s(literal -1/4 binary64)))
(-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im))
(+.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (neg.f64 im) (/.f64 im (*.f64 re re))) #s(literal 1/4 binary64)))
(+.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im))
(*.f64 (/.f64 (fabs.f64 im) (fabs.f64 re)) (/.f64 (fabs.f64 im) (fabs.f64 re)))
(*.f64 (/.f64 (fabs.f64 im) (neg.f64 re)) (/.f64 (fabs.f64 im) (neg.f64 re)))
(*.f64 (/.f64 (neg.f64 im) (fabs.f64 re)) (/.f64 (neg.f64 im) (fabs.f64 re)))
(*.f64 (/.f64 im (fabs.f64 re)) (/.f64 im (fabs.f64 re)))
(*.f64 (/.f64 im (neg.f64 re)) (/.f64 im (neg.f64 re)))
(*.f64 (/.f64 (fabs.f64 im) re) (/.f64 (fabs.f64 im) re))
(*.f64 (/.f64 (neg.f64 im) re) (/.f64 (neg.f64 im) re))
(*.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) (*.f64 re re)))
(*.f64 (neg.f64 im) (/.f64 (neg.f64 im) (*.f64 re re)))
(*.f64 (/.f64 im re) (/.f64 im re))
(*.f64 (/.f64 im (*.f64 re re)) im)
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 re re)))
(*.f64 #s(literal -1 binary64) (*.f64 (neg.f64 im) (/.f64 im (*.f64 re re))))
(*.f64 im (/.f64 im (*.f64 re re)))
(/.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) (fabs.f64 re))
(/.f64 (*.f64 (neg.f64 im) im) (*.f64 (neg.f64 re) re))
(/.f64 (*.f64 (neg.f64 im) (/.f64 im re)) (neg.f64 re))
(/.f64 (/.f64 (*.f64 im im) re) re)
(/.f64 (*.f64 im im) (*.f64 re re))
(neg.f64 (*.f64 (neg.f64 im) (/.f64 im (*.f64 re re))))
(+.f64 (/.f64 (/.f64 (fma.f64 im im (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (*.f64 re re)) (/.f64 (/.f64 (-.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 im im))) #s(literal 2 binary64)) (*.f64 re re)))
(/.f64 (/.f64 im (fabs.f64 re)) (fabs.f64 re))
(/.f64 (/.f64 im (neg.f64 re)) (neg.f64 re))
(/.f64 (neg.f64 (/.f64 im re)) (neg.f64 re))
(/.f64 (neg.f64 (neg.f64 im)) (*.f64 re re))
(/.f64 (neg.f64 im) (*.f64 (neg.f64 re) re))
(/.f64 (/.f64 im re) re)
(/.f64 im (*.f64 re re))
(neg.f64 (/.f64 im (*.f64 (neg.f64 re) re)))
(neg.f64 (/.f64 (neg.f64 im) (*.f64 re re)))
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)))
(*.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 re re)
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 re #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 re) re))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
#s(literal -1/4 binary64)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 re #s(literal -1/4 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 re #s(literal 1/16 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) #s(literal 1/32 binary64)) (sqrt.f64 #s(literal 2 binary64))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 re #s(literal -1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 re #s(literal 1/8 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) #s(literal 1/16 binary64)) (sqrt.f64 #s(literal 2 binary64))) re (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))))) re (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) (-.f64 re im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (*.f64 (*.f64 im im) im)) re (-.f64 (/.f64 re im) #s(literal 2 binary64))) re im) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (+.f64 im im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 #s(literal -2 binary64) (-.f64 re im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (- (/ re im) 2) #s(literal -2 binary64))
#s(approx (- (/ re im) 2) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx re re)
#s(approx (* (* 1/2 im) (/ 1 (sqrt re))) (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64)))
#s(approx (/ 1 (sqrt re)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))
#s(approx (sqrt re) (sqrt.f64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 re #s(literal -1/4 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 re #s(literal 1/16 binary64)) (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) #s(literal 1/32 binary64)) (sqrt.f64 #s(literal 2 binary64))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal -1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (neg.f64 im) (/.f64 im re)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (/.f64 (-.f64 (*.f64 (*.f64 re re) #s(literal -4 binary64)) (*.f64 im im)) re))
#s(approx (- (* -4 re) (/ (* im im) re)) (*.f64 (neg.f64 im) (/.f64 im re)))
#s(approx (- (* -4 re) (/ (* im im) re)) (/.f64 (-.f64 (*.f64 (*.f64 re re) #s(literal -4 binary64)) (*.f64 im im)) re))
#s(approx (* -4 re) (*.f64 #s(literal -4 binary64) re))
#s(approx (/ (exp (* (log im) 2)) re) (/.f64 (*.f64 im im) re))
#s(approx (/ (exp (* (log im) 2)) re) (/.f64 (*.f64 im im) re))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/.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 (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (*.f64 (*.f64 im im) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)))
#s(approx (* (/ im (* re re)) im) (*.f64 (/.f64 im (*.f64 re re)) im))
#s(approx (/ im (* re re)) (/.f64 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 im (sqrt.f64 re)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/32 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/32 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)) #s(literal 1/64 binary64)) (pow.f64 re #s(literal -9/2 binary64)) (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/32 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (fma.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 4 binary64)) #s(literal -1/1024 binary64) (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)) #s(literal 1/64 binary64)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 im (sqrt.f64 re)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (/.f64 im (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)) #s(literal 1/32 binary64)) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (/.f64 im (sqrt.f64 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 4 binary64)) #s(literal -1/512 binary64) (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)) #s(literal 1/32 binary64))) (/.f64 im (sqrt.f64 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.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)) (/.f64 (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) (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)) (/.f64 (+.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 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)))) re))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (/.f64 re im) re))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 2 binary64) re)) (*.f64 re re)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (*.f64 (-.f64 (fma.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)) (/.f64 #s(literal 2 binary64) re)) re) re))
#s(approx (- (/ re im) 2) (/.f64 re im))
#s(approx (- (/ re im) 2) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/32 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/32 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)) #s(literal 1/64 binary64)) (pow.f64 re #s(literal -9/2 binary64)) (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/32 binary64)) (*.f64 (*.f64 im im) (+.f64 im im)) (fma.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 4 binary64)) #s(literal -1/1024 binary64) (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 2 binary64)) #s(literal 1/64 binary64)))))))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 #s(literal -4 binary64) re))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (-.f64 (*.f64 (neg.f64 im) (/.f64 im (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (- (* -4 re) (/ (* im im) re)) (*.f64 #s(literal -4 binary64) re))
#s(approx (- (* -4 re) (/ (* im im) re)) (*.f64 (-.f64 (*.f64 (neg.f64 im) (/.f64 im (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/.f64 (*.f64 im im) re))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/.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 (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (/.f64 #s(literal 1 binary64) re))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -1 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 1 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/8 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) im))) (neg.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (neg.f64 re)))) (*.f64 (*.f64 (neg.f64 re) re) re))) (neg.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 1 binary64) (neg.f64 (/.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 1/64 binary64))) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (neg.f64 re)))) (*.f64 (*.f64 re re) re)))) (neg.f64 re)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -2 binary64)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) im) (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/4 binary64)))) (neg.f64 re)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 2 binary64) (/.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (neg.f64 re)))) (*.f64 (*.f64 (neg.f64 re) re) re))) (neg.f64 re)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 1/32 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (neg.f64 re)))) (*.f64 (*.f64 re re) re)))) (neg.f64 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 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)) (neg.f64 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64))) (neg.f64 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (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 (*.f64 re re)) im))) #s(literal 4 binary64)) (neg.f64 re)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (*.f64 (+.f64 (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal 2 binary64)) (neg.f64 re)) (/.f64 #s(literal 1 binary64) im)) re) re))
#s(approx (- (/ re im) 2) (*.f64 (-.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (neg.f64 re)))
#s(approx (sqrt re) (neg.f64 (neg.f64 (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -1 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 1 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/8 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) im))) (neg.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 im im) (*.f64 im im))) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (neg.f64 re)))) (*.f64 (*.f64 (neg.f64 re) re) re))) (neg.f64 re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (sqrt.f64 (*.f64 (/.f64 #s(literal 1 binary64) re) #s(literal -1 binary64))) #s(literal 1 binary64) (neg.f64 (/.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 1/64 binary64))) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (neg.f64 re)))) (*.f64 (*.f64 re re) re)))) (neg.f64 re)))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)) (neg.f64 re)))
#s(approx (- (* -4 re) (/ (* im im) re)) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) im #s(literal 4 binary64)) (neg.f64 re)))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (/.f64 (fma.f64 im im (neg.f64 (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal 1/4 binary64)))) re))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 im (*.f64 re re))) im) #s(literal 1 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64)) im) im) im (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) #s(literal 2 binary64))) (sqrt.f64 re)) im) im (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 re re)))) #s(literal 2 binary64)) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) #s(literal 2 binary64)) (sqrt.f64 re)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/8 binary64)) im) im) im (/.f64 im (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 im (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) #s(literal 2 binary64))) (sqrt.f64 re)) im) im (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/8 binary64))) (*.f64 im im)) (/.f64 im (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 re re)))) #s(literal 2 binary64)) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) #s(literal 2 binary64)) (sqrt.f64 re)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/8 binary64))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64)) im) im (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) im) im (/.f64 #s(literal 1 binary64) re)) im) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 (*.f64 (*.f64 im im) (pow.f64 re #s(literal -7 binary64))) #s(literal -5/64 binary64) (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/8 binary64))) im) im (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re (fma.f64 #s(literal -2 binary64) im re)) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (*.f64 #s(literal -2 binary64) (-.f64 re im)) im (*.f64 re re)) im))
#s(approx (- (/ re im) 2) (/.f64 (fma.f64 #s(literal -2 binary64) im re) im))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (* 1/2 im) (*.f64 #s(literal 1/2 binary64) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64)) im) im) im (*.f64 (/.f64 im (sqrt.f64 re)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) #s(literal 2 binary64))) (sqrt.f64 re)) im) im (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 (*.f64 (*.f64 (fma.f64 (pow.f64 re #s(literal -7 binary64)) #s(literal 5/128 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) (*.f64 re re)))) #s(literal 2 binary64)) (*.f64 im im)) (sqrt.f64 re)) (*.f64 (*.f64 (-.f64 (*.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/128 binary64) (pow.f64 re #s(literal 5 binary64)))) #s(literal 2 binary64)) (sqrt.f64 re)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -5/2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) im))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))
#s(approx (- (* -4 re) (/ (* im im) re)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re)))
#s(approx (exp (* (log im) 2)) (*.f64 im im))
#s(approx (exp (* (log im) 2)) (*.f64 im im))
#s(approx (* (log im) 2) (*.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (log im) (log.f64 im))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (*.f64 (*.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re) im) im))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (/.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/8 binary64)) (fma.f64 #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) (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 (/.f64 (fma.f64 (/.f64 re im) re (*.f64 #s(literal -2 binary64) re)) 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) (/.f64 (fma.f64 (/.f64 re im) re (*.f64 #s(literal -2 binary64) re)) im)) #s(literal 2 binary64)) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (/.f64 (fma.f64 (/.f64 re im) re (*.f64 #s(literal -2 binary64) re)) im) #s(literal 2 binary64)) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (*.f64 (*.f64 im im) im))) re) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 re (*.f64 im im)) #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) re)) im) im))
#s(approx (- (* -4 re) (/ (* im im) re)) (*.f64 (*.f64 (-.f64 (*.f64 (/.f64 re (*.f64 im im)) #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) re)) im) im))
#s(approx (* (log im) 2) (*.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (log im) (log.f64 im))
#s(approx (* (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (* im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im re) im)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 im im) (*.f64 im im))))
#s(approx (/ (+ (* (* (/ im (* re re)) im) -1/4) 1) re) (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im re) im)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) im) im))
#s(approx (+ (* (* (/ im (* re re)) im) -1/4) 1) (*.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (/.f64 #s(literal 1/4 binary64) (*.f64 re re))) im) im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/4 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (sqrt.f64 #s(literal -2 binary64))) #s(literal -1/8 binary64) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/4 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) (*.f64 re re)) #s(literal -3/16 binary64)) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (sqrt.f64 #s(literal -2 binary64))) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) (*.f64 re re)) #s(literal -3/8 binary64)) (*.f64 (*.f64 im im) im)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) re) (*.f64 (/.f64 re im) re)) im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (-.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) re) (/.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(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (-.f64 (/.f64 (+.f64 re re) im) #s(literal 2 binary64))))
#s(approx (+ (* (- (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (-.f64 (/.f64 (fma.f64 (/.f64 re im) re (*.f64 #s(literal -2 binary64) re)) (neg.f64 im)) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/4 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal -5/2 binary64)) re) re) (sqrt.f64 #s(literal -2 binary64))) #s(literal -1/8 binary64) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/4 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 im im) im))) (sqrt.f64 #s(literal -2 binary64))) re) #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) (*.f64 re re)) #s(literal -3/16 binary64)) (*.f64 (*.f64 im im) im))))))
#s(approx (* (log im) 2) (fma.f64 (neg.f64 (log.f64 (neg.f64 im))) #s(literal -2 binary64) #s(literal 0 binary64)))
#s(approx (log im) (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64))))

eval64.0ms (0.8%)

Memory
-16.9MiB live, 124.0MiB allocated; 25ms collecting garbage
Compiler

Compiled 7 068 to 3 186 computations (54.9% saved)

prune24.0ms (0.3%)

Memory
27.3MiB live, 70.7MiB allocated; 8ms collecting garbage
Pruning

18 alts after pruning (9 fresh and 9 done)

PrunedKeptTotal
New5125517
Fresh145
Picked145
Done156
Total51518533
Accuracy
99.9%
Counts
533 → 18
Alt Table
Click to see full alt table
StatusAccuracyProgram
43.8%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓54.9%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
11.7%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) im) im) re))) #s(literal 1/2 binary64))
✓11.6%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im)))) #s(literal 1/2 binary64))
12.1%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (/.f64 im re)) im))) #s(literal 1/2 binary64))
27.3%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))) #s(literal 1/2 binary64))
✓84.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
✓57.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓11.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
✓10.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) re))))
✓54.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
9.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
✓29.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
20.8%
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (/.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 re)))
✓20.7%
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
20.8%
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
17.7%
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
0.9%
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -1 binary64)))
Compiler

Compiled 746 to 541 computations (27.5% saved)

regimes70.0ms (0.9%)

Memory
17.0MiB live, 155.9MiB allocated; 24ms collecting garbage
Counts
31 → 2
Calls
Call 1
Inputs
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 re)) #s(literal -1 binary64)))
(*.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))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (/.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 re)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))))
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(approx (* (/ (+ (* (/ (* im im) (* re re)) -1/4) 1) re) im) (/.f64 im re)) im))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg re) (+ (* im (/ im (* re re))) 4)) (-.f64 (*.f64 #s(literal -4 binary64) re) (/.f64 (*.f64 im im) re))))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 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 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) re))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) im) im))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (*.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) im) re) im))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 im (*.f64 re re))) im #s(literal 1 binary64)) 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)) (/.f64 (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im)) re))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (fma.f64 (*.f64 (/.f64 im (*.f64 re re)) im) #s(literal -1/4 binary64) #s(literal 1 binary64)) re) (*.f64 im im)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 (+.f64 (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)) #s(literal 1 binary64)) re) (*.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.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 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (*.f64 (*.f64 (*.f64 im im) im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 re re))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) re) re)) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (fma.f64 (*.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im)))))
Outputs
#s(approx (* (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) 1/2) (/.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 re)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
Calls

7 calls:

17.0ms
im
12.0ms
re
9.0ms
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
8.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
8.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Results
AccuracySegmentsBranch
84.2%1(*.f64 im im)
94.4%3(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
94.4%3(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
94.4%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
94.4%2(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
93.5%2re
84.2%1im
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes50.0ms (0.6%)

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

7 calls:

17.0ms
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
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))))
5.0ms
re
5.0ms
im
5.0ms
(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
Results
AccuracySegmentsBranch
70.0%3(*.f64 im im)
73.2%4im
79.9%4(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
79.9%4(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
84.8%4re
79.9%3(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
79.9%3(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes9.0ms (0.1%)

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

1 calls:

8.0ms
re
Results
AccuracySegmentsBranch
81.7%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes2.0ms (0%)

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

1 calls:

2.0ms
re
Results
AccuracySegmentsBranch
80.5%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes12.0ms (0.2%)

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

6 calls:

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

Compiled 40 to 42 computations (-5% saved)

regimes4.0ms (0.1%)

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

3 calls:

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

Compiled 4 to 7 computations (-75% saved)

regimes10.0ms (0.1%)

Memory
-18.6MiB live, 27.5MiB allocated; 3ms collecting garbage
Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

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

7 calls:

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

Compiled 42 to 45 computations (-7.1% saved)

bsearch0.0ms (0%)

Memory
1.3MiB live, 1.3MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.0
1.981810090751522e-148
Compiler

Compiled 15 to 17 computations (-13.3% saved)

bsearch62.0ms (0.8%)

Memory
6.1MiB live, 150.9MiB allocated; 16ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
26.0ms
1.3490259545023698e-22
1.30990603280723e-16
21.0ms
-7.403765246346713e-164
-1.1393614092229631e-166
10.0ms
-6.616955681747038e+138
-7.388197981492134e+137
Samples
28.0ms297×0valid
10.0ms45×2valid
2.0ms8×3valid
2.0ms18×1valid
Compiler

Compiled 721 to 763 computations (-5.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 33.0ms
ival-hypot: 14.0ms (41.8% of total)
ival-mult!: 13.0ms (38.9% of total)
ival-sqrt: 3.0ms (9% of total)
adjust: 2.0ms (6% of total)
ival-sub!: 1.0ms (3% of total)

bsearch13.0ms (0.2%)

Memory
30.3MiB live, 30.3MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.3490259545023698e-22
1.30990603280723e-16
11.0ms
-6.140923159308658e+52
-1.1598269759279426e+51
Samples
6.0ms112×0valid
Compiler

Compiled 484 to 512 computations (-5.8% saved)

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

bsearch20.0ms (0.2%)

Memory
-5.1MiB live, 39.0MiB allocated; 7ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.3490259545023698e-22
1.30990603280723e-16
17.0ms
-6.4154286021790196e+35
-1.633420488463334e+33
Samples
13.0ms128×0valid
Compiler

Compiled 529 to 559 computations (-5.7% saved)

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

bsearch1.0ms (0%)

Memory
3.2MiB live, 3.2MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
-6.4154286021790196e+35
-1.633420488463334e+33
Compiler

Compiled 250 to 262 computations (-4.8% saved)

derivations1.2s (15.3%)

Memory
-18.2MiB live, 453.4MiB allocated; 99ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 121 to 84 computations (30.6% saved)

preprocess66.0ms (0.8%)

Memory
45.3MiB live, 131.8MiB allocated; 21ms collecting garbage
Remove

(abs im)

Compiler

Compiled 611 to 494 computations (19.1% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...