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

Time bar (total: 5.1s)

start0.0ms (0%)

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

analyze108.0ms (2.1%)

Memory
-20.4MiB live, 119.4MiB allocated; 17ms 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)

sample2.2s (43.3%)

Memory
-83.6MiB live, 1 602.3MiB allocated; 1.7s collecting garbage
Samples
1.3s6 175×0valid
376.0ms805×2valid
193.0ms474×3valid
119.0ms802×1valid
Precisions
Click to see histograms. Total time spent on operations: 1.7s
ival-sqrt: 981.0ms (58.1% of total)
ival-hypot: 329.0ms (19.5% of total)
adjust: 196.0ms (11.6% of total)
ival-mult!: 135.0ms (8% of total)
ival-sub!: 46.0ms (2.7% of total)
Bogosity

preprocess81.0ms (1.6%)

Memory
-23.1MiB live, 68.8MiB allocated; 7ms 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
▶38.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))))
Symmetry

(abs im)

Compiler

Compiled 24 to 24 computations (0% saved)

series19.0ms (0.4%)

Memory
36.9MiB live, 36.9MiB allocated; 0ms collecting garbage
Counts
12 → 122
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
Outputs
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/2 (/ 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
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
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
re
@inf
((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms
re
@0
((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
2.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)

rewrite213.0ms (4.2%)

Memory
-48.9MiB live, 301.1MiB allocated; 45ms 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 (0.7%)

Memory
46.3MiB live, 91.7MiB allocated; 3ms collecting garbage
Compiler

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

prune14.0ms (0.3%)

Memory
-4.9MiB live, 41.1MiB allocated; 3ms collecting garbage
Pruning

13 alts after pruning (13 fresh and 0 done)

PrunedKeptTotal
New29013303
Fresh000
Picked101
Done000
Total29113304
Accuracy
86.3%
Counts
304 → 13
Alt Table
Click to see full alt table
StatusAccuracyProgram
38.3%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
38.1%
(*.f64 #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))))
25.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
▶74.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
28.3%
(*.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))))
▶37.8%
(*.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)))))))
29.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im))))))
17.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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))))))
▶17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶50.0%
(*.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.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
49.5%
(*.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 416 to 388 computations (6.7% saved)

series52.0ms (1%)

Memory
-27.4MiB live, 118.3MiB allocated; 9ms collecting garbage
Counts
35 → 226
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 #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 (*.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))))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/2 (/ 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 (* (+ (* (/ 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 (- 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 (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (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 (* (+ (* (/ 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 (* 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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* 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 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (+ (* (/ re im) -2) 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 (* 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 (* -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 (+ (* (/ re im) -2) 2) #s(hole binary64 (/ (+ (* -2 re) (* 2 im)) 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 (* 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 (* -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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (/ 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 (* (+ (* (/ re im) -2) 2) im) #s(hole binary64 (* -1 (* im (- (* 2 (/ re 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
10.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) (* 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 (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
10.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) (* 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 (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
6.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) (* 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 (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
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)) 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) (* 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 (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
6.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re 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) (* 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 (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))

rewrite201.0ms (4%)

Memory
28.3MiB live, 356.9MiB allocated; 28ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0140812676
0144411896
0824111019
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
261 → 347
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 #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 (*.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))))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/2 (/ 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 (* (+ (* (/ 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 (- 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 (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (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 (* (+ (* (/ 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 (* 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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* 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 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (+ (* (/ re im) -2) 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 (* 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 (* -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 (+ (* (/ re im) -2) 2) #s(hole binary64 (/ (+ (* -2 re) (* 2 im)) 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 (* 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 (* -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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (/ 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 (* (+ (* (/ re im) -2) 2) im) #s(hole binary64 (* -1 (* im (- (* 2 (/ re 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 #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))
(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))))
#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 (+.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 (*.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 (pow.f64 (*.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (*.f64 (/.f64 re im) #s(literal -2 binary64)) (*.f64 (/.f64 re im) #s(literal -2 binary64)) (-.f64 #s(literal 4 binary64) (*.f64 (*.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64)))))
(fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64))
(+.f64 (*.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 #s(literal 1 binary64) (/.f64 im re))
(/.f64 re im)
#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 (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))))
(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)))
#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 (* (+ (* (/ re im) -2) 2) im) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (+ (* (/ re im) -2) 2) im) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)))
#s(approx (+ (* (/ re im) -2) 2) #s(literal 2 binary64))
#s(approx (+ (* (/ re im) -2) 2) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 re im))))
#s(approx (/ re im) (/.f64 re im))
#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 (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #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 (* (+ (* (/ re im) -2) 2) im) (*.f64 #s(literal -2 binary64) re))
#s(approx (* (+ (* (/ re im) -2) 2) im) (*.f64 re (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 im re)) #s(literal 2 binary64))))
#s(approx (+ (* (/ re im) -2) 2) (*.f64 #s(literal -2 binary64) (/.f64 re im)))
#s(approx (+ (* (/ re im) -2) 2) (*.f64 re (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)))))
#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 (+ (* 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 (- (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 -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 (* (+ (* (/ re im) -2) 2) im) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 im re))))))
#s(approx (+ (* (/ re im) -2) 2) (*.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) im)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 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/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))))) (+.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 (+ (* (/ re im) -2) 2) (/.f64 (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)) 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 (* 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 (+.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 (+ (* 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 (- (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 (* (+ (* (/ re im) -2) 2) im) (*.f64 #s(literal -1 binary64) (*.f64 im (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 re im)) #s(literal 2 binary64)))))
#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)))

eval78.0ms (1.5%)

Memory
25.9MiB live, 100.3MiB allocated; 27ms collecting garbage
Compiler

Compiled 8 990 to 2 406 computations (73.2% saved)

prune34.0ms (0.7%)

Memory
-23.6MiB live, 38.5MiB allocated; 25ms collecting garbage
Pruning

13 alts after pruning (9 fresh and 4 done)

PrunedKeptTotal
New3213324
Fresh268
Picked145
Done000
Total32413337
Accuracy
86.3%
Counts
337 → 13
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶38.3%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
38.1%
(*.f64 #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))))
25.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.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)))))
✓74.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
✓37.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (*.f64 (-.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)))))))
▶29.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im))))))
▶17.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #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))))))
✓17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
17.4%
(*.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))))))
✓49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶23.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶51.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 #s(literal 2 binary64) im))))))
49.5%
(*.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 377 to 354 computations (6.1% saved)

series47.0ms (0.9%)

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

6 calls:

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

rewrite226.0ms (4.4%)

Memory
4.6MiB live, 186.8MiB allocated; 42ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
07855998
08275253
158475207
083224531
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
186 → 464
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 #s(literal 2 binary64) 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 #s(literal 2 binary64) 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 #s(literal 2 binary64) im))))
#s(approx (* (+ (* (/ re im) -2) 2) im) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)))
(fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im))
#s(literal -2 binary64)
re
(*.f64 #s(literal 2 binary64) im)
#s(literal 2 binary64)
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
(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 (*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im))))))
(sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im)))))
(*.f64 #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) (sqrt.f64 (*.f64 im im)))
(sqrt.f64 (*.f64 im im))
(*.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 #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))))))
(sqrt.f64 #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 (*.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))))
(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)))
(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 im im) (*.f64 (*.f64 re re) re))
(*.f64 (*.f64 re re) re)
#s(literal -1/4 binary64)
(/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))
#s(literal 1 binary64)
(sqrt.f64 (*.f64 re re))
(*.f64 (-.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))
(-.f64 (sqrt.f64 (*.f64 re 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 (* (+ (* (/ 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 (* -4 re) #s(hole binary64 (* -4 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (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 (+ (* im im) (* re re))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) #s(hole binary64 (* -1/4 (/ (pow im 4) (pow re 3)))))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) #s(hole binary64 (/ (+ (* -1/4 (pow im 4)) (* (pow im 2) (pow re 2))) (pow re 3))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (* -1/4 (/ (pow im 2) (pow re 3)))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (/ (+ (* -1/4 (pow im 2)) (pow re 2)) (pow re 3))))
#s(approx (/ (* im im) (* (* re re) re)) #s(hole binary64 (/ (pow im 2) (pow re 3))))
#s(approx (* (* re re) re) #s(hole binary64 (pow re 3)))
#s(approx (/ 1 (sqrt (* re re))) #s(hole binary64 (/ 1 re)))
#s(approx (* (- (sqrt (* re re)) re) 2) #s(hole binary64 0))
#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 (* (+ (* (/ 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 (- (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 (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (/ (+ 1 (* -1/4 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* re (sqrt (/ -4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -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 (* -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 (- (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 (+ (* 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 (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* 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 (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (/ -1 re)))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (* -1 (/ (+ 1 (* 1/4 (/ (pow im 2) (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 (+ (* 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 (+ (* 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 im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) #s(hole binary64 (+ (* 2 (- (sqrt (pow re 2)) re)) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (/ 1 (sqrt (pow re 2)))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 (sqrt (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/2 (/ 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 (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) #s(hole binary64 (* (pow im 4) (- (/ 1 (* (pow im 2) (sqrt (pow re 2)))) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) #s(hole binary64 (* (pow im 4) (- (+ (* 2 (/ (- (sqrt (pow re 2)) re) (pow im 4))) (/ 1 (* (pow im 2) (sqrt (pow re 2))))) (* 1/4 (/ 1 (pow re 3)))))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) #s(hole binary64 (* (pow im 2) (- (/ 1 (* (pow im 2) (sqrt (pow re 2)))) (* 1/4 (/ 1 (pow re 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 (* -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)))))
#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 (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) -2) 2) im) (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 (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 #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 (+.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 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(+.f64 im im)
#s(literal 2 binary64)
im
(*.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 (*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))))
(pow.f64 (*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64)))
(fabs.f64 (sqrt.f64 (*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)))
(+.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 im) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fabs.f64 im)) (sqrt.f64 (fabs.f64 im)))
(*.f64 (sqrt.f64 im) (sqrt.f64 im))
(pow.f64 (sqrt.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))
(sqrt.f64 (*.f64 im im))
(fabs.f64 (fabs.f64 im))
(fabs.f64 im)
(exp.f64 (*.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 im im)) #s(literal 1/2 binary64)))
(*.f64 (/.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 (neg.f64 im) (neg.f64 im))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 im im)
(pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 1/2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 im im)))
(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 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(fabs.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(+.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (-.f64 (pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (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)) (fabs.f64 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)) (fabs.f64 im) (neg.f64 re))
(fma.f64 (fabs.f64 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 (fabs.f64 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)) (fabs.f64 re))
(*.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (fabs.f64 im))
(*.f64 (fabs.f64 re) (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(*.f64 (fabs.f64 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 (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)) (neg.f64 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)) 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)) (neg.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (/.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 (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)) (neg.f64 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)) re)
(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)) (neg.f64 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)) im)
(hypot.f64 (neg.f64 re) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) 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) (neg.f64 re))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (fabs.f64 re) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) 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) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) re)
(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 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im re)
(hypot.f64 re (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im))
(*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re))
(*.f64 (*.f64 re re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)))
(*.f64 (*.f64 im im) (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (fma.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im)))))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 re re) (*.f64 im im)))))
(fma.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 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 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) (*.f64 re re))
(fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) im (*.f64 re re))
(fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) (*.f64 im im))
(fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) re (*.f64 im im))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (*.f64 re re) #s(literal 1 binary64) (*.f64 (*.f64 re re) (/.f64 (*.f64 im im) (*.f64 re re))))
(fma.f64 (fabs.f64 im) (fabs.f64 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 #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 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(-.f64 (*.f64 re re) (neg.f64 (*.f64 im im)))
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re))
(-.f64 (*.f64 im im) (neg.f64 (*.f64 re re)))
(+.f64 (*.f64 (*.f64 re re) #s(literal 1 binary64)) (*.f64 (*.f64 re re) (/.f64 (*.f64 im im) (*.f64 re re))))
(+.f64 (*.f64 (*.f64 im im) #s(literal 1 binary64)) (*.f64 (*.f64 im im) (/.f64 (*.f64 re re) (*.f64 im im))))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 im im)) (*.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 (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 (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 (neg.f64 re) (neg.f64 re))
(*.f64 (fabs.f64 re) (fabs.f64 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 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.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 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 re re)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
(+.f64 (cosh.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))) #s(literal 1/2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (pow.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) #s(literal 2 binary64))) (-.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))))
(/.f64 (fma.f64 (pow.f64 (-.f64 (fabs.f64 re) re) #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) #s(literal 3 binary64))) (fma.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) #s(literal 2 binary64)) (*.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) #s(literal 3 binary64)) (*.f64 (pow.f64 (-.f64 (fabs.f64 re) re) #s(literal 3 binary64)) #s(literal 8 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))))))
(fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))
(fma.f64 (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))) (*.f64 im im) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
(fma.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
(fma.f64 im (*.f64 im (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (-.f64 (fabs.f64 re) re) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))
(-.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (neg.f64 (*.f64 im im)) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))
(-.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (neg.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))
(-.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) (*.f64 (neg.f64 (-.f64 (fabs.f64 re) re)) #s(literal 2 binary64)))
(-.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) (neg.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))))
(+.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))))
(+.f64 (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 re)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (fabs.f64 re) #s(literal 1 binary64)) (fabs.f64 re))
(/.f64 (-.f64 (pow.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 re re))) (-.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))
(/.f64 (fma.f64 (pow.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal 3 binary64)) #s(literal -1/64 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re))) (+.f64 (pow.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))
(fma.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(fma.f64 #s(literal -1/4 binary64) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))
(-.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (neg.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 re))))
(+.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 re)) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
(+.f64 (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))
(*.f64 (/.f64 im (*.f64 re re)) (/.f64 im re))
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 re re) re)))
(*.f64 im (/.f64 im (*.f64 (*.f64 re re) re)))
(pow.f64 (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im)) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (*.f64 (*.f64 re re) re)))
(/.f64 (/.f64 (*.f64 im im) (*.f64 re re)) re)
(/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im im)))
(*.f64 (pow.f64 (sqrt.f64 re) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 re) #s(literal 3 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 3/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (neg.f64 re) #s(literal 3/2 binary64)) (pow.f64 (neg.f64 re) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 (fabs.f64 re) #s(literal 3/2 binary64)) (pow.f64 (fabs.f64 re) #s(literal 3/2 binary64)))
(*.f64 (pow.f64 re #s(literal 3/2 binary64)) (pow.f64 re #s(literal 3/2 binary64)))
(*.f64 (fabs.f64 re) (*.f64 re re))
(*.f64 (*.f64 re re) (fabs.f64 re))
(*.f64 (*.f64 re re) re)
(*.f64 re (*.f64 re re))
(pow.f64 (pow.f64 (fabs.f64 re) #s(literal 3/2 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 re #s(literal 3/2 binary64)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 3 binary64))
(pow.f64 (*.f64 re re) #s(literal 3/2 binary64))
(pow.f64 re #s(literal 3 binary64))
(exp.f64 (*.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)) #s(literal 3/2 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)) #s(literal 3/2 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 re re)) #s(literal 3/2 binary64)))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 3 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 3 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 3 binary64))))
(+.f64 (cosh.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 3 binary64))) (sinh.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 3 binary64))))
#s(literal -1/4 binary64)
(*.f64 (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)) (pow.f64 (sqrt.f64 re) #s(literal -1 binary64)))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))
(pow.f64 (/.f64 (fabs.f64 re) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (fabs.f64 re) #s(literal -1 binary64))
(pow.f64 (*.f64 re re) #s(literal -1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (fabs.f64 re)))
(/.f64 #s(literal 1 binary64) (/.f64 (fabs.f64 re) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (fabs.f64 re))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal -1 binary64)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (sqrt.f64 re) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 re) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (neg.f64 re) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 re) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (fabs.f64 re) #s(literal 1/2 binary64)) (pow.f64 (fabs.f64 re) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 re) (sqrt.f64 re))
(pow.f64 (sqrt.f64 re) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 1 binary64))
(pow.f64 (*.f64 re re) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))
(sqrt.f64 (*.f64 re re))
(fabs.f64 (fabs.f64 re))
(fabs.f64 re)
(exp.f64 (*.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 re re)) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (-.f64 (fabs.f64 re) re))
(fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (fabs.f64 re))) (fabs.f64 re) (-.f64 (fabs.f64 re) re))
(+.f64 (-.f64 (fabs.f64 re) re) (-.f64 (fabs.f64 re) re))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 re (fabs.f64 re))) (fabs.f64 re))
(/.f64 (-.f64 (*.f64 re re) (*.f64 re re)) (+.f64 (fabs.f64 re) re))
(/.f64 (-.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (fma.f64 re re (fma.f64 re re (*.f64 (fabs.f64 re) re))))
(neg.f64 (-.f64 re (fabs.f64 re)))
(fma.f64 (pow.f64 (sqrt.f64 re) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 re) #s(literal 1 binary64)) (neg.f64 re))
(fma.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 1/2 binary64)) (neg.f64 re))
(fma.f64 (pow.f64 (neg.f64 re) #s(literal 1/2 binary64)) (pow.f64 (neg.f64 re) #s(literal 1/2 binary64)) (neg.f64 re))
(fma.f64 (pow.f64 (fabs.f64 re) #s(literal 1/2 binary64)) (pow.f64 (fabs.f64 re) #s(literal 1/2 binary64)) (neg.f64 re))
(fma.f64 (sqrt.f64 re) (sqrt.f64 re) (neg.f64 re))
(-.f64 (fabs.f64 re) re)
(+.f64 (fabs.f64 re) (neg.f64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (-.f64 (*.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) re) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) re) (pow.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) #s(literal -3/2 binary64)) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) re) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 (neg.f64 re) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (-.f64 (*.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) re) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) re) (pow.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) #s(literal -3/2 binary64)) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))) re) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fabs.f64 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 (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) re #s(literal -2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
#s(approx (* (+ (* (/ 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 (* -4 re) (*.f64 #s(literal -4 binary64) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (+.f64 (neg.f64 re) (fabs.f64 im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (fabs.f64 im)) #s(literal 1/2 binary64) #s(literal -1 binary64)) re (fabs.f64 im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (fabs.f64 im))) re #s(literal -1 binary64)) re (fabs.f64 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) (fabs.f64 im)) #s(literal 1/2 binary64) (fabs.f64 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) (fabs.f64 im))) (fabs.f64 im)))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) (pow.f64 (fabs.f64 im) #s(literal -5 binary64))) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) (fabs.f64 im))) (*.f64 re re) (fabs.f64 im)))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64)))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) (/.f64 (fma.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 (*.f64 re re) (*.f64 im im))) (*.f64 (*.f64 re re) re)))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (/.f64 (*.f64 (*.f64 im im) #s(literal -1/4 binary64)) (*.f64 (*.f64 re re) re)))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (/.f64 (fma.f64 (*.f64 im im) #s(literal -1/4 binary64) (*.f64 re re)) (*.f64 (*.f64 re re) re)))
#s(approx (/ (* im im) (* (* re re) re)) (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))))
#s(approx (* (* re re) re) (*.f64 (*.f64 re re) re))
#s(approx (/ 1 (sqrt (* re re))) (/.f64 #s(literal 1 binary64) re))
#s(approx (* (- (sqrt (* re re)) re) 2) #s(literal 0 binary64))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal -1/16 binary64) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) #s(literal 1/32 binary64) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) #s(literal 1/2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) #s(literal 1/32 binary64) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) #s(literal 1/2 binary64))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal -1/8 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal -1/8 binary64))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (*.f64 (*.f64 re re) re))) #s(literal -1/8 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 re))) (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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) #s(literal 1/16 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 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 (* (+ (* (/ 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 (- (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 (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.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 (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.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 (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 (/.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 (* (+ (* (/ re im) -2) 2) im) (*.f64 (neg.f64 re) (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal 2 binary64))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (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 (/.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 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (/.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 (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) (*.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 (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (/.f64 #s(literal -1 binary64) re))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/4 binary64) #s(literal 1 binary64)) re)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (fabs.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (fabs.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im)) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))) (fabs.f64 re)))) (*.f64 im im) (sqrt.f64 (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (fabs.f64 re))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (fabs.f64 re))) (*.f64 im im) (*.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64))))
#s(approx im im)
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (-.f64 (fabs.f64 re) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (-.f64 (fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1/2 binary64) (fabs.f64 re)) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (-.f64 (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (fabs.f64 re))) (fabs.f64 re)) re))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (-.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (fabs.f64 re))) (*.f64 im im) (fabs.f64 re)) re))
#s(approx (sqrt (+ (* im im) (* re re))) (fabs.f64 re))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) (fabs.f64 re)) #s(literal 1/2 binary64) (fabs.f64 re)))
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (fabs.f64 re))) (fabs.f64 re)))
#s(approx (sqrt (+ (* 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) (fabs.f64 re))) (*.f64 im im) (fabs.f64 re)))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) (fma.f64 (-.f64 (fabs.f64 re) re) #s(literal 2 binary64) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 re))))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (/.f64 #s(literal 1 binary64) (fabs.f64 re)))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (fma.f64 (*.f64 im (/.f64 im (*.f64 (*.f64 re re) re))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 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 (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 (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 im im) (*.f64 im im))) #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) 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 (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.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) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)))))
#s(approx (+ (* (* im im) (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re))))) (* (- (sqrt (* re re)) re) 2)) (*.f64 (fma.f64 (/.f64 (-.f64 (fabs.f64 re) re) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal 2 binary64) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (*.f64 im im) (*.f64 im im))))
#s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (*.f64 (*.f64 im im) (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 re) (*.f64 im im))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re 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 (* (+ (* (/ re im) -2) 2) im) (*.f64 (neg.f64 im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 #s(literal 1 binary64) (/.f64 re im))))
#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 (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.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))))

eval76.0ms (1.5%)

Memory
21.0MiB live, 206.0MiB allocated; 32ms collecting garbage
Compiler

Compiled 7 228 to 2 971 computations (58.9% saved)

prune18.0ms (0.3%)

Memory
-3.0MiB live, 42.4MiB allocated; 8ms collecting garbage
Pruning

16 alts after pruning (11 fresh and 5 done)

PrunedKeptTotal
New46210472
Fresh314
Picked235
Done224
Total46916485
Accuracy
100.0%
Counts
485 → 16
Alt Table
Click to see full alt table
StatusAccuracyProgram
38.1%
(*.f64 (*.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
25.4%
(*.f64 (sqrt.f64 (*.f64 (/.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)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶74.7%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓38.3%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶37.8%
(*.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))
51.1%
(*.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))
49.4%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
✓29.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im))))))
▶49.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
18.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.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))))))
18.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 im im) #s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re)) (*.f64 (-.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
✓17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
✓49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓23.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶31.3%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
▶49.5%
(*.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 506 to 466 computations (7.9% saved)

series69.0ms (1.3%)

Memory
-24.1MiB live, 71.6MiB allocated; 82ms collecting garbage
Counts
36 → 240
Calls
Call 1
Inputs
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))
(*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))
(-.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
#s(literal 2 binary64)
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re)))
(/.f64 (fabs.f64 im) (sqrt.f64 re))
(fabs.f64 im)
(sqrt.f64 re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
(*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)
(sqrt.f64 (/.f64 #s(literal 2 binary64) im))
(/.f64 #s(literal 2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(/.f64 re (fabs.f64 im))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(*.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))
(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)))
(*.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))
(*.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))))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
Outputs
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* -1 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* -2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (- (/ re (sqrt (pow im 2))) 2)))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* 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 (/ (fabs im) (sqrt re)) #s(hole binary64 (/ (fabs im) (sqrt re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* 2 (fabs im))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* -2 re) (* 2 (fabs im)))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 (fabs im)) (* re (- (/ re (fabs im)) 2)))))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 -2))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 (- (/ re (fabs im)) 2)))
#s(approx (/ re (fabs im)) #s(hole binary64 (/ re (fabs im))))
#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 (+ (* 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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (/ (pow im 2) re)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (sqrt (/ (pow im 2) re))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* 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 (/ (fabs im) (sqrt re)) #s(hole binary64 (/ (fabs im) (* re (sqrt (/ 1 re))))))
#s(approx (sqrt re) #s(hole binary64 (* re (sqrt (/ 1 re)))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (/ (pow re 2) (fabs im))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (- (/ 1 (fabs im)) (* 2 (/ 1 re))))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (- (+ (* 2 (/ (fabs im) (pow re 2))) (/ 1 (fabs im))) (* 2 (/ 1 re))))))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 (* re (- (/ 1 (fabs im)) (* 2 (/ 1 re))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* re (sqrt (/ -4 re))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* re (sqrt (/ -4 re))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -4 re)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* 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 (/ (fabs im) (sqrt re)) #s(hole binary64 (* -1 (/ (fabs im) (* re (sqrt (/ 1 re)))))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* re (sqrt (/ 1 re))))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (+ 2 (* -2 (/ (fabs im) re))) re)) (/ 1 (fabs im))))))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 re)) (/ 1 (fabs im)))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (* -1 (* 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)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (- (sqrt (pow re 2)) re))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (sqrt (* 2 (- (sqrt (pow re 2)) re)))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 (- (sqrt (pow re 2)) re))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 (- (sqrt (pow re 2)) re)) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* 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 (fabs im) #s(hole binary64 (fabs 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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (* (sqrt (pow re 2)) (- 1 (/ re (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #s(hole binary64 (sqrt (* 2 (* (sqrt (pow re 2)) (- 1 (/ re (sqrt (pow re 2)))))))))
#s(approx (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (* 2 (* (sqrt (pow re 2)) (- 1 (/ re (sqrt (pow re 2))))))))
#s(approx (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (* -1 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* 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 (sqrt (/ 2 im)) #s(hole binary64 (sqrt (/ 2 im))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (* -1 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* 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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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
6.0ms
re
@0
((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (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 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (fabs im) (sqrt re)) (fabs im) (sqrt re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 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 (fabs im)) 2) re) (* (fabs im) 2)) (- (/ re (fabs im)) 2) (/ re (fabs im)) (* (fabs im) 2) (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (sqrt (* (* (- 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)))) 2) (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
4.0ms
im
@0
((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (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 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (fabs im) (sqrt re)) (fabs im) (sqrt re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 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 (fabs im)) 2) re) (* (fabs im) 2)) (- (/ re (fabs im)) 2) (/ re (fabs im)) (* (fabs im) 2) (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (sqrt (* (* (- 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)))) 2) (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
4.0ms
im
@-inf
((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (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 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (fabs im) (sqrt re)) (fabs im) (sqrt re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 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 (fabs im)) 2) re) (* (fabs im) 2)) (- (/ re (fabs im)) 2) (/ re (fabs im)) (* (fabs im) 2) (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (sqrt (* (* (- 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)))) 2) (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
4.0ms
re
@-inf
((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (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 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (fabs im) (sqrt re)) (fabs im) (sqrt re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 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 (fabs im)) 2) re) (* (fabs im) 2)) (- (/ re (fabs im)) 2) (/ re (fabs im)) (* (fabs im) 2) (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (sqrt (* (* (- 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)))) 2) (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))
3.0ms
re
@inf
((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (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 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (fabs im) (sqrt re)) (fabs im) (sqrt re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 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 (fabs im)) 2) re) (* (fabs im) 2)) (- (/ re (fabs im)) 2) (/ re (fabs im)) (* (fabs im) 2) (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (sqrt (* (* (- 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)))) 2) (* (- 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)))) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re))

rewrite927.0ms (18.2%)

Memory
24.0MiB live, 339.0MiB allocated; 98ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0144212901
0148711942
0810011055
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
276 → 363
Calls
Call 1
Inputs
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))
(*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))
(-.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
#s(literal 2 binary64)
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re)))
(/.f64 (fabs.f64 im) (sqrt.f64 re))
(fabs.f64 im)
(sqrt.f64 re)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
(*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)
(sqrt.f64 (/.f64 #s(literal 2 binary64) im))
(/.f64 #s(literal 2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(/.f64 re (fabs.f64 im))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(*.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))
(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)))
(*.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))
(*.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))))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fma.f64 im im (*.f64 re re))
(*.f64 re re)
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* -1 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* -2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (- (/ re (sqrt (pow im 2))) 2)))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* 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 (/ (fabs im) (sqrt re)) #s(hole binary64 (/ (fabs im) (sqrt re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt re)))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* 2 (fabs im))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* -2 re) (* 2 (fabs im)))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (+ (* 2 (fabs im)) (* re (- (/ re (fabs im)) 2)))))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 -2))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 (- (/ re (fabs im)) 2)))
#s(approx (/ re (fabs im)) #s(hole binary64 (/ re (fabs im))))
#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 (+ (* 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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (/ (pow im 2) re)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (sqrt (/ (pow im 2) re))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* 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 (/ (fabs im) (sqrt re)) #s(hole binary64 (/ (fabs im) (* re (sqrt (/ 1 re))))))
#s(approx (sqrt re) #s(hole binary64 (* re (sqrt (/ 1 re)))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (/ (pow re 2) (fabs im))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (- (/ 1 (fabs im)) (* 2 (/ 1 re))))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (- (+ (* 2 (/ (fabs im) (pow re 2))) (/ 1 (fabs im))) (* 2 (/ 1 re))))))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 (* re (- (/ 1 (fabs im)) (* 2 (/ 1 re))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* re (sqrt (/ -4 re))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* re (sqrt (/ -4 re))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -4 re)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* 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 (/ (fabs im) (sqrt re)) #s(hole binary64 (* -1 (/ (fabs im) (* re (sqrt (/ 1 re)))))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* re (sqrt (/ 1 re))))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (+ 2 (* -2 (/ (fabs im) re))) re)) (/ 1 (fabs im))))))
#s(approx (- (/ re (fabs im)) 2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 re)) (/ 1 (fabs im)))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (* -1 (* 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)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (- (sqrt (pow re 2)) re))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (sqrt (* 2 (- (sqrt (pow re 2)) re)))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 (- (sqrt (pow re 2)) re))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 (- (sqrt (pow re 2)) re)) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* 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 (fabs im) #s(hole binary64 (fabs 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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #s(hole binary64 (* 1/2 (sqrt (* 2 (* (sqrt (pow re 2)) (- 1 (/ re (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #s(hole binary64 (sqrt (* 2 (* (sqrt (pow re 2)) (- 1 (/ re (sqrt (pow re 2)))))))))
#s(approx (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #s(hole binary64 (* 2 (* (sqrt (pow re 2)) (- 1 (/ re (sqrt (pow re 2))))))))
#s(approx (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (* -1 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* 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 (sqrt (/ 2 im)) #s(hole binary64 (sqrt (/ 2 im))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (* -1 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) 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 (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) 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 (+ (* 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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) #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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) #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 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)) (sqrt.f64 #s(literal 2 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))))
(*.f64 (-.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)) (neg.f64 im))
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.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) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (fabs.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) (neg.f64 im))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 re (pow.f64 im #s(literal 1 binary64)))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re im)
re
im
#s(literal 2 binary64)
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re)))
(pow.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (sqrt.f64 re)))
(/.f64 (fabs.f64 im) (sqrt.f64 re))
(sqrt.f64 (/.f64 (*.f64 im im) re))
(fabs.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)))
(pow.f64 (*.f64 im im) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 im im))
(fabs.f64 (neg.f64 im))
(fabs.f64 (fabs.f64 im))
(fabs.f64 im)
(pow.f64 re #s(literal 1/2 binary64))
(sqrt.f64 re)
(fabs.f64 (sqrt.f64 re))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
(*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)
(pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im))
(sqrt.f64 (/.f64 #s(literal 2 binary64) im))
(fabs.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
(/.f64 #s(literal -2 binary64) (neg.f64 im))
(/.f64 #s(literal 2 binary64) im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(pow.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))) (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re))
(/.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re)) (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (pow.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (-.f64 (*.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)) (*.f64 (fabs.f64 im) #s(literal 2 binary64))) (*.f64 (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
(fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(+.f64 (*.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re) (*.f64 (fabs.f64 im) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (/.f64 re (fabs.f64 im)))) (/.f64 re (fabs.f64 im)))
(/.f64 (-.f64 (*.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im))) #s(literal 4 binary64)) (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 re (fabs.f64 im)) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (+.f64 #s(literal 4 binary64) (*.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))))
(-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64))
(/.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(/.f64 re (fabs.f64 im))
(*.f64 (fabs.f64 im) #s(literal 2 binary64))
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 (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 (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 re (sqrt.f64 (fma.f64 im im (*.f64 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 (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 (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 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 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 im) (fabs.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)))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 #s(literal -1/2 binary64) (/.f64 re (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (*.f64 re (-.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (*.f64 re (-.f64 (*.f64 re (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))) (pow.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)) #s(literal 3/2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (*.f64 #s(literal -1 binary64) (/.f64 re (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (*.f64 re (-.f64 (*.f64 re (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))) (pow.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)) #s(literal 3/2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 im))))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 2 binary64) (fabs.f64 im)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) (fabs.f64 im))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 #s(literal 2 binary64) (fabs.f64 im) (*.f64 re (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 #s(literal 2 binary64) (fabs.f64 im) (*.f64 re (-.f64 (*.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (fabs.f64 im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))) #s(literal 2 binary64)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) (*.f64 #s(literal -1 binary64) re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) (*.f64 re (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 re (fabs.f64 im))) #s(literal 1 binary64)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) (*.f64 re (-.f64 (*.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (fabs.f64 im) (*.f64 im im))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im))))) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (fabs.f64 im) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (fabs.f64 im)))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (fabs.f64 im) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (fabs.f64 im) (*.f64 im im))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) (+.f64 (fabs.f64 im) (*.f64 (*.f64 re re) (fma.f64 (*.f64 re re) (-.f64 (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re re) (pow.f64 (fabs.f64 im) #s(literal 5 binary64)))) (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (*.f64 im im))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))))))
#s(approx re re)
#s(approx (/ (fabs im) (sqrt re)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))
#s(approx (sqrt re) (sqrt.f64 re))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 #s(literal 2 binary64) (fabs.f64 im)))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) (fabs.f64 im))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) (fma.f64 #s(literal 2 binary64) (fabs.f64 im) (*.f64 re (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))))
#s(approx (- (/ re (fabs im)) 2) #s(literal -2 binary64))
#s(approx (- (/ re (fabs im)) 2) (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)))
#s(approx (/ re (fabs im)) (/.f64 re (fabs.f64 im)))
#s(approx (- 1 (/ 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 (fabs.f64 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) (*.f64 (fabs.f64 im) (*.f64 im im)))) (/.f64 #s(literal 1 binary64) (fabs.f64 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 (fabs.f64 im) #s(literal 5 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (*.f64 im im)))))) (/.f64 #s(literal 1 binary64) (fabs.f64 im))))))
#s(approx (/ re (sqrt (+ (* im im) (* re re)))) (/.f64 re (fabs.f64 im)))
#s(approx (/ re (sqrt (+ (* im im) (* re re)))) (*.f64 re (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (fabs.f64 im) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (fabs.f64 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 (fabs.f64 im) #s(literal 5 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (*.f64 im im))))) (/.f64 #s(literal 1 binary64) (fabs.f64 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 (fabs.f64 im) #s(literal 7 binary64))) (*.f64 #s(literal 3/8 binary64) (pow.f64 (fabs.f64 im) #s(literal -5 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (fabs.f64 im) (*.f64 im im))))) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))))
#s(approx (+ (* im im) (* re re)) (*.f64 im im))
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 re))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re))))))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (/.f64 (*.f64 im im) re))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (/.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (/.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (/.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 (/ (fabs im) (sqrt re)) (/.f64 (fabs.f64 im) (*.f64 re (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (sqrt re) (*.f64 re (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) (/.f64 (*.f64 re re) (fabs.f64 im)))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (*.f64 re re) (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (*.f64 re re) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (fabs.f64 im) (*.f64 re re)) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (- (/ re (fabs im)) 2) (*.f64 re (-.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 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) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 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) (/.f64 (fabs.f64 im) (sqrt.f64 re))))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (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) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 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) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))))))
#s(approx (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (+.f64 (/.f64 (fabs.f64 im) (sqrt.f64 re)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))))))
#s(approx (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (+.f64 (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))))))))))))
#s(approx (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (+.f64 (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 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) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 (fabs.f64 im) (sqrt.f64 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)) (/.f64 (fabs.f64 im) (sqrt.f64 re))))))))))))))
#s(approx (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (/.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (/.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (/.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 (+ (* im im) (* re re)) (*.f64 (*.f64 re re) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 re (sqrt.f64 (/.f64 #s(literal -4 binary64) re)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.f64 #s(literal -1 binary64) (*.f64 re (sqrt.f64 (/.f64 #s(literal -4 binary64) re)))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal -4 binary64) re))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal -1 binary64) (*.f64 re (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.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 (/ (fabs im) (sqrt re)) (*.f64 #s(literal -1 binary64) (/.f64 (fabs.f64 im) (*.f64 re (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))))
#s(approx (sqrt re) (*.f64 #s(literal -1 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))
#s(approx (+ (* (- (/ re (fabs im)) 2) re) (* (fabs im) 2)) (*.f64 (*.f64 re re) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 (fabs.f64 im) re))) re) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))))
#s(approx (- (/ re (fabs im)) 2) (*.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) re)) (/.f64 #s(literal 1 binary64) (fabs.f64 im))))))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (*.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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (*.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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (*.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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (*.f64 re re)) re)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (*.f64 re re)) re))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (+.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (*.f64 re re)) re)))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (*.f64 re re)) re) (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re)))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (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 (fabs im) (fabs.f64 im))
#s(approx (* (sqrt (/ 2 im)) im) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))
#s(approx (sqrt (/ 2 im)) (/.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) im))
#s(approx (/ 2 im) (/.f64 #s(literal 2 binary64) im))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (*.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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (+.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (+.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (+.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (*.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 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (*.f64 im (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.f64 im (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal 2 binary64) im))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 re im)))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.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 (sqrt (/ 2 im)) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))
#s(approx (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (*.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 (+ (* im im) (* re re)) (*.f64 (*.f64 im im) (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal -1/2 binary64) (*.f64 im (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.f64 #s(literal -1 binary64) (*.f64 im (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 #s(literal -1 binary64) (*.f64 im (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 re im))))))
#s(approx (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.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 (* (- (sqrt (+ (* re re) (* im im))) re) 2) (*.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 (* (sqrt (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) 1/2) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2)) (*.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 (* (* (- 1 (/ re (sqrt (+ (* im im) (* re re))))) (sqrt (+ (* im im) (* re re)))) 2) (*.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)))

eval58.0ms (1.1%)

Memory
22.2MiB live, 122.6MiB allocated; 28ms collecting garbage
Compiler

Compiled 9 187 to 2 506 computations (72.7% saved)

prune23.0ms (0.4%)

Memory
-30.1MiB live, 59.9MiB allocated; 16ms collecting garbage
Pruning

17 alts after pruning (7 fresh and 10 done)

PrunedKeptTotal
New3383341
Fresh246
Picked055
Done055
Total34017357
Accuracy
100.0%
Counts
357 → 17
Alt Table
Click to see full alt table
StatusAccuracyProgram
38.1%
(*.f64 (*.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
25.4%
(*.f64 (sqrt.f64 (*.f64 (/.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)) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓74.7%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓38.3%
(*.f64 (sqrt.f64 (*.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓37.8%
(*.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))
51.1%
(*.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))
49.4%
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
✓29.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im))))))
✓49.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
18.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (/.f64 (*.f64 im im) (*.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))))))
18.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 im im) #s(approx (+ (* (/ (* im im) (* (* re re) re)) -1/4) (/ 1 (sqrt (* re re)))) (/.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) #s(literal 1 binary64)) re)) (*.f64 (-.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
✓17.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
✓49.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓23.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
✓31.3%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
31.2%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) #s(approx (sqrt re) (*.f64 re (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))))
✓49.5%
(*.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 667 to 479 computations (28.2% saved)

regimes88.0ms (1.7%)

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

7 calls:

23.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
17.0ms
re
16.0ms
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
8.0ms
im
7.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Results
AccuracySegmentsBranch
74.7%1(*.f64 im im)
84.8%2(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
84.8%2(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
85.1%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
85.1%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))))
91.5%2re
74.7%1im
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes97.0ms (1.9%)

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

5 calls:

71.0ms
(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
10.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
(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
71.7%3(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
71.7%3(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
71.9%3(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
71.9%3(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
83.5%4re
Compiler

Compiled 39 to 40 computations (-2.6% saved)

regimes5.0ms (0.1%)

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

1 calls:

4.0ms
re
Results
AccuracySegmentsBranch
83.2%4re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes5.0ms (0.1%)

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

1 calls:

4.0ms
re
Results
AccuracySegmentsBranch
80.8%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

Memory
7.9MiB live, 7.9MiB 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 (fabs.f64 im) (sqrt.f64 re))))
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 #s(literal 1/2 binary64) #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 im) re))))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 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) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
Calls

1 calls:

2.0ms
re
Results
AccuracySegmentsBranch
80.4%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes13.0ms (0.3%)

Memory
-22.5MiB live, 26.2MiB allocated; 13ms 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

7 calls:

6.0ms
im
1.0ms
(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
1.0ms
re
1.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
1.0ms
(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
Results
AccuracySegmentsBranch
49.3%1(-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
49.3%1(*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
49.3%1(sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
49.3%1(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
58.5%2(*.f64 im im)
58.5%2im
60.5%2re
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes5.0ms (0.1%)

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

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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

5 calls:

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

Compiled 20 to 23 computations (-15% saved)

bsearch26.0ms (0.5%)

Memory
1.7MiB live, 46.9MiB allocated; 7ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
24.0ms
1.233762978184412e-25
1.8526439334716946e-16
Samples
10.0ms31×2valid
5.0ms85×0valid
3.0ms23×1valid
1.0ms5×3valid
Compiler

Compiled 243 to 257 computations (-5.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 14.0ms
ival-hypot: 9.0ms (62.2% of total)
ival-sqrt: 2.0ms (13.8% of total)
ival-mult!: 2.0ms (13.8% of total)
adjust: 1.0ms (6.9% of total)
ival-sub!: 1.0ms (6.9% of total)

bsearch22.0ms (0.4%)

Memory
-6.4MiB live, 39.3MiB allocated; 9ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.233762978184412e-25
1.8526439334716946e-16
3.0ms
-1.5959305152999687e-165
-1.3388749092095908e-165
16.0ms
-3.5222657273765604e+90
-6.913166403619374e+86
Samples
9.0ms160×0valid
Compiler

Compiled 612 to 635 computations (-3.8% saved)

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

bsearch19.0ms (0.4%)

Memory
-22.4MiB live, 31.0MiB allocated; 11ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.233762978184412e-25
1.8526439334716946e-16
16.0ms
-4.5661017438467876e-138
-2.144535728174582e-139
1.0ms
-3.5222657273765604e+90
-6.913166403619374e+86
Samples
6.0ms112×0valid
Compiler

Compiled 735 to 779 computations (-6% saved)

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

bsearch3.0ms (0.1%)

Memory
6.9MiB live, 6.9MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.233762978184412e-25
1.8526439334716946e-16
2.0ms
-5.039821749925202e-57
-4.8546004374459317e-57
Samples
1.0ms16×0valid
Compiler

Compiled 397 to 413 computations (-4% saved)

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

bsearch1.0ms (0%)

Memory
2.8MiB live, 2.8MiB allocated; 0ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
1.233762978184412e-25
1.8526439334716946e-16
0.0ms
-5.039821749925202e-57
-4.8546004374459317e-57
Compiler

Compiled 317 to 333 computations (-5% saved)

bsearch0.0ms (0%)

Memory
0.7MiB live, 0.7MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
0.0ms
-5.039821749925202e-57
-4.8546004374459317e-57
Compiler

Compiled 47 to 45 computations (4.3% saved)

derivations233.0ms (4.6%)

Memory
-8.7MiB live, 226.4MiB allocated; 19ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 131 to 84 computations (35.9% saved)

preprocess89.0ms (1.7%)

Memory
22.0MiB live, 160.7MiB allocated; 17ms collecting garbage
Remove

(abs im)

Compiler

Compiled 697 to 538 computations (22.8% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...