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

Time bar (total: 3.6s)

start0.0ms (0%)

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

analyze130.0ms (3.6%)

Memory
17.8MiB live, 204.8MiB allocated; 31ms 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.3s (36.1%)

Memory
97.4MiB live, 1 809.8MiB allocated; 393ms collecting garbage
Samples
556.0ms6 215×0valid
187.0ms499×3valid
139.0ms772×2valid
134.0ms770×1valid
Precisions
Click to see histograms. Total time spent on operations: 761.0ms
ival-hypot: 298.0ms (39.2% of total)
ival-mult!: 227.0ms (29.8% of total)
ival-sqrt: 116.0ms (15.2% of total)
adjust: 84.0ms (11% of total)
ival-sub!: 36.0ms (4.7% of total)
Bogosity

preprocess53.0ms (1.5%)

Memory
-38.0MiB live, 51.3MiB allocated; 14ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03690
112790
233390
376090
4267390
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶40.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)

series19.0ms (0.5%)

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

6 calls:

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

rewrite266.0ms (7.4%)

Memory
-23.9MiB live, 255.8MiB allocated; 65ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval36.0ms (1%)

Memory
34.0MiB live, 78.9MiB allocated; 4ms collecting garbage
Compiler

Compiled 4 485 to 1 838 computations (59% saved)

prune16.0ms (0.4%)

Memory
-14.5MiB live, 30.1MiB allocated; 6ms collecting garbage
Pruning

14 alts after pruning (14 fresh and 0 done)

PrunedKeptTotal
New28914303
Fresh000
Picked101
Done000
Total29014304
Accuracy
89.1%
Counts
304 → 14
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶40.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))
40.7%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
▶80.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
31.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 #s(approx (+ (* re re) (* im im)) (*.f64 im im))) re))))
▶40.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))))))
7.5%
(*.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) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re))))
10.2%
(*.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))))
▶13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶54.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
56.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) im))))
23.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64))))))
25.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
4.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal -1/128 binary64) (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 8 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3/2 binary64))) (*.f64 (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/16 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re)))))
54.9%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
Compiler

Compiled 552 to 504 computations (8.7% saved)

series48.0ms (1.3%)

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

6 calls:

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

rewrite218.0ms (6.1%)

Memory
-0.6MiB live, 344.5MiB allocated; 56ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval50.0ms (1.4%)

Memory
-8.8MiB live, 126.5MiB allocated; 14ms collecting garbage
Compiler

Compiled 9 177 to 2 457 computations (73.2% saved)

prune16.0ms (0.5%)

Memory
-19.4MiB live, 33.1MiB allocated; 7ms collecting garbage
Pruning

15 alts after pruning (12 fresh and 3 done)

PrunedKeptTotal
New3444348
Fresh189
Picked235
Done000
Total34715362
Accuracy
89.1%
Counts
362 → 15
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶80.7%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓40.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))
31.0%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 #s(approx (+ (* im im) (* re re)) (*.f64 im im))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
40.7%
(*.f64 (sqrt.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
40.7%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
7.5%
(*.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) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re))))
▶10.2%
(*.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))))
✓13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(literal 1 binary64) (/.f64 re (*.f64 im im))))))
✓54.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶56.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) im))))
23.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64))))))
▶25.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
4.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal -1/128 binary64) (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 8 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3/2 binary64))) (*.f64 (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/16 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re)))))
54.9%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
Compiler

Compiled 546 to 498 computations (8.8% saved)

series32.0ms (0.9%)

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

6 calls:

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

rewrite199.0ms (5.5%)

Memory
19.0MiB live, 245.2MiB allocated; 31ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval163.0ms (4.5%)

Memory
-16.9MiB live, 105.8MiB allocated; 174ms collecting garbage
Compiler

Compiled 5 893 to 2 417 computations (59% saved)

prune24.0ms (0.7%)

Memory
-9.3MiB live, 43.3MiB allocated; 10ms collecting garbage
Pruning

18 alts after pruning (12 fresh and 6 done)

PrunedKeptTotal
New40411415
Fresh617
Picked235
Done033
Total41218430
Accuracy
92.1%
Counts
430 → 18
Alt Table
Click to see full alt table
StatusAccuracyProgram
40.7%
(*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
✓80.7%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓40.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))
40.7%
(*.f64 (sqrt.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 re re (*.f64 im im))))) (sqrt.f64 (fma.f64 re re (*.f64 im im)))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
7.5%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) im) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re))) #s(literal 1/2 binary64))
23.8%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64))))) #s(literal 1/2 binary64))
▶54.9%
(*.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)) #s(literal 1/2 binary64))
13.8%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal -1/2 binary64))))
✓13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶12.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im))) re))))
▶6.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (/.f64 #s(literal 1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 im im) im) im))) re))))
▶16.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 re im) im)))))
✓13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(literal 1 binary64) (/.f64 re (*.f64 im im))))))
✓54.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)))))
✓25.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶57.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) -2) 2) im) (fma.f64 #s(literal -2 binary64) re (+.f64 im im))))))
4.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal -1/128 binary64) (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 8 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3/2 binary64))) (*.f64 (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/16 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re)))))
Compiler

Compiled 679 to 615 computations (9.4% saved)

series45.0ms (1.3%)

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

6 calls:

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

rewrite263.0ms (7.3%)

Memory
8.8MiB live, 279.3MiB allocated; 127ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval49.0ms (1.4%)

Memory
13.4MiB live, 103.2MiB allocated; 9ms collecting garbage
Compiler

Compiled 6 751 to 3 158 computations (53.2% saved)

prune26.0ms (0.7%)

Memory
11.9MiB live, 65.9MiB allocated; 9ms collecting garbage
Pruning

19 alts after pruning (12 fresh and 7 done)

PrunedKeptTotal
New4287435
Fresh257
Picked325
Done156
Total43419453
Accuracy
92.3%
Counts
453 → 19
Alt Table
Click to see full alt table
StatusAccuracyProgram
40.7%
(*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
✓80.7%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓40.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))
40.7%
(*.f64 (sqrt.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 re re (*.f64 im im))))) (sqrt.f64 (fma.f64 re re (*.f64 im im)))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
7.5%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) im) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re))) #s(literal 1/2 binary64))
12.9%
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (*.f64 (fma.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal -1/4 binary64) #s(literal 1 binary64)) im) im)) re))) #s(literal 1/2 binary64))
✓54.9%
(*.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)) #s(literal 1/2 binary64))
51.3%
(*.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im)) #s(literal 1/2 binary64))
13.8%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re)) #s(literal -1/2 binary64))))
✓13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
6.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 im im))) re))))
16.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 im (/.f64 re im)))))
✓54.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
16.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) im))))
13.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 #s(literal 1 binary64) re) (*.f64 im im)))))
✓25.9%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
25.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re)))))
✓57.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) -2) 2) im) (fma.f64 #s(literal -2 binary64) re (+.f64 im im))))))
4.7%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) im) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) re)) (*.f64 (*.f64 re re) re))) (fma.f64 #s(literal -1/128 binary64) (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 8 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3/2 binary64))) (*.f64 (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/16 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re)))))
Compiler

Compiled 929 to 627 computations (32.5% saved)

regimes99.0ms (2.8%)

Memory
-19.0MiB live, 113.9MiB allocated; 18ms collecting garbage
Counts
37 → 2
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
(*.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) 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 (/.f64 re im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) -2) 2) im) (fma.f64 #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 (/.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 #s(literal 1 binary64) (/.f64 re (*.f64 im im))))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 re im) im)))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 #s(approx (+ (* re re) (* im im)) (*.f64 im im))) re))))
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 #s(approx (+ (* im im) (* re re)) (*.f64 im im))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) im))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 4 binary64)) re)))))
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64))))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 im 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 (hypot.f64 re im) re))))
(*.f64 #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im)) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (*.f64 (fma.f64 (*.f64 im (/.f64 im (*.f64 re re))) #s(literal -1/4 binary64) #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 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) 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 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 re re)) (*.f64 im im))) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 #s(approx (+ (* (/ (* (* im im) (* im im)) (* re re)) -1/4) (* im im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 im im)) (/.f64 #s(literal 1/4 binary64) (*.f64 re re))) (*.f64 (*.f64 (*.f64 im im) im) im))) re))))
(*.f64 (sqrt.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 re re (*.f64 im im))))) (sqrt.f64 (fma.f64 re re (*.f64 im im)))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))))))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
(*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) im) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (sqrt.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal -1/128 binary64) (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 8 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3/2 binary64))) (*.f64 (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/16 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re)))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) im) (*.f64 (sqrt.f64 (/.f64 (*.f64 im im) re)) (*.f64 (*.f64 re re) re))) (fma.f64 #s(literal -1/128 binary64) (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 8 binary64)) (*.f64 (log.f64 re) #s(literal 6 binary64)))) (pow.f64 (/.f64 (*.f64 im im) re) #s(literal 3/2 binary64))) (*.f64 (/.f64 (exp.f64 (-.f64 (*.f64 (log.f64 im) #s(literal 6 binary64)) (*.f64 (log.f64 re) #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/16 binary64)))) (sqrt.f64 (/.f64 (*.f64 im im) re)))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) im))))
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
Calls

7 calls:

36.0ms
(*.f64 im im)
13.0ms
im
12.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))))
9.0ms
re
8.0ms
(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
Results
AccuracySegmentsBranch
80.7%1(*.f64 im im)
86.9%3(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
86.9%3(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
86.9%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
86.9%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))))
84.2%2re
80.7%1im
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes75.0ms (2.1%)

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

7 calls:

44.0ms
(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
5.0ms
im
5.0ms
re
5.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
5.0ms
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
66.8%3(*.f64 im im)
66.8%3im
75.6%3re
74.7%4(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
74.7%4(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
74.6%3(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
74.6%3(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes10.0ms (0.3%)

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

1 calls:

9.0ms
re
Results
AccuracySegmentsBranch
75.6%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

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

1 calls:

2.0ms
re
Results
AccuracySegmentsBranch
75.5%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes7.0ms (0.2%)

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

5 calls:

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

Compiled 39 to 40 computations (-2.6% saved)

regimes1.0ms (0%)

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

1 calls:

1.0ms
re
Results
AccuracySegmentsBranch
69.8%2re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes10.0ms (0.3%)

Memory
-26.0MiB live, 19.1MiB allocated; 6ms collecting garbage
Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts
1 → 1
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.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

7 calls:

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

Compiled 42 to 45 computations (-7.1% saved)

bsearch0.0ms (0%)

Memory
1.0MiB live, 1.0MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
0.0
2.0568361653743717e-88
Compiler

Compiled 15 to 17 computations (-13.3% saved)

bsearch55.0ms (1.5%)

Memory
-6.9MiB live, 92.4MiB allocated; 19ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
31.0ms
2.7317476899090118e+82
1.597986176825457e+96
14.0ms
-6.916162467246869e+51
-1.6553164139522972e+44
Samples
10.0ms190×0valid
9.0ms23×3valid
7.0ms43×2valid
5.0ms48×1valid
Compiler

Compiled 757 to 791 computations (-4.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 25.0ms
ival-hypot: 14.0ms (56% of total)
ival-mult!: 4.0ms (16% of total)
ival-sqrt: 3.0ms (12% of total)
adjust: 2.0ms (8% of total)
ival-sub!: 1.0ms (4% of total)

bsearch3.0ms (0.1%)

Memory
7.2MiB live, 7.2MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.7317476899090118e+82
1.597986176825457e+96
1.0ms
-6.916162467246869e+51
-1.6553164139522972e+44
Compiler

Compiled 721 to 755 computations (-4.7% saved)

bsearch12.0ms (0.3%)

Memory
26.9MiB live, 26.9MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
2.7317476899090118e+82
1.597986176825457e+96
9.0ms
-6.916162467246869e+51
-1.6553164139522972e+44
Samples
5.0ms96×0valid
Compiler

Compiled 626 to 660 computations (-5.4% saved)

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

bsearch1.0ms (0%)

Memory
2.7MiB live, 2.7MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
-6.916162467246869e+51
-1.6553164139522972e+44
Compiler

Compiled 306 to 320 computations (-4.6% saved)

bsearch1.0ms (0%)

Memory
2.7MiB live, 2.7MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
1.0ms
-6.916162467246869e+51
-1.6553164139522972e+44
Compiler

Compiled 279 to 293 computations (-5% saved)

derivations292.0ms (8.1%)

Memory
0.0MiB live, 282.5MiB allocated; 36ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 122 to 79 computations (35.2% saved)

preprocess75.0ms (2.1%)

Memory
6.2MiB live, 190.5MiB allocated; 32ms collecting garbage
Remove

(abs im)

Compiler

Compiled 642 to 503 computations (21.7% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...