math.sqrt on complex, real part

Time bar (total: 3.7s)

start0.0ms (0%)

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

analyze134.0ms (3.6%)

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

Compiled 17 to 11 computations (35.3% saved)

sample1.3s (34.5%)

Memory
79.5MiB live, 2 413.5MiB allocated; 537ms collecting garbage
Samples
629.0ms6 234×0valid
172.0ms810×2valid
149.0ms476×3valid
93.0ms736×1valid
Precisions
Click to see histograms. Total time spent on operations: 761.0ms
ival-hypot: 341.0ms (44.8% of total)
ival-mult!: 202.0ms (26.6% of total)
ival-sqrt: 111.0ms (14.6% of total)
adjust: 64.0ms (8.4% of total)
ival-add!: 44.0ms (5.8% of total)
Bogosity

preprocess54.0ms (1.4%)

Memory
-43.7MiB live, 81.4MiB allocated; 13ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
03690
114990
239090
389390
4266790
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶45.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))))
Symmetry

(abs im)

Compiler

Compiled 24 to 24 computations (0% saved)

series20.0ms (0.5%)

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

6 calls:

TimeVariablePointExpression
4.0ms
im
@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)

rewrite231.0ms (6.2%)

Memory
48.6MiB live, 436.7MiB allocated; 64ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
06604927
06724680
150754595
082893807
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
134 → 316
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Outputs
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(fabs.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))))
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(+.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (+.f64 re re))
(+.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
#s(literal 2 binary64)
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))) (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(/.f64 (-.f64 (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re)))) (*.f64 re re)) (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))
(/.f64 (+.f64 (pow.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 3 binary64)) (*.f64 (*.f64 re re) re)) (fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (-.f64 (*.f64 re re) (*.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))))
(fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 re re)) re)
(fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)) re)
(fma.f64 (sqrt.f64 (*.f64 re re)) (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) re)
(fma.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) re)
(-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (neg.f64 re))
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(+.f64 re (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(*.f64 (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 re re)))
(*.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)))
(*.f64 (sqrt.f64 (*.f64 re re)) (pow.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal -1/2 binary64)))
(sqrt.f64 (fma.f64 im im (*.f64 re re)))
(fabs.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re)))
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (exp.f64 (log.f64 im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (exp.f64 (log.f64 im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re))
(hypot.f64 (exp.f64 (log.f64 im)) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (exp.f64 (log.f64 im)) re)
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 re)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (exp.f64 (log.f64 re)) im)
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (exp.f64 (log.f64 im)))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (fabs.f64 im))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (neg.f64 im))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) im)
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (exp.f64 (log.f64 im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (fabs.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (neg.f64 im))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) im)
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (fabs.f64 im) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re)))
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (neg.f64 im) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (sqrt.f64 (*.f64 re re)) (exp.f64 (log.f64 im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (fabs.f64 im))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (neg.f64 im))
(hypot.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 im im)))
(hypot.f64 (sqrt.f64 (*.f64 re re)) im)
(hypot.f64 (sqrt.f64 (*.f64 im im)) (exp.f64 (log.f64 re)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (fabs.f64 re))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (neg.f64 re))
(hypot.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 re re)))
(hypot.f64 (sqrt.f64 (*.f64 im im)) re)
(hypot.f64 im (exp.f64 (log.f64 re)))
(hypot.f64 im (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(hypot.f64 im (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im (sqrt.f64 (*.f64 re re)))
(hypot.f64 im re)
(hypot.f64 re (exp.f64 (log.f64 im)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re (sqrt.f64 (*.f64 im im)))
(hypot.f64 re im)
(exp.f64 (*.f64 (log.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im))
(*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re))
(*.f64 (*.f64 re re) (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)))
(*.f64 (*.f64 im im) (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)))
(/.f64 (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) (-.f64 (*.f64 im im) (*.f64 re re)))
(/.f64 (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) (-.f64 (*.f64 re re) (*.f64 im im)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (*.f64 im im) (*.f64 im im) (-.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 re re)))))
(/.f64 (fma.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))) (fma.f64 (*.f64 re re) (*.f64 re re) (-.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 im im)))))
(fma.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)) (*.f64 re re))
(fma.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)) (*.f64 im im))
(fma.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (*.f64 im im))
(fma.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (*.f64 im im))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re)) (*.f64 im im))
(fma.f64 (*.f64 re re) #s(literal 1 binary64) (*.f64 (*.f64 re re) (/.f64 (*.f64 im im) (*.f64 re re))))
(fma.f64 #s(literal 1 binary64) (*.f64 re re) (*.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)))
(fma.f64 #s(literal 1 binary64) (*.f64 im im) (*.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (*.f64 im im)))
(fma.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)) (*.f64 re re))
(fma.f64 (*.f64 im im) #s(literal 1 binary64) (*.f64 (*.f64 im im) (/.f64 (*.f64 re re) (*.f64 im im))))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 im im))
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im))
(-.f64 (*.f64 re re) (neg.f64 (*.f64 im im)))
(-.f64 (*.f64 im im) (neg.f64 (*.f64 re re)))
(+.f64 (*.f64 (*.f64 re re) #s(literal 1 binary64)) (*.f64 (*.f64 re re) (/.f64 (*.f64 im im) (*.f64 re re))))
(+.f64 (*.f64 (*.f64 im im) #s(literal 1 binary64)) (*.f64 (*.f64 im im) (/.f64 (*.f64 re re) (*.f64 im im))))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 re re)) (*.f64 (/.f64 (*.f64 im im) (*.f64 re re)) (*.f64 re re)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 im im)) (*.f64 (/.f64 (*.f64 re re) (*.f64 im im)) (*.f64 im im)))
(+.f64 (*.f64 re re) (*.f64 im im))
(+.f64 (*.f64 im im) (*.f64 re re))
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)))
(*.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))))
(*.f64 (pow.f64 (fabs.f64 re) #s(literal 1 binary64)) (pow.f64 (fabs.f64 re) #s(literal 1 binary64)))
(*.f64 (pow.f64 (neg.f64 re) #s(literal 1 binary64)) (pow.f64 (neg.f64 re) #s(literal 1 binary64)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re)))
(*.f64 re re)
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 re re) (*.f64 re re)) #s(literal 1/2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (sqrt.f64 (*.f64 re re)) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 re re)))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (*.f64 re re)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 re re))) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 re re))) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 (sqrt.f64 (*.f64 re re))) #s(literal 2 binary64))))
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))))
re
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)))
(*.f64 im im)
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 im im)))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))))
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (fma.f64 re (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fma.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) re) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 re (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (*.f64 #s(literal 4 binary64) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (sqrt.f64 (*.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 im im)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 1 binary64)) re (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) (sqrt.f64 (*.f64 im im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 re re) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (sqrt.f64 (*.f64 im im))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (*.f64 (*.f64 (*.f64 re re) (pow.f64 (*.f64 im im) #s(literal -5/2 binary64))) #s(literal 1/16 binary64)) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) (*.f64 re re) (sqrt.f64 (*.f64 im im))))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (fma.f64 (log.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) #s(literal 3 binary64) (*.f64 (log.f64 re) #s(literal 6 binary64))))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (fma.f64 (log.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) #s(literal 3 binary64) (*.f64 (log.f64 re) #s(literal 6 binary64))))) #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/128 binary64) (*.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))) #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (neg.f64 (/.f64 (*.f64 im im) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (*.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re)))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (sqrt.f64 (*.f64 re re)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (sqrt.f64 (*.f64 re re)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 im im) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (sqrt.f64 (*.f64 re re))))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (sqrt.f64 (*.f64 re re))))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 re re) im))) im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 (neg.f64 re) im) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64) re) im)) #s(literal 1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) re) im)) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64))))
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (pow.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 3 binary64)) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64))))

eval67.0ms (1.8%)

Memory
-24.1MiB live, 129.5MiB allocated; 40ms collecting garbage
Compiler

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

prune14.0ms (0.4%)

Memory
-5.2MiB live, 41.7MiB allocated; 2ms collecting garbage
Pruning

15 alts after pruning (15 fresh and 0 done)

PrunedKeptTotal
New29215307
Fresh000
Picked101
Done000
Total29315308
Accuracy
88.6%
Counts
308 → 15
Alt Table
Click to see full alt table
StatusAccuracyProgram
45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
34.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)) re))))
▶81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
32.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 #s(approx (+ (* re re) (* im im)) (*.f64 im im))) re))))
5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
▶51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
53.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
▶4.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))))
27.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
▶13.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
42.6%
(*.f64 #s(literal 1/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))))
51.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
▶0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
Compiler

Compiled 456 to 454 computations (0.4% saved)

series76.0ms (2%)

Memory
-13.8MiB live, 79.9MiB allocated; 88ms collecting garbage
Counts
33 → 135
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))
(*.f64 #s(literal -1/2 binary64) im)
#s(literal -1/2 binary64)
(sqrt.f64 (/.f64 #s(literal -2 binary64) im))
(/.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))
(neg.f64 (/.f64 (*.f64 im im) re))
(/.f64 (*.f64 im im) re)
(*.f64 im im)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
(*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))
(neg.f64 im)
(fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))
(/.f64 re im)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx re #s(hole binary64 re))
#s(approx (neg (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* -2 im)))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (+ (* -2 im) (* 2 re))))
#s(approx (+ (* -2 (/ re im)) 2) #s(hole binary64 2))
#s(approx (+ (* -2 (/ re im)) 2) #s(hole binary64 (+ 2 (* -2 (/ re im)))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* re (+ 2 (* -2 (/ im re))))))
#s(approx (+ (* -2 (/ re im)) 2) #s(hole binary64 (* -2 (/ re im))))
#s(approx (+ (* -2 (/ re im)) 2) #s(hole binary64 (* re (- (* 2 (/ 1 re)) (* 2 (/ 1 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* -1 (* re (- (* 2 (/ im re)) 2)))))
#s(approx (+ (* -2 (/ re im)) 2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 im)) (* 2 (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (sqrt (* -2 im)))))
#s(approx (* -1/2 im) #s(hole binary64 (* -1/2 im)))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (/ (sqrt (* -2 im)) im)))
#s(approx (/ -2 im) #s(hole binary64 (/ -2 im)))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* -2 (/ re im)) 2) #s(hole binary64 (/ (+ (* -2 re) (* 2 im)) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* (* -1/2 im) (sqrt (/ -2 im))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (/ -2 im)) #s(hole binary64 (sqrt (/ -2 im))))
#s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) #s(hole binary64 (* im (- (* 2 (/ re im)) 2))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
Calls

6 calls:

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

rewrite251.0ms (6.7%)

Memory
-6.0MiB live, 364.5MiB allocated; 81ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

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

eval49.0ms (1.3%)

Memory
24.2MiB live, 110.8MiB allocated; 21ms collecting garbage
Compiler

Compiled 4 595 to 1 821 computations (60.4% saved)

prune17.0ms (0.5%)

Memory
-8.6MiB live, 38.7MiB allocated; 2ms collecting garbage
Pruning

20 alts after pruning (16 fresh and 4 done)

PrunedKeptTotal
New3306336
Fresh01010
Picked145
Done000
Total33120351
Accuracy
91.8%
Counts
351 → 20
Alt Table
Click to see full alt table
StatusAccuracyProgram
45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶13.5%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))))
34.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)) re))))
✓81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
32.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 #s(approx (+ (* re re) (* im im)) (*.f64 im im))) re))))
5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶53.1%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
▶4.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))))
27.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
▶0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
✓13.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
▶16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
5.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (fma.f64 #s(literal -2 binary64) im (+.f64 re re))))))
42.6%
(*.f64 #s(literal 1/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))))
47.7%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
51.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
Compiler

Compiled 594 to 592 computations (0.3% saved)

series73.0ms (1.9%)

Memory
7.5MiB live, 109.5MiB allocated; 21ms collecting garbage
Counts
38 → 172
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
#s(literal 1/2 binary64)
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
(*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)
(fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))
(neg.f64 (*.f64 im (/.f64 im re)))
(*.f64 im (/.f64 im re))
(/.f64 im re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))
(*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64)))
(neg.f64 im)
(fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))
(*.f64 re (/.f64 #s(literal 1 binary64) im))
(/.f64 #s(literal 1 binary64) im)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
(/.f64 (*.f64 im im) (neg.f64 re))
(*.f64 im im)
(neg.f64 re)
#s(literal -1/2 binary64)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 2))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (+ 2 (* 2 (/ re im)))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (neg (* im (/ im re))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* im (/ im re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* -2 im)))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (+ (* -2 im) (* 2 re))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (+ 2 (* -2 (/ re im)))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/4 (/ re (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/2 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* re (+ (* 1/16 (/ re (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/4 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/2 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* re (+ (* re (+ (* -1/32 (/ re (* (pow (sqrt (pow im 2)) 3) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/16 (/ 1 (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/4 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/2 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/2 (/ re (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* 1/8 (/ re (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/2 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* -1/16 (/ re (* (pow (sqrt (pow im 2)) 3) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/8 (/ 1 (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/2 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (pow (* 2 (sqrt (pow im 2))) -1/2)))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* re (pow (* 2 (sqrt (pow im 2))) -1/2)) (sqrt (pow im 2)))) (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/2 (/ (pow (* 2 (sqrt (pow im 2))) -1/2) (sqrt (pow im 2)))) (* 1/8 (/ (* re (pow (* 2 (sqrt (pow im 2))) -1/2)) (pow (sqrt (pow im 2)) 2))))) (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/2 (/ (pow (* 2 (sqrt (pow im 2))) -1/2) (sqrt (pow im 2)))) (* re (+ (* 1/16 (/ (* re (pow (* 2 (sqrt (pow im 2))) -1/2)) (pow (sqrt (pow im 2)) 3))) (* 1/8 (/ (pow (* 2 (sqrt (pow im 2))) -1/2) (pow (sqrt (pow im 2)) 2))))))) (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 re)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* re (+ 2 (* 2 (/ im re))))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (* 2 (/ re im))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (* re (+ (* 2 (/ 1 im)) (* 2 (/ 1 re))))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* re (+ 2 (* -2 (/ im re))))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (* -2 (/ re im))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (* re (- (* 2 (/ 1 re)) (* 2 (/ 1 im))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (pow re 4))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* -1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* 1/16 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* 1/8 (* (pow im 2) (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))) (* 1/2 (/ (+ (* -1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (+ (* -1/3072 (pow im 6)) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) (pow re 6))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) (pow re 4))) (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* -1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/3072 (/ (pow im 6) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* 1/384 (/ (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* 1/8 (* (pow im 2) (+ (* -1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))) (* 1/8 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))) (pow re 6))) (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/64 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* 1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (* -1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4)) (/ (* (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (+ (* -1/3072 (pow im 6)) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* re (- (* -2 (/ im re)) 2)))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* -1 (* re (- (* 2 (/ im re)) 2)))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 im)) (* 2 (/ 1 re)))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (pow re 4))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/8 (* (pow im 2) (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))) (+ (* -1/16 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/2 (/ (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/1440 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/3072 (pow im 6)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) (pow re 6))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* -1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* 1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) (pow re 4))) (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/8 (* (pow im 2) (+ (* -1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))) (+ (* -1/8 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/384 (/ (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/3072 (/ (pow im 6) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))) (pow re 6))) (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* -1/64 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* 1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (* 1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4)) (/ (* (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/1440 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/3072 (pow im 6))))) (pow re 6)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (/ (+ (* 2 im) (* 2 re)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (/ (+ (* -2 re) (* 2 im)) im)))
#s(approx (/ 1 im) #s(hole binary64 (/ 1 im)))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/8 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* 1/2 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (+ (* -1 (* (pow im 2) (+ (* -1/4 (/ (- (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (+ (* 1/8 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ (- (+ (* -1/192 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* -1/1440 (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))))))) (* 1/384 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))) (* 1/2 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/8 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* 1/2 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* 1/48 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (+ (* 1/16 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* (pow im 2) (- (* 1/384 (/ 1 (* (pow (sqrt (pow re 2)) 3) (* (pow (+ re (sqrt (pow re 2))) 3) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* -1/4 (/ (- (* 1/16 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* 1/48 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (+ (* -1/192 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* -1/1440 (/ (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/4 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))))))) (+ (* 1/48 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (/ (* (pow im 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* (pow im 2) (* (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)) (* (pow im 2) (* (- (+ (* -1/192 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* -1/1440 (+ (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))))))) (* 1/384 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* im (- (* 2 (/ re im)) 2))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (pow im 2))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* -1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* 1/4 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* 1/2 (* re (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))) (* 1/2 (/ (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2)))))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))) (pow im 3))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))) (pow im 2))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* -1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/48 (/ (pow re 3) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* 1/8 (/ (* re (+ (* -1 (pow re 2)) (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* 1/2 (* re (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))) (* 1/2 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))) (pow im 3))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/4 (/ (pow re 2) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* 1/8 (/ (pow re 2) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (* -1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (pow im 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (pow im 2)) (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) (pow im 3)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (- (+ (* -1/8 (/ (pow re 2) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))) (* -1/4 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/4 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* 1/2 (/ (* re (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))) im)) (* 1/2 (/ (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2)))))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))) im)) (* -1/4 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (- (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* -1/4 (/ (pow re 2) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/8 (/ (pow re 2) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) (* -1/2 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* -1/48 (/ (pow re 3) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* 1/8 (/ (* re (+ (* -1 (pow re 2)) (pow re 2))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* 1/2 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/2 (/ (* re (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) im)))))) (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) im)) (* -1/2 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* 1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) im)) (* -1/2 (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))))) im)) (* -1/2 (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
Calls

6 calls:

TimeVariablePointExpression
23.0ms
re
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (neg im) (+ (* -2 (* re (/ 1 im))) 2) (* re (/ 1 im)) (/ 1 im) 1 (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2)
18.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (neg im) (+ (* -2 (* re (/ 1 im))) 2) (* re (/ 1 im)) (/ 1 im) 1 (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2)
8.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (neg im) (+ (* -2 (* re (/ 1 im))) 2) (* re (/ 1 im)) (/ 1 im) 1 (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2)
6.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (neg im) (+ (* -2 (* re (/ 1 im))) 2) (* re (/ 1 im)) (/ 1 im) 1 (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2)
6.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* (/ re im) 2) 2) (/ re im) re im 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (neg im) (+ (* -2 (* re (/ 1 im))) 2) (* re (/ 1 im)) (/ 1 im) 1 (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2)

rewrite213.0ms (5.7%)

Memory
21.7MiB live, 297.2MiB allocated; 73ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0129212221
0132511480
0813010345
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
210 → 257
Calls
Call 1
Inputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
#s(literal 1/2 binary64)
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
(*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)
(fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))
(neg.f64 (*.f64 im (/.f64 im re)))
(*.f64 im (/.f64 im re))
(/.f64 im re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))
(*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64)))
(neg.f64 im)
(fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))
(*.f64 re (/.f64 #s(literal 1 binary64) im))
(/.f64 #s(literal 1 binary64) im)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
(/.f64 (*.f64 im im) (neg.f64 re))
(*.f64 im im)
(neg.f64 re)
#s(literal -1/2 binary64)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 2))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (+ 2 (* 2 (/ re im)))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (neg (* im (/ im re))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* im (/ im re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* -2 im)))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (+ (* -2 im) (* 2 re))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (+ 2 (* -2 (/ re im)))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/4 (/ re (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/2 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* re (+ (* 1/16 (/ re (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/4 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/2 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* re (+ (* re (+ (* -1/32 (/ re (* (pow (sqrt (pow im 2)) 3) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/16 (/ 1 (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/4 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/2 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/2 (/ re (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* 1/8 (/ re (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/2 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* -1/16 (/ re (* (pow (sqrt (pow im 2)) 3) (pow (* 2 (sqrt (pow im 2))) -1/2)))) (* 1/8 (/ 1 (* (pow (sqrt (pow im 2)) 2) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (* 1/2 (/ 1 (* (sqrt (pow im 2)) (pow (* 2 (sqrt (pow im 2))) -1/2)))))) (/ 1 (pow (* 2 (sqrt (pow im 2))) -1/2)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (pow (* 2 (sqrt (pow im 2))) -1/2)))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/2 (/ (* re (pow (* 2 (sqrt (pow im 2))) -1/2)) (sqrt (pow im 2)))) (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/2 (/ (pow (* 2 (sqrt (pow im 2))) -1/2) (sqrt (pow im 2)))) (* 1/8 (/ (* re (pow (* 2 (sqrt (pow im 2))) -1/2)) (pow (sqrt (pow im 2)) 2))))) (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/2 (/ (pow (* 2 (sqrt (pow im 2))) -1/2) (sqrt (pow im 2)))) (* re (+ (* 1/16 (/ (* re (pow (* 2 (sqrt (pow im 2))) -1/2)) (pow (sqrt (pow im 2)) 3))) (* 1/8 (/ (pow (* 2 (sqrt (pow im 2))) -1/2) (pow (sqrt (pow im 2)) 2))))))) (pow (* 2 (sqrt (pow im 2))) -1/2))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 re)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* re (+ 2 (* 2 (/ im re))))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (* 2 (/ re im))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (* re (+ (* 2 (/ 1 im)) (* 2 (/ 1 re))))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* re (+ 2 (* -2 (/ im re))))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (* -2 (/ re im))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (* re (- (* 2 (/ 1 re)) (* 2 (/ 1 im))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (pow re 4))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* -1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* 1/16 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* 1/8 (* (pow im 2) (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))) (* 1/2 (/ (+ (* -1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (+ (* -1/3072 (pow im 6)) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))))))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) (pow re 6))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) (pow re 4))) (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* -1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/3072 (/ (pow im 6) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* 1/384 (/ (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* 1/8 (* (pow im 2) (+ (* -1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))) (* 1/8 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))) (pow re 6))) (/ 1 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) (+ (* -1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (+ (* -1/64 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) (* 1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (* -1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (/ (* (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) (pow re 2))) (+ (/ (* (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/48 (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4)) (/ (* (exp (* -1/2 (+ (log 4) (* -1 (log (/ 1 re)))))) (+ (* -1/1440 (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6))))) (+ (* -1/3072 (pow im 6)) (* 1/384 (* (pow im 2) (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4)))))))) (pow re 6)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* re (- (* -2 (/ im re)) 2)))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* -1 (* re (- (* 2 (/ im re)) 2)))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 im)) (* 2 (/ 1 re)))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (pow re 4))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/8 (* (pow im 2) (+ (* -1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))) (+ (* -1/16 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/2 (/ (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/1440 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/3072 (pow im 6)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) (pow re 6))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* -1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* 1/16 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/2 (/ (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) (pow re 4))) (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/8 (* (pow im 2) (+ (* -1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/64 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/128 (/ (pow im 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))) (+ (* -1/8 (/ (* (pow im 2) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/384 (/ (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (* 1/3072 (/ (pow im 6) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))) (pow re 6))) (/ 1 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) (+ (* -1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* -1/64 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (+ (* 1/128 (/ (pow im 4) (* (pow re 4) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) (* 1/8 (/ (pow im 2) (* (pow re 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (* 1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (/ (* (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* 1/8 (/ (* (pow im 2) (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) (pow re 2))) (+ (/ (* (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/48 (+ (* -3/4 (pow im 4)) (* 3 (pow im 4)))) (* 1/128 (pow im 4)))) (pow re 4)) (/ (* (exp (* -1/2 (+ (log (/ -1 re)) (log (pow im 2))))) (+ (* -1/384 (* (pow im 2) (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))))) (+ (* -1/1440 (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6))))) (* 1/3072 (pow im 6))))) (pow re 6)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (* (/ re im) 2) 2) #s(hole binary64 (/ (+ (* 2 im) (* 2 re)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) #s(hole binary64 (/ (+ (* -2 re) (* 2 im)) im)))
#s(approx (/ 1 im) #s(hole binary64 (/ 1 im)))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/8 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* 1/2 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (+ (* -1 (* (pow im 2) (+ (* -1/4 (/ (- (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (+ (* 1/8 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/2 (/ (- (+ (* -1/192 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* -1/1440 (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))))))) (* 1/384 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))) (* 1/2 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* 1/8 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* 1/2 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* 1/48 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (pow im 2) (+ (* (pow im 2) (- (+ (* 1/16 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (* (pow im 2) (- (* 1/384 (/ 1 (* (pow (sqrt (pow re 2)) 3) (* (pow (+ re (sqrt (pow re 2))) 3) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* -1/4 (/ (- (* 1/16 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* 1/48 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (+ (* -1/192 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (+ (* -1/1440 (/ (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/4 (/ (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))))))) (+ (* 1/48 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (* (pow (+ re (sqrt (pow re 2))) 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (* (+ re (sqrt (pow re 2))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (/ 1 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (/ (* (pow im 2) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* (pow im 2) (* (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* (pow im 2) (+ (* -1/4 (/ (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (+ (* 1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/32 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2)) (* (pow im 2) (* (- (+ (* -1/192 (/ (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* -1/1440 (+ (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))))))) (* 1/384 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))))) (pow (* 2 (+ re (sqrt (pow re 2)))) -1/2))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) #s(hole binary64 (* im (- (* 2 (/ re im)) 2))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (pow im 2))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* -1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (- (+ (* -1 (/ (+ (* 1/4 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* 1/2 (* re (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))) (* 1/2 (/ (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2)))))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))) (pow im 3))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/8 (/ (pow re 2) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))) (pow im 2))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* -1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (- (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/48 (/ (pow re 3) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* 1/8 (/ (* re (+ (* -1 (pow re 2)) (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* 1/2 (* re (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))) (* 1/2 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))) (pow im 3))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))) (+ (* -1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (+ (* -1/4 (/ (pow re 2) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))) (* 1/8 (/ (pow re 2) (* (pow im 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (* -1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (pow im 2))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) im)) (+ (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (pow im 2)) (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ 1 im)))))) (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) (pow im 3)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1/4 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (- (+ (* -1/8 (/ (pow re 2) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))) (* -1/4 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))))
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (- (+ (* 1/4 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* 1/2 (/ (* re (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))) im)) (* 1/2 (/ (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2)))))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) (+ (* -1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/2 (/ (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))) im)) (* -1/4 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (* 1/2 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1/2 (/ re (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (- (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* -1/4 (/ (pow re 2) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/8 (/ (pow re 2) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) (* -1/2 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (- (* -1 (/ (- (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* -1/48 (/ (pow re 3) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* 1/8 (/ (* re (+ (* -1 (pow re 2)) (pow re 2))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (+ (* 1/2 (/ (* re (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) (* im (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) (* 1/2 (/ (* re (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) im)))))) (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (+ (* -1/4 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) (* 1/8 (/ (pow re 2) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))) im)) (* -1/2 (/ re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)) (/ 1 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* 1/2 (/ (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2)))) im)) (* -1/2 (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/12 (+ (* -3 (pow re 3)) (* 2 (pow re 3)))) (+ (* -1/48 (pow re 3)) (* 1/8 (* re (+ (* -1 (pow re 2)) (pow re 2))))))) im)) (* (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (+ (* -1/4 (+ (* -1 (pow re 2)) (pow re 2))) (* 1/8 (pow re 2))))) im)) (* -1/2 (* re (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))) im)))))
Outputs
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
#s(literal 1/2 binary64)
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) #s(literal 1/2 binary64))
(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 (*.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64))
(*.f64 re (/.f64 #s(literal 1 binary64) im))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 #s(literal 1 binary64) (/.f64 im re))
(/.f64 re im)
re
im
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))
(neg.f64 (*.f64 im (/.f64 im re)))
(*.f64 im (/.f64 im re))
(*.f64 im (/.f64 #s(literal 1 binary64) re))
(/.f64 #s(literal 1 binary64) (/.f64 re im))
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 im re)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))))
(*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))
(neg.f64 im)
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 re im)))) (*.f64 #s(literal -2 binary64) (/.f64 re im)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) (*.f64 #s(literal -2 binary64) (/.f64 re im))) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64)))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) (*.f64 #s(literal -2 binary64) (/.f64 re im)) (-.f64 #s(literal 4 binary64) (*.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64)))))
(fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64))
(-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal -2 binary64))
(+.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64))
(*.f64 re (/.f64 #s(literal 1 binary64) im))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 #s(literal 1 binary64) (/.f64 im re))
(/.f64 re im)
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im))
(pow.f64 im #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 im))
(/.f64 #s(literal 1 binary64) (/.f64 im #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) im)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64)))
(/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))
(*.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)) #s(literal -1 binary64))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/4 binary64)) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal -1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
(*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (neg.f64 re)))
(/.f64 (*.f64 im im) (neg.f64 re))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.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)))
(neg.f64 re)
#s(literal -1/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) (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) (*.f64 #s(literal 1/2 binary64) (/.f64 re (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 (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)))))))) (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 (fma.f64 re (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re (-.f64 (pow.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.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 im im)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))) (*.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) (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 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 (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)))))))) (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 (fma.f64 re (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (-.f64 (pow.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im)))) #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.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 im im)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))) (*.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 #s(literal 2 binary64) (/.f64 re (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 #s(literal 2 binary64) (*.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(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) im (*.f64 #s(literal 2 binary64) re)))
#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 re re)
#s(approx (neg (* im (/ im re))) (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))
#s(approx (* im (/ im re)) (/.f64 (*.f64 im im) re))
#s(approx (/ im re) (/.f64 im re))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (fma.f64 #s(literal -2 binary64) im (*.f64 #s(literal 2 binary64) re)))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 re im))))
#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/4 binary64) (/.f64 re (*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)))) (*.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 re (fma.f64 #s(literal 1/16 binary64) (/.f64 re (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im))) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)))) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))) (*.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 re (fma.f64 re (fma.f64 #s(literal -1/32 binary64) (/.f64 re (*.f64 (pow.f64 (*.f64 im im) #s(literal 3/2 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)))) (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im))) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))) (*.f64 #s(literal 1/2 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))) (fma.f64 #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 #s(literal 1/8 binary64) (/.f64 re (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im))) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 re (fma.f64 #s(literal -1/16 binary64) (/.f64 re (*.f64 (pow.f64 (*.f64 im im) #s(literal 3/2 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)))) (/.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im))) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (*.f64 im im)) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))) (sqrt.f64 (*.f64 im im))) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 re (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)) (sqrt.f64 (*.f64 im im))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)))))) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 re (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)) (sqrt.f64 (*.f64 im im))) (*.f64 re (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 re (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))) (pow.f64 (*.f64 im im) #s(literal 3/2 binary64))) (*.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64)) (*.f64 (sqrt.f64 (*.f64 im im)) (sqrt.f64 (*.f64 im im)))))))) (pow.f64 (*.f64 #s(literal 2 binary64) (sqrt.f64 (*.f64 im im))) #s(literal -1/2 binary64))))
#s(approx (neg re) (*.f64 #s(literal -1 binary64) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (*.f64 re (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 re (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 re (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 re (+.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 re (+.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 re (+.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)) (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 re (+.f64 #s(literal 4 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.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 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 (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) re))
#s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 im re)))))
#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) im) (/.f64 #s(literal 2 binary64) re))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (*.f64 re (+.f64 #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) (/.f64 im re)))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) (*.f64 #s(literal -2 binary64) (/.f64 re im)))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) (*.f64 re (-.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))))) (*.f64 (*.f64 re re) (*.f64 re re))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (*.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/1440 binary64) (fma.f64 #s(literal 15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 45/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 45/2 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))))) (fma.f64 #s(literal -1/3072 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (/.f64 (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (*.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))) (*.f64 (*.f64 re re) (*.f64 re re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/1440 binary64) (/.f64 (fma.f64 #s(literal 15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 45/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 45/2 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (fma.f64 #s(literal -1/3072 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (fma.f64 #s(literal 1/384 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (fma.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/48 binary64) (/.f64 (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (*.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))))))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (fma.f64 #s(literal -1/48 binary64) (/.f64 (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))) (*.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (*.f64 re re)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (*.f64 re re)) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (*.f64 (*.f64 re re) (*.f64 re re))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re))))))) (*.f64 re re)) (+.f64 (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (*.f64 (*.f64 re re) (*.f64 re re))) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 4 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 re)))))) (fma.f64 #s(literal -1/1440 binary64) (fma.f64 #s(literal 15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (fma.f64 #s(literal 45/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 45/2 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))))) (fma.f64 #s(literal -1/3072 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 1/384 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -3/2 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))))))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re 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 -1 binary64) (/.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 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))) (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))) (fma.f64 #s(literal 1/256 binary64) (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))))))) (*.f64 (*.f64 re re) re)) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.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 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))) (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))))))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))) #s(literal 3 binary64))) (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)))))))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -1 binary64) (/.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 #s(literal -1 binary64) (/.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 #s(literal -1 binary64) (/.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 (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 im re)) #s(literal 2 binary64)))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (*.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 im re)) #s(literal 2 binary64)))))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) (*.f64 #s(literal -1 binary64) (*.f64 re (-.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 #s(literal 2 binary64) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))))) (*.f64 (*.f64 re re) (*.f64 re re))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (*.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))) (fma.f64 #s(literal -1/16 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/384 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (fma.f64 #s(literal -1/1440 binary64) (fma.f64 #s(literal -720 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 im im)) (fma.f64 #s(literal -15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 45/2 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))))) (*.f64 #s(literal 1/3072 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (fma.f64 #s(literal 1/16 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/48 binary64) (/.f64 (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))) (*.f64 (*.f64 re re) (*.f64 re re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/48 binary64) (/.f64 (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (fma.f64 #s(literal -1/384 binary64) (/.f64 (*.f64 (*.f64 im im) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (fma.f64 #s(literal -1/1440 binary64) (/.f64 (fma.f64 #s(literal -720 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 im im)) (fma.f64 #s(literal -15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 45/2 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 #s(literal 1/3072 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))))))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (fma.f64 #s(literal -1/48 binary64) (/.f64 (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (fma.f64 #s(literal -1/64 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (fma.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 re re)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 re re)) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (*.f64 (*.f64 re re) (*.f64 re re))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im)))))) (*.f64 re re)) (+.f64 (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))) (fma.f64 #s(literal -1/48 binary64) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im)))) (*.f64 #s(literal 1/128 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (*.f64 (*.f64 re re) (*.f64 re re))) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) re) (*.f64 im im))))) (fma.f64 #s(literal -1/384 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -3/4 binary64) (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 #s(literal 3 binary64) (*.f64 (*.f64 im im) (*.f64 im im))))) (fma.f64 #s(literal -1/1440 binary64) (fma.f64 #s(literal -720 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 im im)) (fma.f64 #s(literal -15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 #s(literal 45/2 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im))))) (*.f64 #s(literal 1/3072 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)))))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re 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 re (sqrt.f64 (*.f64 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 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re)))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.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 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 1/4 binary64) (pow.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))) #s(literal 2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal 3/2 binary64))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 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 re (sqrt.f64 (*.f64 re re))))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))) #s(literal 2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 re re) #s(literal 5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))) #s(literal 2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)))) (*.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 1 binary64)) (sqrt.f64 (*.f64 re re))))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))) (/.f64 #s(literal 1/4 binary64) (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (*.f64 im im) (+.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))) #s(literal 2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal 3/2 binary64))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))) (*.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))) #s(literal 2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 (*.f64 im im) (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 (*.f64 re re) #s(literal 5/2 binary64))) (*.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (pow.f64 (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))) #s(literal 2 binary64))) (/.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)))) (*.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 1 binary64)) (sqrt.f64 (*.f64 re re))))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) (*.f64 re re))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 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 re (sqrt.f64 (*.f64 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 re (sqrt.f64 (*.f64 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 (*.f64 re re) #s(literal 3/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))))))
#s(approx (+ (* (/ re im) 2) 2) (+.f64 #s(literal 2 binary64) (/.f64 (*.f64 #s(literal 2 binary64) re) im)))
#s(approx im im)
#s(approx (neg im) (*.f64 #s(literal -1 binary64) im))
#s(approx (+ (* -2 (* re (/ 1 im))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) re (*.f64 #s(literal 2 binary64) im)) im))
#s(approx (/ 1 im) (/.f64 #s(literal 1 binary64) im))
#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 re (sqrt.f64 (*.f64 re re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (/.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 1/48 binary64) (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))) (/.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (-.f64 (/.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 1/48 binary64) (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))) (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (fma.f64 #s(literal 1/48 binary64) (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 #s(literal -1/192 binary64) (/.f64 (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (*.f64 #s(literal -1/1440 binary64) (+.f64 (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 2 binary64)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (+.f64 (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 5/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (/.f64 #s(literal 30 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 3 binary64))))))) (/.f64 #s(literal 1/384 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 3 binary64)))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))))) (/.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal 1/48 binary64) (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))) (/.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))))) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 im im) (fma.f64 (*.f64 im im) (-.f64 (+.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (*.f64 (*.f64 im im) (-.f64 (/.f64 #s(literal 1/384 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (*.f64 (pow.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))))) (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (fma.f64 #s(literal -1/192 binary64) (/.f64 (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (fma.f64 #s(literal -1/1440 binary64) (*.f64 (+.f64 (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 2 binary64)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (+.f64 (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 5/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (/.f64 #s(literal 30 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 3 binary64))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 #s(literal 1/48 binary64) (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)))))))))))) (fma.f64 #s(literal 1/48 binary64) (*.f64 (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (sqrt.f64 (*.f64 re re))) (*.f64 (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))))) (/.f64 #s(literal 1/4 binary64) (*.f64 (sqrt.f64 (*.f64 re re)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (*.f64 im im) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)) (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (*.f64 (*.f64 im im) (*.f64 (fma.f64 #s(literal 1/48 binary64) (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 im im) (fma.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)) (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (*.f64 (*.f64 im im) (fma.f64 (fma.f64 #s(literal 1/48 binary64) (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (/.f64 #s(literal 1/32 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64)) (*.f64 (*.f64 im im) (*.f64 (-.f64 (fma.f64 #s(literal -1/192 binary64) (/.f64 (+.f64 (/.f64 #s(literal 3 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 2 binary64))) (/.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 3/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re)))))) (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (*.f64 #s(literal -1/1440 binary64) (+.f64 (/.f64 #s(literal 30 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 5/2 binary64)) (+.f64 re (sqrt.f64 (*.f64 re re))))) (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 (*.f64 re re) #s(literal 2 binary64)) (*.f64 (+.f64 re (sqrt.f64 (*.f64 re re))) (+.f64 re (sqrt.f64 (*.f64 re re)))))))))) (/.f64 #s(literal 1/384 binary64) (pow.f64 (*.f64 (sqrt.f64 (*.f64 re re)) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal 3 binary64)))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))))) (pow.f64 (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 re re)))) #s(literal -1/2 binary64))))
#s(approx (* im im) (*.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 im (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 re (*.f64 (*.f64 im 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/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 re (*.f64 (*.f64 im 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/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)))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 #s(literal 1/2 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 (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 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/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) (/.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/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)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) (/.f64 re (*.f64 (*.f64 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 -1/4 binary64) (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) (fma.f64 #s(literal 2 binary64) (/.f64 re im) (/.f64 (*.f64 re re) (*.f64 im im)))))))
#s(approx (* (neg im) (+ (* -2 (* re (/ 1 im))) 2)) (*.f64 im (-.f64 (*.f64 #s(literal 2 binary64) (/.f64 re im)) #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))))) (*.f64 im im)) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (*.f64 #s(literal -1/4 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/12 binary64) (fma.f64 #s(literal -3 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/8 binary64) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)))))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re))) (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal 1/2 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))) (*.f64 im im)) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/12 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 (*.f64 re re) re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re)))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))))))) (*.f64 (*.f64 im im) im)) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) im))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) im) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re)))) (*.f64 im im)))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) im) (+.f64 (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re)))) (*.f64 im im)) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (fma.f64 #s(literal -1/12 binary64) (fma.f64 #s(literal -3 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/8 binary64) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re))))))) (*.f64 (*.f64 im im) im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal -1/2 binary64) (*.f64 im (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal -1 binary64) (*.f64 im (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 re (*.f64 (*.f64 im 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/4 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal 1/2 binary64) (/.f64 re (*.f64 (*.f64 im 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 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) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 #s(literal 1/2 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 (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 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/2 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) (/.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 (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)) (/.f64 re (*.f64 (*.f64 im im) (sqrt.f64 (/.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 -1 binary64) (/.f64 (*.f64 re re) im) (*.f64 #s(literal 2 binary64) 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 -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) (*.f64 #s(literal 2 binary64) re)) 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 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1/4 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re))) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))) (*.f64 #s(literal -1/4 binary64) (/.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))) im) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re)))) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))) im) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/12 binary64) (fma.f64 #s(literal -3 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/8 binary64) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)))))) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re))) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))) im)) (*.f64 #s(literal -1/4 binary64) (/.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))) im) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal -1/2 binary64) (/.f64 re (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re re) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) (*.f64 #s(literal -1/2 binary64) (/.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))) im) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/12 binary64) (/.f64 (fma.f64 #s(literal -3 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (fma.f64 #s(literal -1/48 binary64) (/.f64 (*.f64 (*.f64 re re) re) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re))) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re)))) (*.f64 im (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) im)))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 re re) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))))) im)) (*.f64 #s(literal -1/2 binary64) (/.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))) im) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) im))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re)))) im) (*.f64 #s(literal -1/2 binary64) (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))) im))))
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/12 binary64) (fma.f64 #s(literal -3 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 #s(literal -1/48 binary64) (*.f64 (*.f64 re re) re) (*.f64 #s(literal 1/8 binary64) (*.f64 re (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re))))))) im) (*.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (fma.f64 #s(literal -1/4 binary64) (fma.f64 #s(literal -1 binary64) (*.f64 re re) (*.f64 re re)) (*.f64 #s(literal 1/8 binary64) (*.f64 re re))))) im) (*.f64 #s(literal -1/2 binary64) (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))) im))))

eval32.0ms (0.9%)

Memory
-31.7MiB live, 68.2MiB allocated; 10ms collecting garbage
Compiler

Compiled 7 180 to 1 605 computations (77.6% saved)

prune17.0ms (0.5%)

Memory
-4.0MiB live, 43.0MiB allocated; 2ms collecting garbage
Pruning

26 alts after pruning (19 fresh and 7 done)

PrunedKeptTotal
New2159224
Fresh11011
Picked235
Done044
Total21826244
Accuracy
91.9%
Counts
244 → 26
Alt Table
Click to see full alt table
StatusAccuracyProgram
13.5%
(/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))
45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
49.6%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) im))))))
0.0%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) im))))))
34.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)) re))))
✓81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
✓4.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))))
▶27.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
✓13.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 #s(literal 1 binary64) (/.f64 re im)))))))
▶16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))))))
▶54.2%
(*.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) im (*.f64 #s(literal 2 binary64) re))))))
5.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (fma.f64 #s(literal -2 binary64) im (+.f64 re re))))))
42.6%
(*.f64 #s(literal 1/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))))
▶47.7%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
51.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
0.0%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (exp.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))))
47.6%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))))
▶0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
Compiler

Compiled 886 to 856 computations (3.4% saved)

series151.0ms (4%)

Memory
-1.8MiB live, 228.7MiB allocated; 36ms collecting garbage
Counts
40 → 148
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) im (*.f64 #s(literal 2 binary64) re))))))
#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) im (*.f64 #s(literal 2 binary64) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) (fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re)))
(fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re))
#s(literal 2 binary64)
im
(*.f64 #s(literal 2 binary64) re)
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))))
(neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re))))
(*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))
(*.f64 im (/.f64 #s(literal 1 binary64) re))
(/.f64 #s(literal 1 binary64) re)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64)))
(*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))
(log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))
(/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))
(exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))
(*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(literal -1/2 binary64)
(+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))
(log.f64 #s(literal 2 binary64))
(*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(literal -1 binary64)
(log.f64 (/.f64 #s(literal -1 binary64) im))
(/.f64 #s(literal -1 binary64) im)
Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 re) #s(hole binary64 (* 2 re)))
#s(approx re #s(hole binary64 re))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (neg (* im (* im (/ 1 re)))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* im (* im (/ 1 re))) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* im (/ 1 re)) #s(hole binary64 (/ im re)))
#s(approx (/ 1 re) #s(hole binary64 (/ 1 re)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 (sqrt (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* re (+ (* -1/12 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/12 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 (sqrt (pow im 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (/ re (sqrt (pow im 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (* re (+ (* -1/6 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/6 (/ 1 (pow (sqrt (pow im 2)) 3))))) (/ 1 (sqrt (pow im 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* re (+ 2 (* 2 (/ im re))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (* -1 (log (/ 1 re))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* re (- (* -2 (/ im re)) 2)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (log (pow im 2)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (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 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/48 (* (pow im 2) (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/1440 (* (pow im 2) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/24 (* (pow im 2) (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/24 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/720 (* (pow im 2) (+ (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))))))))) (* 1/2 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (log (neg im))))))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) #s(hole binary64 (exp (* -1/2 (+ (log 2) (log (neg im)))))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) #s(hole binary64 (* -1/2 (+ (log 2) (log (neg im))))))
#s(approx (+ (log 2) (* -1 (log (/ -1 im)))) #s(hole binary64 (+ (log 2) (log (neg im)))))
#s(approx (* -1 (log (/ -1 im))) #s(hole binary64 (log (neg im))))
#s(approx (log (/ -1 im)) #s(hole binary64 (* -1 (log (neg im)))))
#s(approx (/ -1 im) #s(hole binary64 (/ -1 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (neg (/ 1 im))))))))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (neg (/ 1 im)))))))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) #s(hole binary64 (* -1/2 (+ (log 2) (* -1 (log (neg (/ 1 im))))))))
#s(approx (+ (log 2) (* -1 (log (/ -1 im)))) #s(hole binary64 (+ (log 2) (* -1 (log (neg (/ 1 im)))))))
#s(approx (* -1 (log (/ -1 im))) #s(hole binary64 (* -1 (log (neg (/ 1 im))))))
#s(approx (log (/ -1 im)) #s(hole binary64 (log (neg (/ 1 im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im))))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) #s(hole binary64 (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* -1 (log (/ -1 im))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ -1 im)) #s(hole binary64 (log (/ -1 im))))
Calls

6 calls:

TimeVariablePointExpression
51.0ms
im
@0
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* 2 im) (* 2 re)) 2 im (* 2 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)) (* 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)) (neg (* im (* im (/ 1 re)))) (* im (* im (/ 1 re))) (* im (/ 1 re)) (/ 1 re) 1 (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) -1/2 (+ (log 2) (* -1 (log (/ -1 im)))) (log 2) (* -1 (log (/ -1 im))) -1 (log (/ -1 im)) (/ -1 im))
26.0ms
im
@inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* 2 im) (* 2 re)) 2 im (* 2 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)) (* 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)) (neg (* im (* im (/ 1 re)))) (* im (* im (/ 1 re))) (* im (/ 1 re)) (/ 1 re) 1 (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) -1/2 (+ (log 2) (* -1 (log (/ -1 im)))) (log 2) (* -1 (log (/ -1 im))) -1 (log (/ -1 im)) (/ -1 im))
17.0ms
im
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* 2 im) (* 2 re)) 2 im (* 2 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)) (* 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)) (neg (* im (* im (/ 1 re)))) (* im (* im (/ 1 re))) (* im (/ 1 re)) (/ 1 re) 1 (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) -1/2 (+ (log 2) (* -1 (log (/ -1 im)))) (log 2) (* -1 (log (/ -1 im))) -1 (log (/ -1 im)) (/ -1 im))
4.0ms
re
@-inf
((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (+ (* (/ re im) 2) 2) im) (+ (* 2 im) (* 2 re)) 2 im (* 2 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)) (* 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)) (neg (* im (* im (/ 1 re)))) (* im (* im (/ 1 re))) (* im (/ 1 re)) (/ 1 re) 1 (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) -1/2 (+ (log 2) (* -1 (log (/ -1 im)))) (log 2) (* -1 (log (/ -1 im))) -1 (log (/ -1 im)) (/ -1 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)) (* (+ (* (/ re im) 2) 2) im) (+ (* 2 im) (* 2 re)) 2 im (* 2 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)) (* 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)) (neg (* im (* im (/ 1 re)))) (* im (* im (/ 1 re))) (* im (/ 1 re)) (/ 1 re) 1 (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) -1/2 (+ (log 2) (* -1 (log (/ -1 im)))) (log 2) (* -1 (log (/ -1 im))) -1 (log (/ -1 im)) (/ -1 im))

rewrite251.0ms (6.7%)

Memory
4.2MiB live, 340.4MiB allocated; 66ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
08656695
08996164
166196074
081305254
Stop Event
1×iter-limit
1×node-limit
1×iter-limit
Counts
188 → 289
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) im (*.f64 #s(literal 2 binary64) re))))))
#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) im (*.f64 #s(literal 2 binary64) re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) (fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re)))
(fma.f64 #s(literal 2 binary64) im (*.f64 #s(literal 2 binary64) re))
#s(literal 2 binary64)
im
(*.f64 #s(literal 2 binary64) re)
re
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))))
(neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re))))
(*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))
(*.f64 im (/.f64 #s(literal 1 binary64) re))
(/.f64 #s(literal 1 binary64) re)
#s(literal 1 binary64)
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64)))
(*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))
(log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))))
(/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))))
(exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))
(*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))
#s(literal -1/2 binary64)
(+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))
(log.f64 #s(literal 2 binary64))
(*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))
#s(literal -1 binary64)
(log.f64 (/.f64 #s(literal -1 binary64) im))
(/.f64 #s(literal -1 binary64) im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* 2 im)))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 re) #s(hole binary64 (* 2 re)))
#s(approx re #s(hole binary64 re))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (neg (* im (* im (/ 1 re)))) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* im (* im (/ 1 re))) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* im (/ 1 re)) #s(hole binary64 (/ im re)))
#s(approx (/ 1 re) #s(hole binary64 (/ 1 re)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 (sqrt (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* re (+ (* -1/12 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/12 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 (sqrt (pow im 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (/ re (sqrt (pow im 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (* re (+ (* -1/6 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/6 (/ 1 (pow (sqrt (pow im 2)) 3))))) (/ 1 (sqrt (pow im 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* re (+ 2 (* 2 (/ im re))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (* -1 (log (/ 1 re))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* re (- (* -2 (/ im re)) 2)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (log (pow im 2)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (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 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/48 (* (pow im 2) (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/1440 (* (pow im 2) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/24 (* (pow im 2) (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/24 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/720 (* (pow im 2) (+ (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))))))))) (* 1/2 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (log (neg im))))))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) #s(hole binary64 (exp (* -1/2 (+ (log 2) (log (neg im)))))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) #s(hole binary64 (* -1/2 (+ (log 2) (log (neg im))))))
#s(approx (+ (log 2) (* -1 (log (/ -1 im)))) #s(hole binary64 (+ (log 2) (log (neg im)))))
#s(approx (* -1 (log (/ -1 im))) #s(hole binary64 (log (neg im))))
#s(approx (log (/ -1 im)) #s(hole binary64 (* -1 (log (neg im)))))
#s(approx (/ -1 im) #s(hole binary64 (/ -1 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (neg (/ 1 im))))))))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (neg (/ 1 im)))))))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) #s(hole binary64 (* -1/2 (+ (log 2) (* -1 (log (neg (/ 1 im))))))))
#s(approx (+ (log 2) (* -1 (log (/ -1 im)))) #s(hole binary64 (+ (log 2) (* -1 (log (neg (/ 1 im)))))))
#s(approx (* -1 (log (/ -1 im))) #s(hole binary64 (* -1 (log (neg (/ 1 im))))))
#s(approx (log (/ -1 im)) #s(hole binary64 (log (neg (/ 1 im)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (* (+ (* (/ re im) 2) 2) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im))))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) #s(hole binary64 (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) #s(hole binary64 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) #s(hole binary64 (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))
#s(approx (* -1 (log (/ -1 im))) #s(hole binary64 (* -1 (log (/ -1 im)))))
#s(approx (log (/ -1 im)) #s(hole binary64 (log (/ -1 im))))
Outputs
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))))
#s(literal 1/2 binary64)
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))
#s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (+.f64 re re) (+.f64 im im))) (+.f64 im im))
(*.f64 #s(literal 2 binary64) (+.f64 im re))
(/.f64 (-.f64 (*.f64 (+.f64 im im) (+.f64 im im)) (*.f64 (+.f64 re re) (+.f64 re re))) (-.f64 (+.f64 im im) (+.f64 re re)))
(/.f64 (fma.f64 (*.f64 (*.f64 im im) im) #s(literal 8 binary64) (*.f64 #s(literal 8 binary64) (*.f64 (*.f64 re re) re))) (fma.f64 (+.f64 im im) (+.f64 im im) (-.f64 (*.f64 (+.f64 re re) (+.f64 re re)) (*.f64 (+.f64 im im) (+.f64 re re)))))
(fma.f64 (+.f64 #s(literal 1 binary64) (/.f64 im im)) im (+.f64 re re))
(fma.f64 im #s(literal 2 binary64) (+.f64 re re))
(fma.f64 re #s(literal 2 binary64) (+.f64 im im))
(fma.f64 #s(literal 2 binary64) im (+.f64 re re))
(fma.f64 #s(literal 2 binary64) re (+.f64 im im))
(-.f64 (+.f64 im im) (*.f64 #s(literal -2 binary64) re))
(-.f64 (+.f64 im im) (neg.f64 (+.f64 re re)))
(+.f64 (+.f64 im im) (+.f64 re re))
(+.f64 (+.f64 re re) (+.f64 im im))
#s(literal 2 binary64)
im
(*.f64 re #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) re)
(+.f64 re re)
re
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(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))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
(*.f64 #s(literal 4 binary64) re)
(*.f64 re #s(literal 4 binary64))
#s(literal 4 binary64)
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))))
(fabs.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (neg.f64 im) (/.f64 im re))
(*.f64 (*.f64 (/.f64 im re) im) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 im re) im))
(*.f64 im (neg.f64 (/.f64 im re)))
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re)
(neg.f64 (*.f64 (/.f64 im re) im))
(*.f64 (/.f64 im re) im)
(*.f64 (*.f64 im im) (/.f64 #s(literal 1 binary64) re))
(*.f64 im (/.f64 im re))
(/.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 (/.f64 #s(literal 1 binary64) re) im)
(*.f64 im (/.f64 #s(literal 1 binary64) re))
(/.f64 (*.f64 im #s(literal 1 binary64)) re)
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 #s(literal 1 binary64) (/.f64 re im))
(/.f64 im re)
(*.f64 (pow.f64 re #s(literal -3 binary64)) (*.f64 re re))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re))
(pow.f64 re #s(literal -1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 re))
(/.f64 #s(literal 1 binary64) (/.f64 re #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) re)
#s(literal 1 binary64)
(*.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64)))
(pow.f64 (exp.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))) #s(literal 1/2 binary64))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64))
(fabs.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))) (sinh.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
(*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(log.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64)))
(log.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 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im))
(/.f64 (fma.f64 (*.f64 im im) im (*.f64 (*.f64 im im) im)) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im))))
(-.f64 im (neg.f64 im))
(+.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 #s(literal -1/2 binary64) (neg.f64 (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)))
(/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(*.f64 (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (log.f64 #s(literal 2 binary64))))
(*.f64 (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))
(pow.f64 (exp.f64 #s(literal -1/2 binary64)) (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))))
(/.f64 (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (log.f64 (neg.f64 im))))))
(/.f64 (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (log.f64 #s(literal 2 binary64))) (pow.f64 (exp.f64 #s(literal -1/2 binary64)) (neg.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))))))
(fabs.f64 (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(+.f64 (cosh.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
(*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))))
(fma.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64) (*.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) #s(literal -1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (log.f64 #s(literal 2 binary64))) (*.f64 #s(literal -1/2 binary64) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))
(+.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) #s(literal -1/2 binary64)))
#s(literal -1/2 binary64)
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64)))) (log.f64 #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))))) (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))
(/.f64 (+.f64 (pow.f64 (log.f64 #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) #s(literal 3 binary64))) (fma.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64)) (-.f64 (*.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) (*.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))))
(fma.f64 (neg.f64 (log.f64 (neg.f64 im))) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))
(fma.f64 #s(literal -1 binary64) (neg.f64 (log.f64 (neg.f64 im))) (log.f64 #s(literal 2 binary64)))
(-.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (log.f64 (neg.f64 im)))))
(-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))
(+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64)))
(+.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))))
(log.f64 (pow.f64 #s(literal 2 binary64) (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))))))
(log.f64 (*.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)) #s(literal 2 binary64)))
(log.f64 (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64))))
(-.f64 (log.f64 #s(literal 4 binary64)) (log.f64 #s(literal 2 binary64)))
(log.f64 #s(literal 2 binary64))
(*.f64 (neg.f64 (log.f64 (neg.f64 im))) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 (neg.f64 im))))
(neg.f64 (neg.f64 (log.f64 (neg.f64 im))))
(log.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)))
(log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal -1 binary64)))
#s(literal -1 binary64)
(*.f64 (log.f64 (neg.f64 im)) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (log.f64 (neg.f64 im)))
(neg.f64 (log.f64 (/.f64 im #s(literal -1 binary64))))
(neg.f64 (log.f64 (neg.f64 im)))
(-.f64 (log.f64 #s(literal -1 binary64)) (log.f64 im))
(-.f64 #s(literal 0 binary64) (log.f64 (/.f64 im #s(literal -1 binary64))))
(-.f64 #s(literal 0 binary64) (log.f64 (neg.f64 im)))
(+.f64 (log.f64 #s(literal -1 binary64)) (neg.f64 (log.f64 im)))
(log.f64 (pow.f64 (neg.f64 im) #s(literal -1 binary64)))
(log.f64 (/.f64 #s(literal -1 binary64) im))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im))
(/.f64 #s(literal -1 binary64) im)
(/.f64 #s(literal 1 binary64) (/.f64 im #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 im))
(neg.f64 (/.f64 #s(literal 1 binary64) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 re (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 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(literal 1/4 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 re (/.f64 (-.f64 (pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 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)))))) re (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 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 (/.f64 re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 re (fma.f64 (/.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 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(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 (-.f64 (pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) #s(literal -4 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 im im))))) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im))) (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 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)))))) re (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))) re (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re (sqrt.f64 (*.f64 im im)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (sqrt.f64 (*.f64 im im))) #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re #s(literal 2 binary64)) re (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (* (+ (* (/ re im) 2) 2) im) (+.f64 im im))
#s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 re) (+.f64 re re))
#s(approx re re)
#s(approx (* 4 re) (*.f64 #s(literal 4 binary64) re))
#s(approx (neg (* im (* im (/ 1 re)))) (*.f64 (neg.f64 im) (/.f64 im re)))
#s(approx (* im (* im (/ 1 re))) (*.f64 (/.f64 im re) im))
#s(approx (* im (/ 1 re)) (/.f64 im re))
#s(approx (/ 1 re) (/.f64 #s(literal 1 binary64) re))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 im im))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 #s(literal -1/12 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) re (log.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 3/80 binary64) (*.f64 re re)) (pow.f64 (*.f64 im im) #s(literal 5/2 binary64))) (/.f64 #s(literal 1/12 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 im im)))) re (log.f64 (sqrt.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (log.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64))) (/.f64 re (sqrt.f64 (*.f64 im im)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 re re) (*.f64 (*.f64 im im) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re (log.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 3/40 binary64) (*.f64 re re)) (pow.f64 (*.f64 im im) #s(literal 5/2 binary64))) (/.f64 #s(literal 1/6 binary64) (*.f64 (*.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 im im)))) re (log.f64 (*.f64 (sqrt.f64 (*.f64 im im)) #s(literal 2 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 re #s(literal 1/2 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 re #s(literal 5 binary64)) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (pow.f64 (/.f64 #s(literal 4 binary64) re) #s(literal 3/2 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (*.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 (*.f64 re re) re) (/.f64 #s(literal 2 binary64) (sqrt.f64 re)))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) (sqrt.f64 re))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal -1/4 binary64) (fma.f64 (/.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)) 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 (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (*.f64 re re))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal -9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/48 binary64) (fma.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (*.f64 re re)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (/.f64 (fma.f64 #s(literal 15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) #s(literal 135/4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/1440 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal -9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/48 binary64) (fma.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (*.f64 re re))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 4 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/4 binary64) (neg.f64 (neg.f64 (log.f64 re)))) (log.f64 #s(literal 4 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 4 binary64))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal -9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 re))) (log.f64 #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 #s(literal 15/4 binary64) (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) #s(literal 135/4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal -9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 (*.f64 re re) re))) #s(literal 1/16 binary64) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 re re))) #s(literal 1/32 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/16 binary64))) (*.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/16 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 3 binary64))) #s(literal 1/256 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 re re))) #s(literal 1/32 binary64)))) (*.f64 (*.f64 re re) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 (*.f64 re re) re))) #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 re re))) #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/8 binary64))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/128 binary64) (/.f64 (pow.f64 im #s(literal 8 binary64)) (pow.f64 (*.f64 re (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re))) (*.f64 re re))) #s(literal 1/16 binary64)))) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (neg.f64 im) (/.f64 im re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im))) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re)))) (fma.f64 (/.f64 (*.f64 (*.f64 im im) (*.f64 im im)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/8 binary64) (*.f64 im im)))) re)))
#s(approx (* (+ (* (/ re im) 2) 2) im) (neg.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 im re) #s(literal -2 binary64)) re)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 im im)) (*.f64 re re))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/48 binary64) (*.f64 (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 #s(literal 1/1440 binary64) (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -720 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) #s(literal 75/4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/48 binary64) (*.f64 (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (*.f64 (*.f64 im im) (/.f64 #s(literal -1 binary64) re))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 im im) (*.f64 im im)) #s(literal 9/4 binary64)) (*.f64 (*.f64 re re) (*.f64 re re))) #s(literal 1/24 binary64) (*.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -720 binary64) (*.f64 (*.f64 (*.f64 (*.f64 im im) im) (*.f64 (*.f64 im im) im)) #s(literal 75/4 binary64))) (*.f64 (*.f64 (*.f64 re re) re) (*.f64 (*.f64 re re) re))) #s(literal 1/720 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 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #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 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/4 binary64) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #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 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im)) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 im im) (/.f64 (-.f64 (/.f64 #s(literal 1/8 binary64) (pow.f64 re #s(literal 5 binary64))) (/.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re)))) (*.f64 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (sqrt.f64 (*.f64 re re))))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))) #s(literal 1/2 binary64) (*.f64 (/.f64 (+.f64 (/.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) #s(literal 1 binary64)) (*.f64 re re))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)) (*.f64 re re))))) (*.f64 im im) (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64) (/.f64 (*.f64 im im) (sqrt.f64 (*.f64 re re)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 (*.f64 re re) re)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 re re) re))) (*.f64 im im) (/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 re re)))) (*.f64 im im) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx im im)
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (/.f64 (*.f64 im im) (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re))) #s(literal 1/4 binary64) (log.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 (*.f64 (+.f64 (/.f64 #s(literal 3 binary64) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 3 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (+.f64 (sqrt.f64 (*.f64 re re)) re)) (*.f64 re re)))) (*.f64 im im)) #s(literal -1/48 binary64) (/.f64 #s(literal 1/4 binary64) (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re)))) (*.f64 im im) (log.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/1440 binary64) (*.f64 (+.f64 (+.f64 (/.f64 #s(literal 30 binary64) (pow.f64 (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re)) #s(literal 3 binary64))) (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 re #s(literal 5 binary64)) (+.f64 (sqrt.f64 (*.f64 re re)) re)))) (/.f64 #s(literal 45 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (+.f64 (sqrt.f64 (*.f64 re re)) re)) (*.f64 (*.f64 re re) (*.f64 re re))))) (*.f64 im im)) (*.f64 (+.f64 (/.f64 #s(literal 3 binary64) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 3 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (+.f64 (sqrt.f64 (*.f64 re re)) re)) (*.f64 re re)))) #s(literal -1/48 binary64))) (*.f64 im im) (/.f64 #s(literal 1/4 binary64) (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re)))) (*.f64 im im) (log.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (log.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (*.f64 im im) (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re))) #s(literal 1/2 binary64) (log.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (+.f64 (/.f64 #s(literal 3 binary64) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 3 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (+.f64 (sqrt.f64 (*.f64 re re)) re)) (*.f64 re re)))) (*.f64 im im)) #s(literal -1/24 binary64) (/.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re)))) (*.f64 im im) (log.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/720 binary64) (*.f64 (+.f64 (+.f64 (/.f64 #s(literal 30 binary64) (pow.f64 (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re)) #s(literal 3 binary64))) (/.f64 #s(literal 45 binary64) (*.f64 (pow.f64 re #s(literal 5 binary64)) (+.f64 (sqrt.f64 (*.f64 re re)) re)))) (/.f64 #s(literal 45 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (+.f64 (sqrt.f64 (*.f64 re re)) re)) (*.f64 (*.f64 re re) (*.f64 re re))))) (*.f64 im im)) (*.f64 (+.f64 (/.f64 #s(literal 3 binary64) (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (*.f64 (*.f64 re re) re))) (/.f64 #s(literal 3 binary64) (*.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) (+.f64 (sqrt.f64 (*.f64 re re)) re)) (*.f64 re re)))) #s(literal -1/24 binary64))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (*.f64 re re)) re (*.f64 re re)))) (*.f64 im im) (log.f64 (*.f64 (+.f64 (sqrt.f64 (*.f64 re re)) re) #s(literal 2 binary64)))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (exp.f64 (*.f64 (log.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64))) #s(literal -1/2 binary64))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) (*.f64 (log.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64))) #s(literal -1/2 binary64)))
#s(approx (+ (log 2) (* -1 (log (/ -1 im)))) (log.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64))))
#s(approx (* -1 (log (/ -1 im))) (log.f64 (neg.f64 im)))
#s(approx (log (/ -1 im)) (neg.f64 (log.f64 (neg.f64 im))))
#s(approx (/ -1 im) (/.f64 #s(literal -1 binary64) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) im) #s(literal 3/2 binary64)) (*.f64 (*.f64 im im) (*.f64 im im)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 (*.f64 (*.f64 im im) im) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) (*.f64 im im))))) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im))) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 (*.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 im))) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 im))) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 im))) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) #s(literal -1 binary64)) (*.f64 (*.f64 im im) im)) #s(literal 1/12 binary64) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 im))) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (neg.f64 (log.f64 im))) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 im))) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) (neg.f64 (neg.f64 (log.f64 im)))) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) #s(literal -1 binary64)) (*.f64 (*.f64 im im) im)) #s(literal 1/6 binary64) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) (neg.f64 (neg.f64 (log.f64 im)))) (log.f64 #s(literal 2 binary64))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
#s(approx (+ (log 2) (* -1 (log (/ -1 im)))) (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))))
#s(approx (* -1 (log (/ -1 im))) (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))))
#s(approx (log (/ -1 im)) (neg.f64 (log.f64 (neg.f64 im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (neg.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (neg.f64 (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))) im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (neg.f64 (*.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 (/.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im)))) im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (+.f64 (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 (*.f64 im im) im))) #s(literal -1/2 binary64) (/.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))) (neg.f64 (*.f64 (+.f64 (+.f64 (neg.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (*.f64 re re) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (/.f64 (*.f64 re re) (*.f64 (pow.f64 (/.f64 #s(literal -2 binary64) im) #s(literal 3/2 binary64)) im)))) (*.f64 (*.f64 im im) im))) (/.f64 re (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) (*.f64 im im)))) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (neg.f64 (*.f64 re re)) im)) im)) #s(literal 2 binary64)) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 re re) (*.f64 re re)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im)) #s(literal 2 binary64)) im)))
#s(approx (* (+ (* (/ re im) 2) 2) im) (neg.f64 (*.f64 (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal -2 binary64)) im)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) im) #s(literal -1/4 binary64) (*.f64 re #s(literal 1/2 binary64))) im))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 re #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) #s(literal -1 binary64)) im) #s(literal -1/12 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) #s(literal 1/4 binary64))) im))) im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (neg.f64 (/.f64 re im)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) im) #s(literal -1/2 binary64) re) im)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) (log.f64 #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 re re) re) #s(literal -1 binary64)) im) #s(literal -1/6 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) #s(literal 1/2 binary64))) im)) re) im)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))) (log.f64 #s(literal 2 binary64))))
#s(approx (/ 1/2 (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))))
#s(approx (exp (* -1/2 (+ (log 2) (* -1 (log (/ -1 im)))))) (exp.f64 (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64))))
#s(approx (* -1/2 (+ (log 2) (* -1 (log (/ -1 im))))) (*.f64 (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64))) #s(literal -1/2 binary64)))
#s(approx (* -1 (log (/ -1 im))) (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))))
#s(approx (log (/ -1 im)) (neg.f64 (log.f64 (neg.f64 im))))

eval29.0ms (0.8%)

Memory
40.7MiB live, 84.1MiB allocated; 5ms collecting garbage
Compiler

Compiled 4 715 to 1 530 computations (67.6% saved)

prune96.0ms (2.6%)

Memory
-1.0MiB live, 51.1MiB allocated; 9ms collecting garbage
Pruning

29 alts after pruning (19 fresh and 10 done)

PrunedKeptTotal
New2506256
Fresh11314
Picked235
Done077
Total25329282
Accuracy
91.9%
Counts
282 → 29
Alt Table
Click to see full alt table
StatusAccuracyProgram
13.5%
(/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))
45.1%
(*.f64 (sqrt.f64 (*.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
54.2%
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (+ (* (/ re im) 2) 2) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))))) #s(literal 1/2 binary64))
49.6%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im)))))) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))) im))))))
0.0%
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (+.f64 (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im)))))) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 re (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (log.f64 (/.f64 #s(literal -1 binary64) im))))))) im))))))
34.6%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (pow.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (*.f64 im im)) re))))
✓81.2%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
5.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
✓51.3%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
24.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re))))
✓4.4%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (*.f64 re (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))))
✓27.8%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓0.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
✓13.0%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 #s(literal 1 binary64) (/.f64 re im)))))))
✓16.7%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (*.f64 im (/.f64 #s(literal 1 binary64) re)))))))
5.5%
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg im) (+ (* -2 (/ re im)) 2)) (fma.f64 #s(literal -2 binary64) im (+.f64 re re))))))
42.6%
(*.f64 #s(literal 1/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))))
✓47.7%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))))
0.0%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
47.6%
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (neg.f64 (neg.f64 (log.f64 im))) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))
51.1%
(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (*.f64 (log.f64 #s(literal 2 binary64)) (log.f64 #s(literal 2 binary64))) (*.f64 (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))) (neg.f64 (neg.f64 (log.f64 (neg.f64 im)))))) (-.f64 (log.f64 #s(literal 2 binary64)) (neg.f64 (neg.f64 (log.f64 (neg.f64 im))))))))))
47.6%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 im))))))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (log.f64 #s(literal 2 binary64)) #s(approx (* -1 (log (/ -1 im))) (log.f64 (neg.f64 im))))))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (/.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 #s(literal -1/2 binary64) #s(approx (+ (log 2) (* -1 (log (/ -1 im)))) (log.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64))))))))
✓0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
0.0%
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal -1/2 binary64) im) (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))))
Compiler

Compiled 1 064 to 818 computations (23.1% saved)

regimes191.0ms (5.1%)

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

7 calls:

60.0ms
im
40.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
31.0ms
re
21.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))))
18.0ms
(*.f64 im im)
Results
AccuracySegmentsBranch
81.2%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.4%2(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
85.4%2(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
85.1%2re
81.2%1im
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes40.0ms (1.1%)

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

7 calls:

8.0ms
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
5.0ms
im
5.0ms
re
5.0ms
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
5.0ms
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Results
AccuracySegmentsBranch
68.6%3(*.f64 im im)
68.6%3im
72.5%3(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)
72.5%3(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))
76.5%4re
72.6%3(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))
72.6%3(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))))
Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes9.0ms (0.3%)

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

1 calls:

8.0ms
re
Results
AccuracySegmentsBranch
74.0%3re
Compiler

Compiled 1 to 2 computations (-100% saved)

regimes12.0ms (0.3%)

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

5 calls:

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

Compiled 39 to 40 computations (-2.6% saved)

regimes21.0ms (0.6%)

Memory
-24.5MiB live, 23.0MiB allocated; 23ms collecting garbage
Accuracy

Total -32.8b remaining (-105.3%)

Threshold costs -32.8b (-105.3%)

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

7 calls:

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

Compiled 42 to 45 computations (-7.1% saved)

bsearch0.0ms (0%)

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

Compiled 15 to 17 computations (-13.3% saved)

bsearch50.0ms (1.3%)

Memory
39.4MiB live, 86.7MiB allocated; 4ms collecting garbage
Algorithm
3×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
12.0ms
1.8347087706615163e+134
1.0415949518623466e+138
10.0ms
1.7144149043350429e-105
1.2051758984437162e-103
24.0ms
-8.06680299190071e+50
-7.130657469894502e+44
Samples
17.0ms313×0valid
6.0ms36×2valid
3.0ms15×3valid
2.0ms20×1valid
Compiler

Compiled 783 to 827 computations (-5.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 20.0ms
ival-hypot: 9.0ms (45.4% of total)
ival-mult!: 4.0ms (20.2% of total)
ival-sqrt: 3.0ms (15.1% of total)
adjust: 2.0ms (10.1% of total)
ival-add!: 1.0ms (5% of total)

bsearch32.0ms (0.8%)

Memory
-32.0MiB live, 14.2MiB allocated; 4ms collecting garbage
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
29.0ms
2.35931179884022e+26
1.0342568593702845e+29
1.0ms
-8.06680299190071e+50
-7.130657469894502e+44
Samples
24.0ms128×0valid
Compiler

Compiled 639 to 669 computations (-4.7% saved)

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

bsearch10.0ms (0.3%)

Memory
9.6MiB live, 9.6MiB allocated; 0ms collecting garbage
Algorithm
1×binary-search
Stop Event
1×narrow-enough
Steps
TimeLeftRight
9.0ms
1.7144149043350429e-105
1.2051758984437162e-103
Samples
5.0ms96×0valid
Compiler

Compiled 221 to 231 computations (-4.5% saved)

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

derivations251.0ms (6.7%)

Memory
-15.3MiB live, 174.1MiB allocated; 101ms collecting garbage
Stop Event
1×fuel
Compiler

Compiled 95 to 74 computations (22.1% saved)

preprocess63.0ms (1.7%)

Memory
30.4MiB live, 124.4MiB allocated; 21ms collecting garbage
Compiler

Compiled 505 to 417 computations (17.4% saved)

end0.0ms (0%)

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

Profiling

Loading profile data...