Metrics for math.sqrt on complex, real part

start0.0ms (0%)

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

analyze793.0ms (9.4%)

Memory

-124.3MiB live, 153.6MiB allocated; 776ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
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.6s (18.7%)

Memory

59.0MiB live, 1 250.3MiB allocated; 288ms collecting garbage

Samples

640.0ms	6 216×	0	valid
227.0ms	818×	2	valid
170.0ms	756×	1	valid
160.0ms	466×	3	valid

Precisions

Click to see histograms. Total time spent on operations: 859.0ms

ival-add!: 274.0ms (31.9% of total)

ival-hypot: 258.0ms (30% of total)

ival-sqrt: 116.0ms (13.5% of total)

ival-mult!: 116.0ms (13.5% of total)

adjust: 95.0ms (11.1% of total)

Bogosity

preprocess44.0ms (0.5%)

Memory

-15.2MiB live, 42.1MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	129	92
2	292	90
3	507	90
4	1254	90

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	35.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))

Symmetry

(abs im)

Compiler

Compiled 24 to 24 computations (0% saved)

series49.0ms (0.6%)

Memory

3.2MiB live, 49.2MiB allocated; 4ms collecting garbage

Counts

12 → 119

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))
(+.f64 (.f64 re re) (.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im

Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -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 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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)))
#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:

Time	Variable		Point	Expression
4.0ms	re	@	-inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
4.0ms	im	@	0	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	re	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	im	@	-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	@	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)

rewrite833.0ms (9.9%)

Memory

17.8MiB live, 697.6MiB allocated; 211ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	635	4546
0	646	4088
1	2180	3931
0	8573	3753
0	33785	3014

Stop Event

1×	iter-limit
1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

131 → 335

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))
(+.f64 (.f64 re re) (.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -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 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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)))
#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))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))))
(neg.f64 (.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal -1/2 binary64)))
#s(literal 1/2 binary64)
(.f64 (pow.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1/2 binary64)))
(pow.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 #s(literal 1 binary64) (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (neg.f64 re)))
(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (neg.f64 re) #s(literal 2 binary64)))) (fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64) (.f64 (neg.f64 re) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re))) (fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64) (.f64 #s(literal -2 binary64) re)))
(/.f64 (-.f64 (pow.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -2 binary64) re) #s(literal 3 binary64))) (fma.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re) (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re)))))
(neg.f64 (fma.f64 #s(literal -2 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal -2 binary64) (.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 #s(literal -2 binary64) re (.f64 #s(literal -2 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))))))
(neg.f64 (fma.f64 #s(literal -2 binary64) re (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal -2 binary64))))
(neg.f64 (.f64 #s(literal -2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(neg.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal -2 binary64)))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re)))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (.f64 #s(literal -2 binary64) re)))
(fma.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(fma.f64 #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re re)))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 #s(literal -2 binary64) re)))
(fma.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re re)))
(fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 1 binary64) (+.f64 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 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 #s(literal -2 binary64) re)))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 re #s(literal 2 binary64) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) re (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)))
(-.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64)))
(-.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 re re) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re re)))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 #s(literal -2 binary64) re)))
(+.f64 re (+.f64 re (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64))))
(+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
#s(literal 2 binary64)
(.f64 #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1 binary64))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) re)
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64) 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 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/4 binary64)))
(.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))))
(.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #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)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) re)
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) im)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 im (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (.f64 (log.f64 (fma.f64 im im (.f64 re re))) #s(literal 1/2 binary64)))
(.f64 #s(literal 1 binary64) (fma.f64 im im (.f64 re re)))
(/.f64 (-.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (neg.f64 re) re) (.f64 (neg.f64 re) re))) (fma.f64 im im (*.f64 (neg.f64 re) re)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 (neg.f64 im) im) (.f64 (neg.f64 im) im))) (fma.f64 re re (*.f64 (neg.f64 im) im)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (pow.f64 (.f64 (neg.f64 re) re) #s(literal 3 binary64))) (fma.f64 (.f64 im im) (.f64 im im) (fma.f64 (.f64 (neg.f64 re) re) (.f64 (neg.f64 re) re) (.f64 (.f64 im im) (*.f64 (neg.f64 re) re)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re)) (pow.f64 (.f64 (neg.f64 im) im) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 re re) re) re (fma.f64 (.f64 (neg.f64 im) im) (.f64 (neg.f64 im) im) (.f64 (.f64 re re) (*.f64 (neg.f64 im) im)))))
(/.f64 (.f64 #s(literal 2 binary64) (fma.f64 im im (.f64 re re))) #s(literal 2 binary64))
(neg.f64 (fma.f64 (neg.f64 im) im (*.f64 (neg.f64 re) re)))
(neg.f64 (fma.f64 (neg.f64 re) re (*.f64 (neg.f64 im) im)))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))) (*.f64 re re))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))) (*.f64 im im))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im))
(fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 re) re) (.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 re) re) (.f64 im im))
(fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 im) im) (.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 im) im) (.f64 re re))
(fma.f64 (.f64 im im) #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 (.f64 im im) #s(literal 1 binary64) (.f64 re re))
(fma.f64 (.f64 re re) #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 (.f64 re re) #s(literal 1 binary64) (.f64 im im))
(fma.f64 #s(literal 1 binary64) (.f64 im im) (.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 #s(literal 1 binary64) (.f64 im im) (.f64 re re))
(fma.f64 #s(literal 1 binary64) (.f64 re re) (.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 #s(literal 1 binary64) (.f64 re re) (.f64 im im))
(fma.f64 im im (*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(fma.f64 im im (*.f64 re re))
(fma.f64 re re (*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(fma.f64 re re (*.f64 im im))
(-.f64 (.f64 im im) (.f64 (neg.f64 re) re))
(-.f64 (.f64 re re) (.f64 (neg.f64 im) im))
(+.f64 (.f64 im im) (.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 re)))
(+.f64 (.f64 im im) (.f64 re re))
(+.f64 (.f64 re re) (.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 im)))
(+.f64 (.f64 re re) (.f64 im im))
(*.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 re))))
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)))
(*.f64 (fabs.f64 re) (fabs.f64 re))
(*.f64 (neg.f64 re) (neg.f64 re))
(.f64 #s(literal -1 binary64) (.f64 (neg.f64 re) re))
(.f64 (.f64 re re) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (.f64 re re))
(*.f64 re re)
(pow.f64 (neg.f64 (fabs.f64 re)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 re) #s(literal 2 binary64))
(pow.f64 (neg.f64 re) #s(literal 2 binary64))
(pow.f64 (*.f64 re re) #s(literal 1 binary64))
(pow.f64 re #s(literal 2 binary64))
(/.f64 (fabs.f64 (*.f64 re (+.f64 re re))) #s(literal 2 binary64))
(/.f64 (*.f64 re (+.f64 re re)) #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 re) re))
(sqrt.f64 (.f64 (.f64 (*.f64 re re) re) re))
(fabs.f64 (*.f64 (neg.f64 re) re))
(fabs.f64 (*.f64 re re))
(exp.f64 (*.f64 (log.f64 (fabs.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 re)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 re re) #s(literal 2 binary64)) (/.f64 (.f64 re re) #s(literal 2 binary64)))
re
(*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(*.f64 (neg.f64 im) (neg.f64 im))
(.f64 #s(literal -1 binary64) (.f64 (neg.f64 im) im))
(.f64 (.f64 im im) #s(literal 1 binary64))
(.f64 #s(literal 1 binary64) (.f64 im im))
(*.f64 im im)
(pow.f64 (neg.f64 (fabs.f64 im)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 im #s(literal 2 binary64))
(/.f64 (fabs.f64 (.f64 (.f64 im im) #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (fabs.f64 (.f64 #s(literal 2 binary64) (.f64 im im))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 im im) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 im im)) #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 im) im))
(sqrt.f64 (.f64 (.f64 im im) (*.f64 im im)))
(fabs.f64 (*.f64 (neg.f64 im) im))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (.f64 (.f64 im im) im))) #s(literal 1/16 binary64) (.f64 (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/32 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/8 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) (.f64 (.f64 im im) im))) (.f64 (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/16 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (*.f64 im im)) #s(literal 1 binary64)) im) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (-.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 re re)) (*.f64 im im)) #s(literal -1/2 binary64)) im) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 (/.f64 re im) re) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (-.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 re re)) (.f64 im im)) #s(literal -1/2 binary64)) im) (.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (.f64 re (/.f64 re (.f64 (.f64 (.f64 im im) (.f64 im im)) im))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 im im) im))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx (+ (* re re) (* im im)) (*.f64 im im))
#s(approx (+ (* re re) (* im im)) (fma.f64 im im (*.f64 re re)))
#s(approx (* re re) (*.f64 re re))
#s(approx re re)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/64 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 4 binary64))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (-.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 4 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (*.f64 re re) re))))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (.f64 im im) (/.f64 #s(literal 1/2 binary64) (*.f64 re re)) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (.f64 im im) (/.f64 #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 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 im (/.f64 im (.f64 re re))) #s(literal -2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 re (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) (/.f64 #s(literal 1/2 binary64) (*.f64 re re))))) re))
#s(approx (+ (* re re) (* im im)) (*.f64 re re))
#s(approx (+ (* re re) (* im im)) (.f64 (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 1 binary64)) (*.f64 re re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/32 binary64))) (.f64 (.f64 re re) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/1024 binary64) (.f64 (sqrt.f64 #s(literal -4 binary64)) (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) #s(literal 1/2 binary64))))))) (.f64 (.f64 re re) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/16 binary64))) (.f64 (*.f64 re re) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/32 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/512 binary64) (.f64 (sqrt.f64 #s(literal -4 binary64)) (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) #s(literal 1/2 binary64))))))) (.f64 (*.f64 re re) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal 1/4 binary64) (*.f64 (neg.f64 im) im)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im))) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 5/64 binary64) (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im))))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal 1/8 binary64) (.f64 #s(literal -1/2 binary64) (.f64 im im))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64)))) (neg.f64 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.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 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64))))) (neg.f64 re)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 im (/.f64 im (*.f64 re re))) #s(literal -1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (neg.f64 re) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 re (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) (/.f64 #s(literal 1/2 binary64) (*.f64 re re))))) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (*.f64 re re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64))) (.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (.f64 (.f64 re re) (.f64 (.f64 re re) re))) (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (.f64 (.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (.f64 (.f64 re re) (.f64 (.f64 re re) re))) (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 re re)) #s(literal 1 binary64)) re) (.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re (fma.f64 (/.f64 (-.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (.f64 re re)) #s(literal -1/2 binary64)) re) (.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re (fma.f64 (fma.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (-.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (.f64 re re)) #s(literal -1/2 binary64)) re) (.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (.f64 im (/.f64 im (pow.f64 re #s(literal 5 binary64)))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx (* im im) (*.f64 im im))
#s(approx im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (fma.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/8 binary64) (fma.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (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 (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 re im) im im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (fma.f64 (*.f64 (/.f64 re im) re) #s(literal 1/2 binary64) re) im) im im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (/.f64 (fma.f64 (*.f64 (/.f64 re im) re) #s(literal 1/2 binary64) re) im)) im im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64)))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 im (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re)) (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 (.f64 re (/.f64 re (*.f64 im im))) #s(literal 1/2 binary64)))) im))
#s(approx (+ (* re re) (* im im)) (.f64 (fma.f64 re (/.f64 re (.f64 im im)) #s(literal 1 binary64)) (*.f64 im im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (neg.f64 im) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/8 binary64) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/4 binary64))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 im (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) (.f64 (.f64 im im) im)) #s(literal 3/16 binary64) (neg.f64 (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/4 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) (.f64 (.f64 im im) im)) #s(literal 3/8 binary64) (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (+.f64 (/.f64 (-.f64 (+.f64 re re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 im im)) #s(literal -1/4 binary64) (.f64 re re)) im)) im) #s(literal -2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (+.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 re im) re) re) im) #s(literal -1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (+.f64 (/.f64 (-.f64 re (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 im im)) #s(literal -1/8 binary64) (.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) im) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (.f64 re (/.f64 re (*.f64 im im))) #s(literal -1/2 binary64) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (neg.f64 im) (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 im (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re)) (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 (.f64 re (/.f64 re (*.f64 im im))) #s(literal 1/2 binary64)))) im)))

eval156.0ms (1.9%)

Memory: -25.8MiB live, 74.0MiB allocated; 16ms collecting garbage
Compiler: Compiled 4 439 to 1 924 computations (56.7% saved)

prune13.0ms (0.2%)

Memory

28.3MiB live, 28.2MiB allocated; 0ms collecting garbage

Pruning

14 alts after pruning (14 fresh and 0 done)

	Pruned	Kept	Total
New	314	14	328
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	315	14	329

Accuracy

91.6%

Counts

329 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
	35.4%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	77.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
	5.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
	5.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
▶	54.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	52.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
▶	23.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
▶	13.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
▶	52.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	53.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))))
	26.1%	(.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))))
	26.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

Compiler

Compiled 426 to 424 computations (0.5% saved)

series25.0ms (0.3%)

Memory

-17.9MiB live, 26.4MiB allocated; 5ms collecting garbage

Counts

31 → 125

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)))
(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
(/.f64 (*.f64 (neg.f64 im) im) re)
(*.f64 (neg.f64 im) im)
(neg.f64 im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
#s(literal 4 binary64)
(/.f64 (*.f64 im im) re)
(*.f64 im im)

Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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))
#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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* (neg im) im) #s(hole binary64 (* -1 (pow im 2))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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)))
#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:

Time	Variable		Point	Expression
10.0ms	im	@	0	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* 4 re) (/ (* im im) re)) 4 (/ (* im im) re) (* im im))
3.0ms	im	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* 4 re) (/ (* im im) re)) 4 (/ (* im im) re) (* im im))
3.0ms	im	@	-inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* 4 re) (/ (* im im) re)) 4 (/ (* im im) re) (* 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 im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* 4 re) (/ (* im im) re)) 4 (/ (* im im) re) (* 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 im (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* (neg im) im) re) (* (neg im) im) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* 4 re) (/ (* im im) re)) 4 (/ (* im im) re) (* im im))

rewrite709.0ms (8.4%)

Memory

58.8MiB live, 704.8MiB allocated; 176ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	671	4262
0	699	3797
1	2268	3640
0	8532	3462
0	31220	3304

Stop Event

1×	iter-limit
1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

156 → 445

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)))
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))
#s(literal 2 binary64)
(+.f64 (hypot.f64 re im) re)
(hypot.f64 re im)
re
im
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(+.f64 im im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)))
(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
(/.f64 (*.f64 (neg.f64 im) im) re)
(*.f64 (neg.f64 im) im)
(neg.f64 im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
#s(literal 4 binary64)
(/.f64 (*.f64 im im) re)
(*.f64 im im)
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (/ (* (neg im) im) re) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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))
#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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* (neg im) im) #s(hole binary64 (* -1 (pow im 2))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -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 (+ (* 4 re) (/ (* im im) re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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)))
#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))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))))
(neg.f64 (.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal -1/2 binary64)))
#s(literal 1/2 binary64)
(.f64 (pow.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1/2 binary64)))
(pow.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 #s(literal 1 binary64) (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64)))
(.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (neg.f64 re)))
(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (neg.f64 re) #s(literal 2 binary64)))) (fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64) (.f64 (neg.f64 re) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re))) (fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64) (.f64 #s(literal -2 binary64) re)))
(/.f64 (-.f64 (pow.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -2 binary64) re) #s(literal 3 binary64))) (fma.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re) (.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re)))))
(neg.f64 (fma.f64 #s(literal -2 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal -2 binary64) (.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 #s(literal -2 binary64) re (.f64 #s(literal -2 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))))))
(neg.f64 (fma.f64 #s(literal -2 binary64) re (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal -2 binary64))))
(neg.f64 (.f64 #s(literal -2 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(neg.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal -2 binary64)))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re)))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (.f64 #s(literal -2 binary64) re)))
(fma.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(fma.f64 #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re re)))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 #s(literal -2 binary64) re)))
(fma.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re re)))
(fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 1 binary64) (+.f64 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 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 1 binary64) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 #s(literal -2 binary64) re)))
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 re #s(literal 2 binary64) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) re (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)))
(-.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal 2 binary64)))
(-.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 re re) (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64)))
(+.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re re)))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (-.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (*.f64 #s(literal -2 binary64) re)))
(+.f64 re (+.f64 re (.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #s(literal 2 binary64))))
(+.f64 re (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re)))
#s(literal 2 binary64)
(.f64 #s(literal 1 binary64) (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re))
(.f64 (+.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) re) #s(literal 1 binary64))
(fma.f64 (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) re)
(fma.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)
(fma.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) #s(literal 1 binary64) 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 (fma.f64 im im (.f64 re re)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/4 binary64)))
(.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 im im (.f64 re re))))
(.f64 (sqrt.f64 (fma.f64 im im (.f64 re re))) #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)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (fabs.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 re))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 im))) re)
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (fabs.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) (neg.f64 im))
(hypot.f64 (neg.f64 (neg.f64 (fabs.f64 re))) im)
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re))
(hypot.f64 (neg.f64 (fabs.f64 im)) re)
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im))
(hypot.f64 (neg.f64 (fabs.f64 re)) im)
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (fabs.f64 im) (fabs.f64 re))
(hypot.f64 (fabs.f64 im) (neg.f64 re))
(hypot.f64 (fabs.f64 im) re)
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (fabs.f64 re) (fabs.f64 im))
(hypot.f64 (fabs.f64 re) (neg.f64 im))
(hypot.f64 (fabs.f64 re) im)
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im)))
(hypot.f64 (neg.f64 re) (fabs.f64 im))
(hypot.f64 (neg.f64 re) (neg.f64 im))
(hypot.f64 (neg.f64 re) im)
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re)))
(hypot.f64 (neg.f64 im) (fabs.f64 re))
(hypot.f64 (neg.f64 im) (neg.f64 re))
(hypot.f64 (neg.f64 im) re)
(hypot.f64 im (neg.f64 (neg.f64 (fabs.f64 re))))
(hypot.f64 im (neg.f64 (fabs.f64 re)))
(hypot.f64 im (fabs.f64 re))
(hypot.f64 im (neg.f64 re))
(hypot.f64 im re)
(hypot.f64 re (neg.f64 (neg.f64 (fabs.f64 im))))
(hypot.f64 re (neg.f64 (fabs.f64 im)))
(hypot.f64 re (fabs.f64 im))
(hypot.f64 re (neg.f64 im))
(hypot.f64 re im)
(exp.f64 (.f64 (log.f64 (fma.f64 im im (.f64 re re))) #s(literal 1/2 binary64)))
re
im
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))))
(neg.f64 (.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im)))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(neg.f64 (*.f64 #s(literal -2 binary64) im))
(+.f64 im im)
(.f64 (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)))))
(neg.f64 (.f64 (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 1/2 binary64)))
(pow.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 #s(literal 1 binary64) (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)))
(.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) (neg.f64 re)))
(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re))
(/.f64 (-.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im))) (.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (neg.f64 re) #s(literal 2 binary64)))) (fma.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(literal 2 binary64) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im))) (.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re))) (fma.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) re)))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (fma.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.f64 (neg.f64 re) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -2 binary64) re) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (fma.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re) (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.f64 #s(literal -2 binary64) re)))))
(neg.f64 (fma.f64 #s(literal -2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 #s(literal -2 binary64) re (.f64 #s(literal -2 binary64) #s(approx (sqrt (+ ( re re) (* im im))) im))))
(neg.f64 (fma.f64 #s(literal -2 binary64) re (.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(literal -2 binary64))))
(neg.f64 (.f64 #s(literal -2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)))
(neg.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (+.f64 re re))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re re)))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 #s(literal -2 binary64) re)))
(fma.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re re)))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 1 binary64) (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 1 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 1 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 #s(literal -2 binary64) re)))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 re #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)))
(-.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.f64 (neg.f64 re) #s(literal 2 binary64)))
(-.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)) (+.f64 re re))
(+.f64 (+.f64 re re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im)))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re re)))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 (neg.f64 re) #s(literal 2 binary64))))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 #s(literal -2 binary64) re)))
(+.f64 re (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im))))
(+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))
(.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re))
(.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) re)
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 1 binary64) re)
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))
(.f64 #s(literal 1 binary64) #s(approx (sqrt (+ ( re re) (* im im))) im))
(.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(literal 1 binary64))
#s(approx (sqrt (+ (* re re) (* im im))) im)
(.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)))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))))))
(neg.f64 (.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 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))
(.f64 (/.f64 (.f64 im im) re) #s(literal -1 binary64))
(.f64 (.f64 im im) (/.f64 #s(literal -1 binary64) re))
(.f64 #s(literal -1 binary64) (/.f64 (.f64 im im) re))
(*.f64 (neg.f64 im) (/.f64 im re))
(*.f64 im (/.f64 (neg.f64 im) re))
(/.f64 (/.f64 (*.f64 (neg.f64 im) im) #s(literal -1 binary64)) (neg.f64 re))
(/.f64 (/.f64 (*.f64 im im) #s(literal -1 binary64)) re)
(/.f64 (.f64 (neg.f64 im) im) (.f64 (neg.f64 re) #s(literal -1 binary64)))
(/.f64 (*.f64 (neg.f64 im) im) re)
(/.f64 (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal 1 binary64))
(/.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64))
(/.f64 (*.f64 im im) (neg.f64 re))
(neg.f64 (/.f64 (*.f64 im im) re))
(*.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 im))
(*.f64 (fabs.f64 im) (neg.f64 (fabs.f64 im)))
(.f64 (.f64 im im) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 im im))
(*.f64 (neg.f64 im) im)
(*.f64 im (neg.f64 im))
(neg.f64 (*.f64 im im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 #s(literal 1 binary64) (neg.f64 im))
(*.f64 (neg.f64 im) #s(literal 1 binary64))
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))))
(neg.f64 (.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (.f64 im im) re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 4 binary64) re) (.f64 #s(literal 4 binary64) re)) (.f64 (.f64 (neg.f64 im) (/.f64 im re)) (.f64 (neg.f64 im) (/.f64 im re)))) (fma.f64 #s(literal 4 binary64) re (*.f64 (neg.f64 im) (/.f64 im re))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 im im) re) (/.f64 (.f64 im im) re)) (.f64 (.f64 #s(literal -4 binary64) re) (.f64 #s(literal -4 binary64) re))) (fma.f64 im (/.f64 im re) (*.f64 #s(literal -4 binary64) re)))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 im im) re) (/.f64 (.f64 im im) re)) (.f64 (.f64 (neg.f64 re) #s(literal 4 binary64)) (.f64 (neg.f64 re) #s(literal 4 binary64)))) (fma.f64 im (/.f64 im re) (*.f64 (neg.f64 re) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 4 binary64) re) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 im) (/.f64 im re)) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 4 binary64) re) (.f64 #s(literal 4 binary64) re) (fma.f64 (.f64 (neg.f64 im) (/.f64 im re)) (.f64 (neg.f64 im) (/.f64 im re)) (.f64 (.f64 #s(literal 4 binary64) re) (*.f64 (neg.f64 im) (/.f64 im re))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 im im) re) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -4 binary64) re) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 im im) re) (/.f64 (.f64 im im) re) (fma.f64 (.f64 #s(literal -4 binary64) re) (.f64 #s(literal -4 binary64) re) (.f64 (/.f64 (.f64 im im) re) (*.f64 #s(literal -4 binary64) re)))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 im im) re) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 re) #s(literal 4 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 im im) re) (/.f64 (.f64 im im) re) (fma.f64 (.f64 (neg.f64 re) #s(literal 4 binary64)) (.f64 (neg.f64 re) #s(literal 4 binary64)) (.f64 (/.f64 (.f64 im im) re) (*.f64 (neg.f64 re) #s(literal 4 binary64))))))
(fma.f64 (/.f64 (.f64 im im) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) re) (.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 im #s(literal -1 binary64)) (/.f64 (neg.f64 im) re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 (neg.f64 im) #s(literal -1 binary64)) (/.f64 im re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 (neg.f64 im) re) (/.f64 im #s(literal -1 binary64)) (*.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 #s(literal -1 binary64) re) (/.f64 (.f64 im im) #s(literal -1 binary64)) (.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 im re) (/.f64 (neg.f64 im) #s(literal -1 binary64)) (*.f64 #s(literal 4 binary64) re))
(fma.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 #s(literal 1 binary64) re) (.f64 im im) (.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 (.f64 im im) re) #s(literal 1 binary64) (.f64 #s(literal 4 binary64) re))
(fma.f64 (.f64 im im) (/.f64 #s(literal 1 binary64) re) (.f64 #s(literal 4 binary64) re))
(fma.f64 #s(literal -1 binary64) (.f64 (neg.f64 im) (/.f64 im re)) (.f64 #s(literal 4 binary64) re))
(fma.f64 #s(literal 1 binary64) (/.f64 (.f64 im im) re) (.f64 #s(literal 4 binary64) re))
(fma.f64 #s(literal 4 binary64) re (.f64 (.f64 (neg.f64 im) im) (/.f64 #s(literal -1 binary64) re)))
(fma.f64 #s(literal 4 binary64) re (.f64 (.f64 (neg.f64 im) (/.f64 im re)) #s(literal -1 binary64)))
(fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))
(fma.f64 (neg.f64 im) (/.f64 (neg.f64 im) re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 re #s(literal 4 binary64) (.f64 (.f64 (neg.f64 im) im) (/.f64 #s(literal -1 binary64) re)))
(fma.f64 re #s(literal 4 binary64) (.f64 (.f64 (neg.f64 im) (/.f64 im re)) #s(literal -1 binary64)))
(fma.f64 re #s(literal 4 binary64) (/.f64 (*.f64 im im) re))
(-.f64 (.f64 #s(literal 4 binary64) re) (.f64 (neg.f64 im) (/.f64 im re)))
(-.f64 (/.f64 (.f64 im im) re) (.f64 #s(literal -4 binary64) re))
(-.f64 (/.f64 (.f64 im im) re) (.f64 (neg.f64 re) #s(literal 4 binary64)))
(+.f64 (.f64 #s(literal 4 binary64) re) (.f64 (*.f64 (neg.f64 im) im) (/.f64 #s(literal -1 binary64) re)))
(+.f64 (.f64 #s(literal 4 binary64) re) (.f64 (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal -1 binary64)))
(+.f64 (.f64 #s(literal 4 binary64) re) (/.f64 (.f64 im im) re))
(+.f64 (/.f64 (.f64 im im) re) (.f64 #s(literal 4 binary64) re))
#s(literal 4 binary64)
(.f64 (/.f64 (.f64 im im) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) re))
(*.f64 (/.f64 im #s(literal -1 binary64)) (/.f64 (neg.f64 im) re))
(*.f64 (/.f64 (neg.f64 im) #s(literal -1 binary64)) (/.f64 im re))
(*.f64 (/.f64 (neg.f64 im) re) (/.f64 im #s(literal -1 binary64)))
(.f64 (/.f64 #s(literal -1 binary64) re) (/.f64 (.f64 im im) #s(literal -1 binary64)))
(*.f64 (/.f64 im re) (/.f64 (neg.f64 im) #s(literal -1 binary64)))
(*.f64 (fabs.f64 im) (/.f64 (fabs.f64 im) re))
(.f64 (/.f64 #s(literal 1 binary64) re) (.f64 im im))
(.f64 (/.f64 (.f64 im im) re) #s(literal 1 binary64))
(.f64 (.f64 im im) (/.f64 #s(literal 1 binary64) re))
(.f64 #s(literal -1 binary64) (.f64 (neg.f64 im) (/.f64 im re)))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 im im) re))
(*.f64 (neg.f64 im) (/.f64 (neg.f64 im) re))
(*.f64 im (/.f64 im re))
(/.f64 (/.f64 (*.f64 (neg.f64 im) im) #s(literal -1 binary64)) re)
(/.f64 (/.f64 (*.f64 im im) #s(literal -1 binary64)) (neg.f64 re))
(/.f64 (*.f64 (neg.f64 im) im) (neg.f64 re))
(/.f64 (*.f64 (neg.f64 im) (/.f64 im re)) #s(literal -1 binary64))
(/.f64 (/.f64 (*.f64 im im) re) #s(literal 1 binary64))
(/.f64 (.f64 im im) (.f64 #s(literal -1 binary64) (neg.f64 re)))
(/.f64 (.f64 im im) (.f64 (neg.f64 re) #s(literal -1 binary64)))
(/.f64 (*.f64 im im) re)
(neg.f64 (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (neg.f64 (neg.f64 (fabs.f64 im))) (neg.f64 (neg.f64 (fabs.f64 im))))
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)))
(.f64 (.f64 (neg.f64 im) im) #s(literal -1 binary64))
(*.f64 (fabs.f64 im) (fabs.f64 im))
(.f64 (.f64 im im) #s(literal 1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (neg.f64 im) im))
(.f64 #s(literal 1 binary64) (.f64 im im))
(*.f64 (neg.f64 im) (neg.f64 im))
(*.f64 im im)
(pow.f64 (neg.f64 (fabs.f64 im)) #s(literal 2 binary64))
(pow.f64 (fabs.f64 im) #s(literal 2 binary64))
(pow.f64 (*.f64 im im) #s(literal 1 binary64))
(pow.f64 (neg.f64 im) #s(literal 2 binary64))
(pow.f64 im #s(literal 2 binary64))
(neg.f64 (*.f64 (neg.f64 im) im))
(sqrt.f64 (.f64 (.f64 im im) (*.f64 im im)))
(fabs.f64 (*.f64 (neg.f64 im) im))
(fabs.f64 (*.f64 im im))
(exp.f64 (*.f64 (log.f64 (fabs.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (neg.f64 im)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (.f64 (.f64 im im) im))) #s(literal 1/16 binary64) (.f64 (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/32 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (+.f64 im im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/8 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) (.f64 (.f64 im im) im))) (.f64 (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/16 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 re re)) (*.f64 im im)) #s(literal 1 binary64)) im) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 re re)) (*.f64 im im))) im) re #s(literal 1 binary64)) re im))
(.f64 #s(literal 1 binary64) #s(approx (sqrt (+ ( re re) (* im im))) im))
(.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) #s(literal 1 binary64))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 (/.f64 re im) re) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 re re)) (.f64 im im))) im) (.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (.f64 re (/.f64 re (.f64 (.f64 (.f64 im im) (.f64 im im)) im))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 im im) im))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx re re)
#s(approx (/ (* (neg im) im) re) (*.f64 (neg.f64 im) (/.f64 im re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re))
#s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (fma.f64 (.f64 re re) #s(literal 4 binary64) (.f64 im im)) re))
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/64 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re)) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 4 binary64))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (-.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 4 binary64))) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (*.f64 re re) re))))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64) #s(literal 2 binary64)) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64) #s(literal 2 binary64))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (-.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 im (/.f64 im (.f64 re re))) #s(literal -2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 re (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) re))
#s(approx (+ (* 4 re) (/ (* im im) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (+ (* 4 re) (/ (* im im) re)) (.f64 (fma.f64 im (/.f64 im (.f64 re re)) #s(literal 4 binary64)) re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/32 binary64))) (.f64 (.f64 re re) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (-.f64 (.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))))))) (.f64 (.f64 re re) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (/.f64 (sqrt.f64 re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/16 binary64))) (.f64 (*.f64 re re) re))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/512 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/32 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))))))) (.f64 (*.f64 re re) re))))
#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 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal 1/4 binary64) (*.f64 (neg.f64 im) im)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im))) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 8 binary64)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 5/64 binary64) (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im))))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal 1/8 binary64) (.f64 #s(literal -1/2 binary64) (.f64 im im))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64)))) (neg.f64 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64)))))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 im (/.f64 im (*.f64 re re))) #s(literal -1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (neg.f64 re) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 im (/.f64 im (*.f64 re re)) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 re (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (.f64 im (/.f64 im (*.f64 re re))) #s(literal 1/2 binary64)))) re)))
#s(approx (+ (* 4 re) (/ (* im im) re)) (.f64 (neg.f64 re) (-.f64 (.f64 (neg.f64 im) (/.f64 im (*.f64 re re))) #s(literal 4 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (*.f64 re re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64))) (.f64 im im))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (.f64 (.f64 re re) (.f64 (.f64 re re) re))) (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (.f64 (.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 (-.f64 (/.f64 #s(literal 1/16 binary64) (.f64 (.f64 re re) (.f64 (.f64 re re) re))) (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 #s(literal 5/32 binary64) (.f64 (.f64 re re) re)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 (+.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 im im)) (.f64 re re)) #s(literal 1 binary64)) re) (.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 im im) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re)))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (.f64 re re))) re) (.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 im im) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re)))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re)))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 #s(literal 1/2 binary64) re) (*.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (+.f64 #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 im im)) (.f64 re re))) re) (.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 im im) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re)))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (* (neg im) im) (*.f64 (neg.f64 im) im))
#s(approx (neg im) (neg.f64 im))
#s(approx (+ (* 4 re) (/ (* im im) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))
#s(approx (* im im) (*.f64 im im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (fma.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (fma.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/8 binary64) (fma.f64 (.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (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 (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 re im) im im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (fma.f64 (*.f64 (/.f64 re im) re) #s(literal 1/2 binary64) re) im) im im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (/.f64 (fma.f64 (*.f64 (/.f64 re im) re) #s(literal 1/2 binary64) re) im)) im im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64)))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 im (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re)) (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 (.f64 re (/.f64 re (*.f64 im im))) #s(literal 1/2 binary64)))) im))
#s(approx (+ (* 4 re) (/ (* im im) re)) (.f64 (.f64 im im) (fma.f64 (/.f64 re (*.f64 im im)) #s(literal 4 binary64) (/.f64 #s(literal 1 binary64) re))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/4 binary64))) (neg.f64 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/8 binary64) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/4 binary64)))) (neg.f64 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 im (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) (.f64 (.f64 im im) im)) #s(literal 3/16 binary64) (neg.f64 (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/4 binary64)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))) im))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))) (neg.f64 im)))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) (.f64 (.f64 im im) im)) #s(literal 3/8 binary64) (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (/.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (fabs.f64 im))) #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (+.f64 (/.f64 (-.f64 (+.f64 re re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 im im)) #s(literal -1/4 binary64) (.f64 re re)) im)) im) #s(literal -2 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (+.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 re im) re) re) im) #s(literal -1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (+.f64 (/.f64 (-.f64 re (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 im im)) #s(literal -1/8 binary64) (.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) im) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (.f64 re (/.f64 re (*.f64 im im))) #s(literal -1/2 binary64) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 re (/.f64 re (*.f64 im im)) #s(literal 2 binary64)))) (neg.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 im (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re)) (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 (.f64 re (/.f64 re (*.f64 im im))) #s(literal 1/2 binary64)))) im)))

eval85.0ms (1%)

Memory: -7.2MiB live, 81.2MiB allocated; 13ms collecting garbage
Compiler: Compiled 5 428 to 2 072 computations (61.8% saved)

prune104.0ms (1.2%)

Memory

-19.1MiB live, 28.1MiB allocated; 2ms collecting garbage

Pruning

17 alts after pruning (13 fresh and 4 done)

	Pruned	Kept	Total
New	409	6	415
Fresh	2	7	9
Picked	1	4	5
Done	0	0	0
Total	412	17	429

Accuracy

93.7%

Counts

429 → 17

Alt Table

Click to see full alt table

Status	Accuracy	Program
	35.4%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	17.6%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
	18.1%	(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64))))
▶	54.4%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
✓	77.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
▶	5.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
✓	54.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	52.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
▶	26.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
✓	13.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
✓	52.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))))
	26.1%	(.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))))
	5.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
	16.7%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))))
	26.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

Compiler

Compiled 508 to 482 computations (5.1% saved)

series38.0ms (0.4%)

Memory

-8.6MiB live, 42.7MiB allocated; 10ms collecting garbage

Counts

36 → 231

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re)))
(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(neg.f64 im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))
(fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))
(/.f64 im re)
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))
(*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im)
(neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))
(/.f64 re im)
(+.f64 (/.f64 re im) #s(literal -2 binary64))

Outputs
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -2 im)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (+ (* -2 im) (* 2 re))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (+ (* -2 im) (* re (+ 2 (* -1 (/ re im)))))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 -2))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* 2 (/ re im)) 2)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* re (+ (* -1 (/ re (pow im 2))) (* 2 (/ 1 im)))) 2)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 2))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (* -2 (/ re im)))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (* re (- (/ re (pow im 2)) (* 2 (/ 1 im)))))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) -2) #s(hole binary64 -2))
#s(approx (+ (/ re im) -2) #s(hole binary64 (- (/ re im) 2)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 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))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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 (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -1 (/ (pow re 2) im))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* (pow re 2) (- (* 2 (/ 1 re)) (/ 1 im)))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* (pow re 2) (- (+ (* -2 (/ im (pow re 2))) (* 2 (/ 1 re))) (/ 1 im)))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* -1 (/ (pow re 2) (pow im 2)))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* (pow re 2) (- (* 2 (/ 1 (* im re))) (/ 1 (pow im 2))))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* (pow re 2) (- (/ 2 (* im re)) (+ (/ 1 (pow im 2)) (/ 2 (pow re 2)))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (* (pow re 2) (- (/ 1 (pow im 2)) (* 2 (/ 1 (* im re)))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (* (pow re 2) (- (+ (/ 1 (pow im 2)) (/ 2 (pow re 2))) (/ 2 (* im re))))))
#s(approx (+ (/ re im) -2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) -2) #s(hole binary64 (* re (- (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 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 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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 (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* (pow re 2) (- (* -1 (/ (- (* 2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* (pow re 2) (- (* -1 (/ (- (* 2 (/ 1 re)) (* 2 (/ 1 im))) re)) (/ 1 (pow im 2))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* 2 (/ 1 im)) (* 2 (/ 1 re))) re)) (/ 1 (pow im 2))))))
#s(approx (+ (/ re im) -2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 re)) (/ 1 im))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (/ (+ (* -1 (pow re 2)) (* 2 (* im re))) im)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (/ (+ (* -1 (pow re 2)) (* im (+ (* -2 im) (* 2 re)))) im)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (/ (- (* 2 (* im re)) (pow re 2)) (pow im 2))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (/ (- (* im (- (* -2 im) (* -2 re))) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (/ (+ (* -2 (* im re)) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (/ (+ (* im (+ (* -2 re) (* 2 im))) (pow re 2)) (pow im 2))))
#s(approx (+ (/ re im) -2) #s(hole binary64 (/ (+ re (* -2 im)) im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* im (- (* 2 (/ re im)) 2))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* im (- (+ (* -1 (/ (pow re 2) (pow im 2))) (* 2 (/ re im))) 2))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* -1 (/ (pow re 2) (pow im 2))) (+ 2 (* -2 (/ re im))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#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)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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 (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* -1 (/ (- (/ (pow re 2) im) (* 2 re)) im)) 2)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))

Calls

6 calls:

Time	Variable		Point	Expression
5.0ms	re	@	0	((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* im (/ im re)) (* 4 re)) (/ 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 (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (+ (* (/ re im) (+ (/ re im) -2)) 2) (/ re im) (+ (/ re im) -2))
4.0ms	re	@	-inf	((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* im (/ im re)) (* 4 re)) (/ 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 (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (+ (* (/ re im) (+ (/ re im) -2)) 2) (/ re im) (+ (/ re im) -2))
4.0ms	im	@	-inf	((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* im (/ im re)) (* 4 re)) (/ 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 (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (+ (* (/ re im) (+ (/ re im) -2)) 2) (/ re im) (+ (/ re im) -2))
3.0ms	re	@	inf	((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* im (/ im re)) (* 4 re)) (/ 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 (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (+ (* (/ re im) (+ (/ re im) -2)) 2) (/ re im) (+ (/ re im) -2))
3.0ms	im	@	0	((* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re (sqrt 2) 2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* -2 im) -2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* im (/ im re)) (* 4 re)) (/ 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 (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (+ (* (/ re im) (+ (/ re im) -2)) 2) (/ re im) (+ (/ re im) -2))

rewrite644.0ms (7.6%)

Memory

23.4MiB live, 656.6MiB allocated; 104ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	999	9477
0	1029	8347
1	3194	7957
0	8460	7576
0	30483	6301

Stop Event

1×	iter-limit
1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

267 → 704

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -2 binary64) im)
#s(literal -2 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re)))
(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(neg.f64 im)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))
(fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))
(/.f64 im re)
(*.f64 #s(literal 4 binary64) re)
#s(literal 4 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))
(*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im)
(neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))
(/.f64 re im)
(+.f64 (/.f64 re im) #s(literal -2 binary64))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (/ (+ (* 4 (pow re 2)) (pow im 2)) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -2 im)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (+ (* -2 im) (* 2 re))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (+ (* -2 im) (* re (+ 2 (* -1 (/ re im)))))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 -2))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* 2 (/ re im)) 2)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* re (+ (* -1 (/ re (pow im 2))) (* 2 (/ 1 im)))) 2)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 2))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (* -2 (/ re im)))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (* re (- (/ re (pow im 2)) (* 2 (/ 1 im)))))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) -2) #s(hole binary64 -2))
#s(approx (+ (/ re im) -2) #s(hole binary64 (- (/ re im) 2)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 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))
#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 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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 (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* 4 re)))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -1 (/ (pow re 2) im))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* (pow re 2) (- (* 2 (/ 1 re)) (/ 1 im)))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* (pow re 2) (- (+ (* -2 (/ im (pow re 2))) (* 2 (/ 1 re))) (/ 1 im)))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* -1 (/ (pow re 2) (pow im 2)))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* (pow re 2) (- (* 2 (/ 1 (* im re))) (/ 1 (pow im 2))))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* (pow re 2) (- (/ 2 (* im re)) (+ (/ 1 (pow im 2)) (/ 2 (pow re 2)))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (/ (pow re 2) (pow im 2))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (* (pow re 2) (- (/ 1 (pow im 2)) (* 2 (/ 1 (* im re)))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (* (pow re 2) (- (+ (/ 1 (pow im 2)) (/ 2 (pow re 2))) (/ 2 (* im re))))))
#s(approx (+ (/ re im) -2) #s(hole binary64 (/ re im)))
#s(approx (+ (/ re im) -2) #s(hole binary64 (* re (- (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 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 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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 (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* -1 (* re (- (* -1 (/ (pow im 2) (pow re 2))) 4)))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* (pow re 2) (- (* -1 (/ (- (* 2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (* (pow re 2) (- (* -1 (/ (- (* 2 (/ 1 re)) (* 2 (/ 1 im))) re)) (/ 1 (pow im 2))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* 2 (/ 1 im)) (* 2 (/ 1 re))) re)) (/ 1 (pow im 2))))))
#s(approx (+ (/ re im) -2) #s(hole binary64 (* -1 (* re (- (* 2 (/ 1 re)) (/ 1 im))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (/ (+ (* -1 (pow re 2)) (* 2 (* im re))) im)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (/ (+ (* -1 (pow re 2)) (* im (+ (* -2 im) (* 2 re)))) im)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (/ (- (* 2 (* im re)) (pow re 2)) (pow im 2))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (/ (- (* im (- (* -2 im) (* -2 re))) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (/ (+ (* -2 (* im re)) (pow re 2)) (pow im 2))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (/ (+ (* im (+ (* -2 re) (* 2 im))) (pow re 2)) (pow im 2))))
#s(approx (+ (/ re im) -2) #s(hole binary64 (/ (+ re (* -2 im)) im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* im (/ im re)) (* 4 re)) #s(hole binary64 (* (pow im 2) (+ (* 4 (/ re (pow im 2))) (/ 1 re)))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* im (- (* 2 (/ re im)) 2))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* im (- (+ (* -1 (/ (pow re 2) (pow im 2))) (* 2 (/ re im))) 2))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* -1 (/ (pow re 2) (pow im 2))) (+ 2 (* -2 (/ re im))))))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#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)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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 (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(hole binary64 (- (* -1 (/ (- (/ (pow re 2) im) (* 2 re)) im)) 2)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(hole binary64 (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))

Outputs
(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))))
(neg.f64 (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) #s(literal -1/2 binary64)))
#s(literal 1/2 binary64)
(.f64 (pow.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) #s(literal 1/4 binary64)) (pow.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)) #s(literal 1/4 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)))
(.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)))
(exp.f64 (.f64 (log.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1/4 binary64)))
(pow.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))
(exp.f64 (.f64 (log.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re)) #s(literal 1/2 binary64)))
(.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) im) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
im
re
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(*.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(neg.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(literal 2 binary64)
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))))
(neg.f64 (.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 #s(literal -2 binary64) im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(*.f64 #s(literal -1 binary64) (+.f64 im im))
(*.f64 #s(literal -2 binary64) im)
(*.f64 #s(literal 2 binary64) (neg.f64 im))
(*.f64 im #s(literal -2 binary64))
(neg.f64 (+.f64 im im))
(fma.f64 #s(literal -1 binary64) im (neg.f64 im))
(fma.f64 #s(literal 1 binary64) (neg.f64 im) (neg.f64 im))
(fma.f64 (neg.f64 im) #s(literal 1 binary64) (neg.f64 im))
(fma.f64 im #s(literal -1 binary64) (neg.f64 im))
(+.f64 (neg.f64 im) (neg.f64 im))
#s(literal -2 binary64)
(.f64 (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64)))))
(neg.f64 (.f64 (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64)) #s(literal 1/4 binary64)))
(.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (pow.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re)))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (pow.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re) #s(literal 1/2 binary64)))
(pow.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(.f64 #s(literal 1 binary64) (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64)))
(.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re))
(/.f64 (-.f64 (.f64 (.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re))) (fma.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64) (*.f64 #s(literal -2 binary64) re)))
(/.f64 (-.f64 (pow.f64 (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -2 binary64) re) #s(literal 3 binary64))) (fma.f64 (.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) re) (.f64 (.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re)))))
(neg.f64 (fma.f64 #s(literal -2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (*.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) re)))
(neg.f64 (fma.f64 #s(literal -2 binary64) re (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal -2 binary64))))
(neg.f64 (.f64 #s(literal -2 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re)))
(neg.f64 (.f64 (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (+.f64 re re))
(fma.f64 #s(literal 1 binary64) (+.f64 re re) (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 re re)))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (*.f64 #s(literal -2 binary64) re)))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64) (*.f64 (neg.f64 re) #s(literal -2 binary64)))
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (*.f64 (neg.f64 re) #s(literal -2 binary64)))
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 re re))
(fma.f64 #s(literal 2 binary64) re (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)))
(fma.f64 re #s(literal 2 binary64) (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)))
(-.f64 (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) re))
(+.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64) re) re)
(+.f64 (fma.f64 #s(literal 2 binary64) re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)))
(+.f64 (+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))) re)
(+.f64 (+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) re) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)))
(+.f64 (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (*.f64 (neg.f64 re) #s(literal -2 binary64)))
(+.f64 (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)) (+.f64 re re))
(+.f64 (+.f64 re re) (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64)))
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 re re)))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (*.f64 #s(literal -2 binary64) re)))
(+.f64 re (+.f64 re (.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) #s(literal 2 binary64))))
(+.f64 re (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)))
(.f64 #s(literal 1 binary64) (+.f64 #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)) re))
(fma.f64 #s(literal 1 binary64) #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re)
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)))
(.f64 #s(literal 1 binary64) #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
(*.f64 #s(literal -1 binary64) im)
(*.f64 #s(literal 1 binary64) (neg.f64 im))
(*.f64 (neg.f64 im) #s(literal 1 binary64))
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.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)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re)))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re))))))
(neg.f64 (.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re)))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (.f64 #s(literal 4 binary64) re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re))))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re)))
(/.f64 (-.f64 (.f64 (.f64 (/.f64 im re) im) (.f64 (/.f64 im re) im)) (.f64 (.f64 #s(literal -4 binary64) re) (.f64 #s(literal -4 binary64) re))) (fma.f64 (/.f64 im re) im (*.f64 #s(literal -4 binary64) re)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 im re) im) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -4 binary64) re) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 im re) im) (.f64 (/.f64 im re) im) (fma.f64 (.f64 #s(literal -4 binary64) re) (.f64 #s(literal -4 binary64) re) (.f64 (.f64 (/.f64 im re) im) (*.f64 #s(literal -4 binary64) re)))))
(fma.f64 (.f64 (/.f64 im re) im) #s(literal 1 binary64) (.f64 #s(literal 4 binary64) re))
(fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 im re) im) (.f64 #s(literal 4 binary64) re))
(fma.f64 #s(literal 4 binary64) re (*.f64 (/.f64 im re) im))
(fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re))
(fma.f64 re #s(literal 4 binary64) (*.f64 (/.f64 im re) im))
(-.f64 (.f64 (/.f64 im re) im) (.f64 #s(literal -4 binary64) re))
(+.f64 (.f64 (/.f64 im re) im) (.f64 #s(literal 4 binary64) re))
(+.f64 (.f64 #s(literal 4 binary64) re) (.f64 (/.f64 im re) im))
(*.f64 (/.f64 im #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) re))
(*.f64 (/.f64 #s(literal -1 binary64) re) (/.f64 im #s(literal -1 binary64)))
(*.f64 (/.f64 im re) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 im re))
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 im re)
(neg.f64 (/.f64 (neg.f64 im) 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 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))))
(neg.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im)))))
(neg.f64 (.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))) #s(literal -1/2 binary64)))
(.f64 (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #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 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im)))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))) #s(literal 1/2 binary64)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))
(.f64 (.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)) im) #s(literal -1 binary64))
(.f64 #s(literal -1 binary64) (.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)) im))
(*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im)
(*.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)) (neg.f64 im))
(*.f64 (neg.f64 im) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)))
(*.f64 im (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)))
(neg.f64 (*.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)) im))
(fma.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (neg.f64 im) (.f64 #s(literal -2 binary64) im))
(fma.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) im (.f64 #s(literal -2 binary64) im))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) im (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))
(fma.f64 #s(literal -1 binary64) (+.f64 im im) (.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (neg.f64 im)))
(fma.f64 #s(literal -1 binary64) (+.f64 im im) (.f64 im (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)))
(fma.f64 #s(literal -1 binary64) (+.f64 im im) (.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) im))
(fma.f64 (+.f64 im im) #s(literal -1 binary64) (.f64 (.f64 im (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im))) #s(literal -1 binary64)))
(fma.f64 (+.f64 im im) #s(literal -1 binary64) (.f64 (.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) im) #s(literal -1 binary64)))
(fma.f64 #s(literal -2 binary64) im (.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (neg.f64 im)))
(fma.f64 #s(literal -2 binary64) im (.f64 im (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)))
(fma.f64 #s(literal -2 binary64) im (.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) im))
(fma.f64 #s(literal 2 binary64) (neg.f64 im) (.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (neg.f64 im)))
(fma.f64 #s(literal 2 binary64) (neg.f64 im) (.f64 im (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)))
(fma.f64 #s(literal 2 binary64) (neg.f64 im) (.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) im))
(fma.f64 im #s(literal -2 binary64) (.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (neg.f64 im)))
(fma.f64 im #s(literal -2 binary64) (.f64 im (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)))
(fma.f64 im #s(literal -2 binary64) (.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) im))
(+.f64 (.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) im) (.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))
(+.f64 (.f64 (+.f64 im im) #s(literal -1 binary64)) (.f64 (.f64 im (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im))) #s(literal -1 binary64)))
(+.f64 (.f64 (+.f64 im im) #s(literal -1 binary64)) (.f64 (.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) im) #s(literal -1 binary64)))
(+.f64 (.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (neg.f64 im)) (*.f64 #s(literal -2 binary64) im))
(+.f64 (.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) im) (*.f64 #s(literal -2 binary64) im))
(+.f64 (.f64 #s(literal -2 binary64) im) (.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (neg.f64 im)))
(+.f64 (.f64 #s(literal -2 binary64) im) (.f64 im (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)))
(+.f64 (.f64 #s(literal -2 binary64) im) (.f64 (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) im))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)) #s(literal 4 binary64)) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64))) (.f64 (.f64 (/.f64 re im) #s(literal -2 binary64)) (.f64 (/.f64 re im) #s(literal -2 binary64)))) (+.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (*.f64 (/.f64 re im) #s(literal -2 binary64))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im))) (.f64 (fma.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 (neg.f64 re) re) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) (+.f64 #s(literal 4 binary64) (.f64 (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 3 binary64))) (fma.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (fma.f64 (.f64 (/.f64 re im) #s(literal -2 binary64)) (.f64 (/.f64 re im) #s(literal -2 binary64)) (.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (*.f64 (/.f64 re im) #s(literal -2 binary64))))))
(/.f64 (-.f64 (pow.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 3 binary64)) (pow.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (fma.f64 (fma.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 (neg.f64 re) re) (*.f64 im im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64))))))
(neg.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 (+.f64 im im) (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 2 binary64) (fabs.f64 im)) (/.f64 (.f64 im re) (fabs.f64 im)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (*.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (/.f64 (*.f64 re re) (fabs.f64 im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (/.f64 (.f64 re re) (fabs.f64 im)) (+.f64 #s(literal -2 binary64) (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (/.f64 (.f64 re re) (fabs.f64 im)) (-.f64 (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (/.f64 (.f64 re re) (fabs.f64 im)) (.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (/.f64 (*.f64 re re) (fabs.f64 im)) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (*.f64 re re) (fabs.f64 im)) (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (fabs.f64 im)) (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (+.f64 #s(literal -2 binary64) (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 (.f64 re re) (fabs.f64 im)) (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (-.f64 (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (fabs.f64 im)) (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 (*.f64 re re) (fabs.f64 im)) (/.f64 #s(literal -1 binary64) (fabs.f64 im)) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 #s(literal -2 binary64) im) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 im re) (fabs.f64 im)) (/.f64 #s(literal 2 binary64) (fabs.f64 im)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (*.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 im re) (neg.f64 im)) (/.f64 #s(literal -2 binary64) im) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (*.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 re (fabs.f64 im)) (-.f64 (/.f64 (+.f64 im im) (fabs.f64 im)) (/.f64 re (fabs.f64 im))) #s(literal -2 binary64))
(fma.f64 (/.f64 (.f64 im re) im) (/.f64 #s(literal 2 binary64) im) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (*.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (+.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 re #s(literal -1 binary64))) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 (*.f64 re re) im) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 (.f64 re re) im) (+.f64 #s(literal -2 binary64) (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 (.f64 re re) im) (-.f64 (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 (.f64 re re) im) (.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 (*.f64 re re) im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal -2 binary64) im) (/.f64 (.f64 im re) (neg.f64 im)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (*.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal -1 binary64) #s(literal -2 binary64))
(fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal 1 binary64) #s(literal -2 binary64))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 1 binary64) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 1 binary64) (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 1 binary64) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 1 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -1 binary64) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -1 binary64) (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -1 binary64) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -1 binary64) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -1 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (*.f64 (neg.f64 re) re) im) (/.f64 #s(literal 1 binary64) im) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) im) (/.f64 #s(literal 1 binary64) im) (+.f64 #s(literal -2 binary64) (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) im) (/.f64 #s(literal 1 binary64) im) (-.f64 (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) im) (/.f64 #s(literal 1 binary64) im) (.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 (*.f64 (neg.f64 re) re) im) (/.f64 #s(literal 1 binary64) im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (.f64 im re) im) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (*.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (+.f64 re re) im) #s(literal 1 binary64) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64))
(fma.f64 (/.f64 re (neg.f64 im)) (-.f64 #s(literal -2 binary64) (/.f64 re (neg.f64 im))) #s(literal -2 binary64))
(fma.f64 (/.f64 re (neg.f64 im)) (-.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal -2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal -2 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 #s(literal -1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re (neg.f64 im)) #s(literal -2 binary64))
(fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal -1 binary64) im) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 re re) im) (/.f64 #s(literal -1 binary64) im) (+.f64 #s(literal -2 binary64) (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 (.f64 re re) im) (/.f64 #s(literal -1 binary64) im) (-.f64 (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 re re) im) (/.f64 #s(literal -1 binary64) im) (.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 (*.f64 re re) im) (/.f64 #s(literal -1 binary64) im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 re im) (-.f64 #s(literal 2 binary64) (/.f64 re im)) #s(literal -2 binary64))
(fma.f64 (/.f64 re im) #s(literal 2 binary64) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (*.f64 (neg.f64 re) re) im) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (.f64 (neg.f64 re) re) im) (+.f64 #s(literal -2 binary64) (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(fma.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (.f64 (neg.f64 re) re) im) (-.f64 (.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (.f64 (neg.f64 re) re) im) (.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(fma.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 (*.f64 (neg.f64 re) re) im) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal -2 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (+.f64 re re) im) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (/.f64 re (neg.f64 im)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (-.f64 (/.f64 re im) #s(literal 1 binary64)) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 im re) (.f64 im im)) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (/.f64 re im) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(-.f64 (+.f64 #s(literal -2 binary64) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im))) (*.f64 (/.f64 re im) #s(literal -2 binary64)))
(-.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)))
(-.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (*.f64 (/.f64 re im) #s(literal -2 binary64)))
(-.f64 (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal 2 binary64))
(-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(-.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) (/.f64 (.f64 re re) (.f64 im im)))
(-.f64 (/.f64 (+.f64 re re) im) (-.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -2 binary64)))
(-.f64 (/.f64 (+.f64 re re) im) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(+.f64 (+.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (/.f64 (.f64 im re) (.f64 im im))) (/.f64 (.f64 im re) (.f64 im im)))
(+.f64 (+.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (/.f64 re im)) (/.f64 re im))
(+.f64 (+.f64 #s(literal -2 binary64) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im))) (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)))
(+.f64 (+.f64 #s(literal -2 binary64) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im))) (/.f64 (+.f64 re re) im))
(+.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)))
(+.f64 (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)) (/.f64 (+.f64 re re) im))
(+.f64 (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal -2 binary64))
(+.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64) #s(literal -2 binary64)))
(+.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (+.f64 #s(literal -2 binary64) (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64))))
(+.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal -2 binary64)) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (*.f64 #s(literal -2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im))))
(+.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)))
(+.f64 (/.f64 (+.f64 re re) im) (-.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal 2 binary64)))
(+.f64 #s(literal -2 binary64) (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im))) #s(literal 4 binary64)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal -2 binary64)))
(/.f64 (-.f64 #s(literal 4 binary64) (.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im))) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal 3 binary64)) #s(literal -8 binary64)) (fma.f64 (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) (+.f64 #s(literal 4 binary64) (.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal -2 binary64)))))
(/.f64 (-.f64 #s(literal 8 binary64) (pow.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal 3 binary64))) (+.f64 #s(literal 4 binary64) (fma.f64 (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) (/.f64 (.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) (.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im)))))
(neg.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)))
(fma.f64 (.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 re #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (.f64 im im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 re #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (.f64 im im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 re #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (/.f64 re im) #s(literal 1 binary64)) (pow.f64 (/.f64 re im) #s(literal 1 binary64)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (/.f64 re im) #s(literal 1 binary64)) (pow.f64 (/.f64 re im) #s(literal 1 binary64)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (pow.f64 (/.f64 re im) #s(literal 1 binary64)) (pow.f64 (/.f64 re im) #s(literal 1 binary64)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (fabs.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (fabs.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (fabs.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 re) im)) (fabs.f64 (/.f64 (fabs.f64 re) im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 re) im)) (fabs.f64 (/.f64 (fabs.f64 re) im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (fabs.f64 re) im)) (fabs.f64 (/.f64 (fabs.f64 re) im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (fabs.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (fabs.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (fabs.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 re (fabs.f64 im))) (fabs.f64 (/.f64 re (fabs.f64 im))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 re (fabs.f64 im))) (fabs.f64 (/.f64 re (fabs.f64 im))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (/.f64 re (fabs.f64 im))) (fabs.f64 (/.f64 re (fabs.f64 im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 re im))) (fabs.f64 (fabs.f64 (/.f64 re im))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 re im))) (fabs.f64 (fabs.f64 (/.f64 re im))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (fabs.f64 (/.f64 re im))) (fabs.f64 (fabs.f64 (/.f64 re im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (neg.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (neg.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (neg.f64 (/.f64 (fabs.f64 re) (neg.f64 im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (neg.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (neg.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (neg.f64 (/.f64 (neg.f64 re) (fabs.f64 im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 re im))) (neg.f64 (fabs.f64 (/.f64 re im))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 re im))) (neg.f64 (fabs.f64 (/.f64 re im))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (neg.f64 (fabs.f64 (/.f64 re im))) (neg.f64 (fabs.f64 (/.f64 re im))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (/.f64 re #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (/.f64 re #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (pow.f64 (/.f64 re #s(literal -1 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64)) (pow.f64 (/.f64 re #s(literal -1 binary64)) #s(literal 2 binary64)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64)) (pow.f64 (/.f64 re #s(literal -1 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (pow.f64 (/.f64 #s(literal -1 binary64) im) #s(literal 2 binary64)) (pow.f64 (/.f64 re #s(literal -1 binary64)) #s(literal 2 binary64)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 #s(literal -2 binary64) im) (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (*.f64 #s(literal -2 binary64) im) (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 #s(literal -2 binary64) im) (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(fma.f64 (/.f64 (.f64 im re) (fabs.f64 im)) (/.f64 #s(literal -2 binary64) (fabs.f64 im)) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (*.f64 im re) (fabs.f64 im)) (/.f64 #s(literal -2 binary64) (fabs.f64 im)) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 im re) (fabs.f64 im)) (/.f64 #s(literal -2 binary64) (fabs.f64 im)) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(fma.f64 (/.f64 #s(literal -2 binary64) (fabs.f64 im)) (/.f64 (.f64 im re) (fabs.f64 im)) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal -2 binary64) (fabs.f64 im)) (/.f64 (*.f64 im re) (fabs.f64 im)) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal -2 binary64) (fabs.f64 im)) (/.f64 (.f64 im re) (fabs.f64 im)) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(fma.f64 (/.f64 (.f64 im re) (neg.f64 im)) (/.f64 #s(literal 2 binary64) im) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (*.f64 im re) (neg.f64 im)) (/.f64 #s(literal 2 binary64) im) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 im re) (neg.f64 im)) (/.f64 #s(literal 2 binary64) im) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(fma.f64 (fabs.f64 (/.f64 re im)) (fabs.f64 (/.f64 re im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (fabs.f64 (/.f64 re im)) (fabs.f64 (/.f64 re im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (fabs.f64 (/.f64 re im)) (fabs.f64 (/.f64 re im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (fabs.f64 re) (neg.f64 im)) (/.f64 (fabs.f64 re) (neg.f64 im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (fabs.f64 re) (neg.f64 im)) (/.f64 (fabs.f64 re) (neg.f64 im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (fabs.f64 re) (neg.f64 im)) (/.f64 (fabs.f64 re) (neg.f64 im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (fabs.f64 re) im) (/.f64 (fabs.f64 re) im) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (fabs.f64 re) im) (/.f64 (fabs.f64 re) im) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (fabs.f64 re) im) (/.f64 (fabs.f64 re) im) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (neg.f64 re) (fabs.f64 im)) (/.f64 (neg.f64 re) (fabs.f64 im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (neg.f64 re) (fabs.f64 im)) (/.f64 (neg.f64 re) (fabs.f64 im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (neg.f64 re) (fabs.f64 im)) (/.f64 (neg.f64 re) (fabs.f64 im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 re (fabs.f64 im)) (+.f64 (/.f64 (*.f64 #s(literal -2 binary64) im) (fabs.f64 im)) (/.f64 re (fabs.f64 im))) #s(literal 2 binary64))
(fma.f64 (/.f64 re (fabs.f64 im)) (+.f64 (/.f64 re (fabs.f64 im)) (/.f64 (*.f64 #s(literal -2 binary64) im) (fabs.f64 im))) #s(literal 2 binary64))
(fma.f64 (/.f64 re (fabs.f64 im)) (-.f64 (/.f64 re (fabs.f64 im)) (/.f64 (+.f64 im im) (fabs.f64 im))) #s(literal 2 binary64))
(fma.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 re (fabs.f64 im)) (/.f64 re (fabs.f64 im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 im re) im) (/.f64 #s(literal -2 binary64) im) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (*.f64 im re) im) (/.f64 #s(literal -2 binary64) im) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 im re) im) (/.f64 #s(literal -2 binary64) im) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(fma.f64 (/.f64 #s(literal -2 binary64) im) (/.f64 (.f64 im re) im) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal -2 binary64) im) (/.f64 (*.f64 im re) im) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal -2 binary64) im) (/.f64 (.f64 im re) im) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(fma.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal 1 binary64) #s(literal 2 binary64))
(fma.f64 (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal -1 binary64) #s(literal 2 binary64))
(fma.f64 (-.f64 #s(literal 1 binary64) (/.f64 re im)) #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im)))
(fma.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 re #s(literal -1 binary64))) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 re #s(literal -1 binary64))) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 re #s(literal -1 binary64))) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal -1 binary64) (fma.f64 (/.f64 (+.f64 re re) im) #s(literal -1 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal -1 binary64) (-.f64 (*.f64 (/.f64 (+.f64 re re) im) #s(literal -1 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1 binary64) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1 binary64) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (.f64 im re) (neg.f64 im)) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (*.f64 im re) (neg.f64 im)) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 (.f64 im re) (neg.f64 im)) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(fma.f64 (/.f64 re (neg.f64 im)) (-.f64 #s(literal 2 binary64) (/.f64 re im)) #s(literal 2 binary64))
(fma.f64 (/.f64 re (neg.f64 im)) (/.f64 re (neg.f64 im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 re (neg.f64 im)) (/.f64 re (neg.f64 im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 re (neg.f64 im)) (/.f64 re (neg.f64 im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im) #s(literal 2 binary64))
(fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64))
(fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 2 binary64))
(fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 re im) (/.f64 re im) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 (/.f64 re im) (/.f64 re im) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 (/.f64 re im) #s(literal -2 binary64) (-.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -2 binary64)))
(fma.f64 (/.f64 re im) #s(literal -2 binary64) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 (/.f64 re im) #s(literal -2 binary64) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im))))
(fma.f64 #s(literal 1 binary64) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal 2 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(fma.f64 #s(literal 1 binary64) (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (/.f64 re im) (-.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -2 binary64)))
(fma.f64 #s(literal -2 binary64) (/.f64 re im) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (/.f64 re im) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im))))
(fma.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (/.f64 re im)) (/.f64 (.f64 re re) (.f64 im im)))
(fma.f64 #s(literal 2 binary64) (/.f64 re (neg.f64 im)) (-.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal -2 binary64)))
(fma.f64 #s(literal 2 binary64) (/.f64 re (neg.f64 im)) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) (/.f64 re (neg.f64 im)) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im))))
(-.f64 (-.f64 #s(literal 2 binary64) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im))) (/.f64 (+.f64 re re) im))
(-.f64 (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im))) (/.f64 (+.f64 re re) im))
(-.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal -2 binary64))
(-.f64 (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
(-.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)))
(-.f64 (.f64 (/.f64 re im) #s(literal -2 binary64)) (-.f64 #s(literal -2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(-.f64 #s(literal 2 binary64) (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im))
(+.f64 (+.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal -1 binary64))) (.f64 (/.f64 (+.f64 re re) im) #s(literal -1 binary64)))
(+.f64 (-.f64 #s(literal 2 binary64) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im))) (*.f64 (/.f64 re im) #s(literal -2 binary64)))
(+.f64 (.f64 (/.f64 (.f64 (neg.f64 re) re) (*.f64 im im)) #s(literal -1 binary64)) (fma.f64 (/.f64 (+.f64 re re) im) #s(literal -1 binary64) #s(literal 2 binary64)))
(+.f64 (.f64 (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)) #s(literal -1 binary64)) (-.f64 (.f64 (/.f64 (+.f64 re re) im) #s(literal -1 binary64)) #s(literal -2 binary64)))
(+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im))) (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)))
(+.f64 (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im))) (*.f64 (/.f64 re im) #s(literal -2 binary64)))
(+.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)) #s(literal 2 binary64))
(+.f64 (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 re re) (.f64 im im)) (-.f64 (*.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64)) #s(literal -2 binary64)))
(+.f64 (/.f64 (.f64 re re) (.f64 im im)) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
(+.f64 (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)) (/.f64 (.f64 re re) (.f64 im im)))
(+.f64 (.f64 (/.f64 re im) #s(literal -2 binary64)) (-.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -2 binary64)))
(+.f64 (*.f64 (/.f64 re im) #s(literal -2 binary64)) (fma.f64 (/.f64 re im) (/.f64 re im) #s(literal 2 binary64)))
(+.f64 (.f64 (/.f64 re im) #s(literal -2 binary64)) (+.f64 #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))))
(+.f64 #s(literal 2 binary64) (fma.f64 (/.f64 re (neg.f64 im)) #s(literal 2 binary64) (/.f64 (.f64 re re) (.f64 im im))))
(+.f64 #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)))
(*.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) im))
(*.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 re #s(literal -1 binary64)))
(*.f64 (/.f64 re im) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 re im))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 (.f64 #s(literal -2 binary64) re) (.f64 #s(literal -2 binary64) im))
(/.f64 (+.f64 re re) (+.f64 im im))
(/.f64 re im)
(neg.f64 (/.f64 re (neg.f64 im)))
(+.f64 (/.f64 re (+.f64 im im)) (/.f64 re (+.f64 im im)))
(/.f64 (-.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal -2 binary64)))
(/.f64 (-.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (/.f64 re im) (/.f64 re im) (+.f64 #s(literal 4 binary64) (/.f64 (+.f64 re re) im))))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) im) (.f64 #s(literal -2 binary64) im) (.f64 (.f64 im re) #s(literal -2 binary64))) (.f64 im (.f64 #s(literal -2 binary64) im)))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) im) (neg.f64 im) (.f64 (neg.f64 re) im)) (*.f64 (neg.f64 im) im))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) im) (+.f64 im im) (.f64 (+.f64 im im) re)) (*.f64 im (+.f64 im im)))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) im) im (.f64 im re)) (*.f64 im im))
(/.f64 (fma.f64 (+.f64 im im) (.f64 #s(literal -2 binary64) im) (.f64 (neg.f64 im) (.f64 #s(literal -2 binary64) re))) (.f64 im (+.f64 im im)))
(/.f64 (fma.f64 (+.f64 im im) (neg.f64 im) (.f64 (neg.f64 im) (neg.f64 re))) (.f64 im im))
(/.f64 (fma.f64 (+.f64 im im) (+.f64 im im) (.f64 (.f64 im re) #s(literal -2 binary64))) (*.f64 (neg.f64 im) (+.f64 im im)))
(/.f64 (fma.f64 (+.f64 im im) im (.f64 (neg.f64 re) im)) (.f64 (neg.f64 im) im))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) re) im (.f64 (.f64 #s(literal -2 binary64) im) (.f64 #s(literal -2 binary64) im))) (.f64 (.f64 #s(literal -2 binary64) im) im))
(/.f64 (fma.f64 (.f64 #s(literal -2 binary64) re) (neg.f64 im) (.f64 (.f64 #s(literal -2 binary64) im) (+.f64 im im))) (.f64 (*.f64 #s(literal -2 binary64) im) (neg.f64 im)))
(/.f64 (fma.f64 (neg.f64 re) (neg.f64 im) (.f64 (neg.f64 im) (+.f64 im im))) (.f64 im im))
(/.f64 (fma.f64 (+.f64 re re) im (.f64 (+.f64 im im) (.f64 #s(literal -2 binary64) im))) (*.f64 (+.f64 im im) im))
(/.f64 (fma.f64 (+.f64 re re) (neg.f64 im) (.f64 (+.f64 im im) (+.f64 im im))) (.f64 (+.f64 im im) (neg.f64 im)))
(/.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) re) im) (.f64 (.f64 #s(literal -2 binary64) im) (+.f64 im im))) (.f64 (.f64 #s(literal -2 binary64) im) im))
(/.f64 (-.f64 (.f64 (neg.f64 re) im) (.f64 (neg.f64 im) (+.f64 im im))) (*.f64 (neg.f64 im) im))
(/.f64 (-.f64 (.f64 (+.f64 re re) im) (.f64 (+.f64 im im) (+.f64 im im))) (*.f64 (+.f64 im im) im))
(/.f64 (.f64 im (-.f64 (+.f64 im im) re)) (.f64 (neg.f64 im) im))
(/.f64 (.f64 im (fma.f64 #s(literal -2 binary64) im re)) (.f64 im im))
(/.f64 (fma.f64 #s(literal -2 binary64) im re) im)
(/.f64 (-.f64 (+.f64 im im) re) (neg.f64 im))
(neg.f64 (/.f64 (.f64 im (-.f64 (+.f64 im im) re)) (.f64 im im)))
(neg.f64 (/.f64 (.f64 im (fma.f64 #s(literal -2 binary64) im re)) (.f64 (neg.f64 im) im)))
(neg.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)))
(fma.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) im) (/.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64)) im))
(fma.f64 (/.f64 re #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) im) #s(literal -2 binary64))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 re #s(literal -1 binary64)) (/.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64)) im))
(fma.f64 (/.f64 #s(literal -1 binary64) im) (/.f64 re #s(literal -1 binary64)) #s(literal -2 binary64))
(fma.f64 (/.f64 re im) #s(literal 1 binary64) (/.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64)) im))
(fma.f64 (/.f64 re im) #s(literal 1 binary64) #s(literal -2 binary64))
(fma.f64 #s(literal 1 binary64) (/.f64 re im) (/.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64)) im))
(fma.f64 #s(literal 1 binary64) (/.f64 re im) #s(literal -2 binary64))
(-.f64 (/.f64 re im) #s(literal 2 binary64))
(+.f64 (/.f64 (.f64 (neg.f64 re) im) (.f64 (neg.f64 im) im)) (/.f64 (.f64 im (+.f64 im im)) (.f64 (neg.f64 im) im)))
(+.f64 (/.f64 (.f64 im re) (.f64 im im)) (/.f64 (.f64 im (.f64 #s(literal -2 binary64) im)) (*.f64 im im)))
(+.f64 (/.f64 re im) (/.f64 (*.f64 (neg.f64 im) #s(literal 2 binary64)) im))
(+.f64 (/.f64 re im) #s(literal -2 binary64))
(+.f64 #s(literal -2 binary64) (/.f64 re im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (fma.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/32 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (+.f64 im im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) re) #s(literal 1/2 binary64) (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) re) #s(literal 1/8 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) re (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))))) re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) im)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (sqrt (+ (* re re) (* im im))) im)
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (.f64 im im) im)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (.f64 re re) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (.f64 (.f64 im im) (.f64 im im)) im)) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 im im) im))) (.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im))
#s(approx re re)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (fma.f64 (sqrt.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)) #s(literal 2 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) #s(literal -1/32 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/4 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (+.f64 im im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (pow.f64 im #s(literal -5/2 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) im)) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re im) im))
#s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im))
#s(approx (+ (* im (/ im re)) (* 4 re)) (/.f64 (fma.f64 (.f64 re re) #s(literal 4 binary64) (.f64 im im)) re))
#s(approx (/ im re) (/.f64 im re))
#s(approx (* 4 re) (*.f64 #s(literal 4 binary64) re))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) im))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re (*.f64 #s(literal -2 binary64) im)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) #s(literal -2 binary64))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (fma.f64 (/.f64 (-.f64 (+.f64 im im) re) (*.f64 im im)) re #s(literal -2 binary64)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) #s(literal 2 binary64))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (fma.f64 (/.f64 (fma.f64 #s(literal -2 binary64) im re) (*.f64 im im)) re #s(literal 2 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx (+ (/ re im) -2) #s(literal -2 binary64))
#s(approx (+ (/ re im) -2) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im im)) #s(literal 1/8 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im im)) #s(literal 1/8 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/64 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/8 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (+.f64 re re)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (pow.f64 re #s(literal -9/2 binary64)) (/.f64 (.f64 (.f64 im im) (.f64 im im)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal -1/16 binary64) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/16 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) 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 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (-.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (.f64 re re)) #s(literal -2 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) re)
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64)))) re re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im im)) #s(literal 1/8 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (*.f64 im im)) #s(literal 1/8 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/32 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/64 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal 2 binary64) (.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/8 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) (.f64 im im)) (.f64 #s(literal -1/32 binary64) (/.f64 (.f64 (.f64 im im) (.f64 im im)) #s(literal 2 binary64)))) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (*.f64 re re) re) re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/4 binary64) (+.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))) re))
#s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (/.f64 (*.f64 (neg.f64 re) re) im))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (.f64 (-.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (.f64 (-.f64 (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal 2 binary64)) re) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (/.f64 (.f64 (neg.f64 re) re) (.f64 im im)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (.f64 (-.f64 (/.f64 #s(literal 2 binary64) (.f64 im re)) (/.f64 #s(literal 1 binary64) (.f64 im im))) (.f64 re re)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 #s(literal 2 binary64) re)) re) (/.f64 #s(literal 1 binary64) (.f64 im im))) (*.f64 re re)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (/.f64 (.f64 re re) (.f64 im im)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (/.f64 #s(literal 2 binary64) (.f64 im re))) (.f64 re re)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (/.f64 (-.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 #s(literal 2 binary64) re)) re)) (*.f64 re re)))
#s(approx (+ (/ re im) -2) (/.f64 re im))
#s(approx (+ (/ re im) -2) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/32 binary64))) (.f64 (.f64 re re) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/1024 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (.f64 (sqrt.f64 #s(literal -4 binary64)) #s(literal 2 binary64))))))) (.f64 (*.f64 re re) re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/16 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/16 binary64))) (.f64 (*.f64 re re) re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (-.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/32 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/512 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (.f64 (sqrt.f64 #s(literal -4 binary64)) #s(literal 2 binary64))))))) (.f64 (.f64 re re) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 im im) im))) #s(literal 1/16 binary64) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)) (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 (.f64 im im) (.f64 im im)) im))) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 im im) im)) (sqrt.f64 re)) #s(literal 1/16 binary64))) (.f64 (.f64 re re) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (-.f64 (.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re))) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 im im) im))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/512 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (.f64 #s(literal 1/32 binary64) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 (.f64 im im) (.f64 im im)) im)))))) (.f64 (.f64 re re) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 im re) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal 1/8 binary64) (.f64 #s(literal -1/2 binary64) (.f64 im im))) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64)))) (neg.f64 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64)))))) re))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) (*.f64 re re)) #s(literal -1 binary64)) re))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (neg.f64 re) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64)))) re re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/64 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/32 binary64))) (.f64 (.f64 re re) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (-.f64 (.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/1024 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (.f64 (sqrt.f64 #s(literal -4 binary64)) #s(literal 2 binary64))))))) (.f64 (*.f64 re re) re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (pow.f64 re #s(literal -5/2 binary64)) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/16 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64)))) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal 1/16 binary64))) (.f64 (*.f64 re re) re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (-.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) (/.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64)))) (sqrt.f64 re) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (fma.f64 #s(literal 1/32 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (sqrt.f64 #s(literal -4 binary64))) (.f64 #s(literal 1/512 binary64) (.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) im) (.f64 (sqrt.f64 #s(literal -4 binary64)) #s(literal 2 binary64))))))) (.f64 (.f64 re re) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal 1/4 binary64) (*.f64 (neg.f64 im) im)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im))) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (-.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im)) (.f64 (.f64 (.f64 re re) re) re)) #s(literal 1/8 binary64) (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im))) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (.f64 (.f64 (.f64 re re) re) (.f64 (*.f64 re re) re)))) (neg.f64 re)))
#s(approx (+ (* im (/ im re)) (* 4 re)) (.f64 (neg.f64 re) (-.f64 (/.f64 (.f64 (neg.f64 im) im) (*.f64 re re)) #s(literal 4 binary64))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (.f64 (-.f64 (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal 2 binary64)) re) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (.f64 (-.f64 (/.f64 (-.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 #s(literal 2 binary64) re)) re) (/.f64 #s(literal 1 binary64) (.f64 im im))) (*.f64 re re)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 im im)) (/.f64 (-.f64 (/.f64 #s(literal 2 binary64) im) (/.f64 #s(literal 2 binary64) re)) re)) (*.f64 re re)))
#s(approx (+ (/ re im) -2) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 2 binary64) re)) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (*.f64 re re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re))) #s(literal 1/16 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re))) #s(literal 1/16 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (+.f64 re re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 im im) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64))) (.f64 im im) (sqrt.f64 (+.f64 re re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re))) #s(literal 1/16 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 re re)))) (.f64 im im)))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1/2 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64))) (*.f64 im im) (sqrt.f64 (+.f64 re re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (*.f64 (/.f64 im re) im) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re) re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 (/.f64 im re) im) #s(literal 1/2 binary64) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) re))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (/.f64 #s(literal -1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re))
#s(approx im im)
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (*.f64 re re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/8 binary64) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re))) #s(literal 1/16 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (/.f64 (sqrt.f64 re) (.f64 re re)) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (/.f64 (sqrt.f64 re) (.f64 re re)) #s(literal 1/4 binary64) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (-.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 re re) re) (.f64 re re))) #s(literal 1/16 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) #s(literal 5/32 binary64)) (.f64 re re)))) (.f64 im im))))) (.f64 im im))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) 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) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (/.f64 #s(literal -1/4 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (.f64 #s(literal 4 binary64) re)))
#s(approx (* -2 im) (*.f64 #s(literal -2 binary64) im))
#s(approx (neg im) (neg.f64 im))
#s(approx (+ (* im (/ im re)) (* 4 re)) (fma.f64 (/.f64 im re) im (*.f64 #s(literal 4 binary64) re)))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (/.f64 (*.f64 re (-.f64 (+.f64 im im) re)) im))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (/.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (-.f64 im re)) im) (*.f64 re re)) im))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (/.f64 (*.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re) im))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (/.f64 (-.f64 (.f64 (.f64 #s(literal -2 binary64) (-.f64 im re)) im) (.f64 re re)) (.f64 im im)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (*.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (/.f64 (fma.f64 (.f64 #s(literal -2 binary64) (-.f64 re im)) im (.f64 re re)) (*.f64 im im)))
#s(approx (+ (/ re im) -2) (-.f64 (/.f64 re im) #s(literal 2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/8 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) re) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (.f64 re re) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) re) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (.f64 re re) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/8 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) re) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 re im) im im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) im im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (.f64 re re) (.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) im im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))) im))
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re)) (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64)))) im im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/4 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (pow.f64 im #s(literal -5/2 binary64))) #s(literal 1/8 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/2 binary64) (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 (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (*.f64 im im))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) (-.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))
#s(approx (+ (* im (/ im re)) (* 4 re)) (.f64 (.f64 im im) (fma.f64 (/.f64 re (*.f64 im im)) #s(literal 4 binary64) (/.f64 #s(literal 1 binary64) re))))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64) (neg.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))) (neg.f64 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal -3/16 binary64)) (.f64 (*.f64 im im) im)))) (neg.f64 im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/4 binary64) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) (neg.f64 im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) (.f64 im im)) (/.f64 #s(literal 3/8 binary64) im) (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (sqrt.f64 (neg.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))) (neg.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/4 binary64) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -1 binary64) im)))) (neg.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 im)) (.f64 im im)) (/.f64 #s(literal 3/8 binary64) im) (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -1 binary64) im))))) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (+.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) im) re) im) #s(literal -1 binary64)) im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (+.f64 (/.f64 (-.f64 re (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 im im)) #s(literal -1/8 binary64) (.f64 (*.f64 re re) #s(literal 1/2 binary64))) im)) im) #s(literal -1 binary64)) im))
(.f64 #s(literal 1 binary64) #s(approx (sqrt (+ ( re re) (* im im))) (neg.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) (*.f64 im im)) #s(literal -1 binary64)) im))
#s(approx (sqrt (+ (* re re) (* im im))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64))) (neg.f64 im)))
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 (fma.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) (.f64 (.f64 re re) re)) (.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 im im))) #s(literal 1/16 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 (.f64 im im) (.f64 im im))) #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64)))) im im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64) (neg.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64)))) (neg.f64 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (sqrt.f64 (/.f64 #s(literal -2 binary64) im)) #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal -3/16 binary64)) (.f64 (*.f64 im im) im)))) (neg.f64 im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))) (neg.f64 im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (pow.f64 im #s(literal -5/2 binary64))) #s(literal -1/4 binary64) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal -2 binary64) im)))) (neg.f64 im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) (.f64 im im)) (/.f64 #s(literal 3/8 binary64) im) (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/2 binary64) (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)) (*.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 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (+.f64 (/.f64 (-.f64 (+.f64 re re) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 re re) re) re) (.f64 im im)) #s(literal -1/4 binary64) (.f64 re re)) im)) im) #s(literal -2 binary64)) im))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal -2 binary64)) im))
#s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)) im))
#s(approx (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) (/.f64 re im) #s(literal -2 binary64)))
#s(approx (+ (* (/ re im) (+ (/ re im) -2)) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) (/.f64 re im) #s(literal 2 binary64)))

eval366.0ms (4.3%)

Memory: -22.3MiB live, 118.1MiB allocated; 20ms collecting garbage
Compiler: Compiled 8 931 to 3 591 computations (59.8% saved)

prune24.0ms (0.3%)

Memory

5.8MiB live, 52.2MiB allocated; 5ms collecting garbage

Pruning

24 alts after pruning (17 fresh and 7 done)

	Pruned	Kept	Total
New	611	11	622
Fresh	2	6	8
Picked	2	3	5
Done	0	4	4
Total	615	24	639

Accuracy

94.1%

Counts

639 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
	35.4%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	17.6%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
	18.1%	(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64))))
	0.0%	(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 #s(literal -2 binary64) im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/4 binary64))))
	26.0%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 (/.f64 im re) im) #s(literal 1/2 binary64) re)) re)) (sqrt.f64 #s(literal 2 binary64))))
	25.9%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))
✓	54.4%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
▶	3.7%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64))))
	0.0%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
	26.4%	(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
✓	77.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓	54.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
▶	52.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
✓	26.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
✓	13.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
✓	52.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶	26.1%	(.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))))
	5.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re (*.f64 #s(literal -2 binary64) im))))))
	5.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
	16.7%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))))
▶	0.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))))
	26.5%	(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

Compiler

Compiled 750 to 706 computations (5.9% saved)

series42.0ms (0.5%)

Memory

23.9MiB live, 69.2MiB allocated; 5ms collecting garbage

Counts

37 → 308

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
#s(literal 1/2 binary64)
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
(fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im))
(-.f64 (/.f64 re im) #s(literal -2 binary64))
(/.f64 re im)
re
im
#s(literal -2 binary64)
(+.f64 im im)
(.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 (sqrt.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))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (neg.f64 im) (/.f64 im re))
(neg.f64 im)
(/.f64 im re)
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im)
(+.f64 #s(literal -1 binary64) (/.f64 re im))
#s(literal -1 binary64)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64)))
(.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(log.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)

Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (- (/ re im) -2) #s(hole binary64 2))
#s(approx (- (/ re im) -2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (neg im) (/ im re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (* (+ -1 (/ re im)) im) #s(hole binary64 (* -1 im)))
#s(approx (* (+ -1 (/ re im)) im) #s(hole binary64 (+ re (* -1 im))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 -1))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (- (/ re im) 1)))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* 1/2 (/ re im)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (/ re im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (- (/ re im) -2) #s(hole binary64 (/ re im)))
#s(approx (- (/ re im) -2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 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 (* (+ -1 (/ re im)) im) #s(hole binary64 re))
#s(approx (* (+ -1 (/ re im)) im) #s(hole binary64 (* re (+ 1 (* -1 (/ im re))))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (/ re im)))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (* re (- (/ 1 im) (/ 1 re)))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 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 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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 (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 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 (* (+ -1 (/ re im)) im) #s(hole binary64 (* -1 (* re (- (/ im re) 1)))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (* -1 (* re (- (/ 1 re) (/ 1 im))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#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/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (- (/ re im) -2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (/ (+ re (* -1 im)) im)))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 4 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 re))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* (pow im 2) (- (* 5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 4 re))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* 1/4 (/ (pow im 2) (pow re 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* (pow im 2) (- (* 5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 2))))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#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 (* (+ -1 (/ re im)) im) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#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 (* (+ -1 (/ re im)) im) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 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))))))

Calls

6 calls:

Time	Variable		Point	Expression
9.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) re) (+ im im)) (- (/ re im) -2) (/ re im) re im -2 (+ 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)) (* 4 re) 4 (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (/ im re)) (neg im) (/ im re) (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (+ -1 (/ re im)) im) (+ -1 (/ re im)) -1 (sqrt 2) 2 (* 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)) (* -2 im))
9.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) re) (+ im im)) (- (/ re im) -2) (/ re im) re im -2 (+ 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)) (* 4 re) 4 (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (/ im re)) (neg im) (/ im re) (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (+ -1 (/ re im)) im) (+ -1 (/ re im)) -1 (sqrt 2) 2 (* 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)) (* -2 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) re) (+ im im)) (- (/ re im) -2) (/ re im) re im -2 (+ 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)) (* 4 re) 4 (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (/ im re)) (neg im) (/ im re) (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (+ -1 (/ re im)) im) (+ -1 (/ re im)) -1 (sqrt 2) 2 (* 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)) (* -2 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)) (+ (* (- (/ re im) -2) re) (+ im im)) (- (/ re im) -2) (/ re im) re im -2 (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (/ im re)) (neg im) (/ im re) (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (+ -1 (/ re im)) im) (+ -1 (/ re im)) -1 (sqrt 2) 2 (* 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)) (* -2 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)) (+ (* (- (/ re im) -2) re) (+ im im)) (- (/ re im) -2) (/ re im) re im -2 (+ im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* (neg im) (/ im re)) (neg im) (/ im re) (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (* (+ -1 (/ re im)) im) (+ -1 (/ re im)) -1 (sqrt 2) 2 (* 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)) (* -2 im))

rewrite392.0ms (4.7%)

Memory

-21.6MiB live, 231.0MiB allocated; 42ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1326	13995
0	1358	12109
1	4271	11748
0	8093	9908

Stop Event

1×	iter-limit
1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

345 → 412

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
#s(literal 1/2 binary64)
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
(fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im))
(-.f64 (/.f64 re im) #s(literal -2 binary64))
(/.f64 re im)
re
im
#s(literal -2 binary64)
(+.f64 im im)
(.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 (sqrt.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))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))
(*.f64 (neg.f64 im) (/.f64 im re))
(neg.f64 im)
(/.f64 im re)
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))
(*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im)
(+.f64 #s(literal -1 binary64) (/.f64 re im))
#s(literal -1 binary64)
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64)))
(.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(log.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(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* 2 im)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im))))))
#s(approx (- (/ re im) -2) #s(hole binary64 2))
#s(approx (- (/ re im) -2) #s(hole binary64 (+ 2 (/ re im))))
#s(approx (/ re im) #s(hole binary64 (/ re im)))
#s(approx re #s(hole binary64 re))
#s(approx (* 4 re) #s(hole binary64 (* 4 re)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (neg im) (/ im re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))))
#s(approx (* (+ -1 (/ re im)) im) #s(hole binary64 (* -1 im)))
#s(approx (* (+ -1 (/ re im)) im) #s(hole binary64 (+ re (* -1 im))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 -1))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (- (/ re im) 1)))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* 1/2 (/ re im)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (/ re im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 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) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re)))))))
#s(approx (- (/ re im) -2) #s(hole binary64 (/ re im)))
#s(approx (- (/ re im) -2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 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 (* (+ -1 (/ re im)) im) #s(hole binary64 re))
#s(approx (* (+ -1 (/ re im)) im) #s(hole binary64 (* re (+ 1 (* -1 (/ im re))))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (/ re im)))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (* re (- (/ 1 im) (/ 1 re)))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* 2 (sqrt re))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 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 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#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 (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 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 (* (+ -1 (/ re im)) im) #s(hole binary64 (* -1 (* re (- (/ im re) 1)))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (* -1 (* re (- (/ 1 re) (/ 1 im))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re))))))
#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/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im)))
#s(approx (- (/ re im) -2) #s(hole binary64 (/ (+ re (* 2 im)) im)))
#s(approx im #s(hole binary64 im))
#s(approx (+ im im) #s(hole binary64 (* 2 im)))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re)))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (+ -1 (/ re im)) #s(hole binary64 (/ (+ re (* -1 im)) im)))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re)))))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re)))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11))))))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 4 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 re))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* (pow im 2) (- (* 5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 4 re))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* 1/4 (/ (pow im 2) (pow re 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* (pow im 2) (- (* 5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 2))))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))))
#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 (* (+ -1 (/ re im)) im) #s(hole binary64 (* im (- (/ re im) 1))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 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 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2)))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2)))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))))
#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 (* (+ -1 (/ re im)) im) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))))
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 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))))))

Outputs
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
#s(literal 1/2 binary64)
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
(fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im))
(fma.f64 im #s(literal 2 binary64) (*.f64 (neg.f64 (neg.f64 re)) (-.f64 (/.f64 re im) #s(literal -2 binary64))))
(fma.f64 im #s(literal 2 binary64) (*.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re))
(fma.f64 re (-.f64 (/.f64 re im) #s(literal -2 binary64)) (+.f64 im im))
(fma.f64 #s(literal 2 binary64) im (*.f64 (neg.f64 (neg.f64 re)) (-.f64 (/.f64 re im) #s(literal -2 binary64))))
(fma.f64 #s(literal 2 binary64) im (*.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re))
(-.f64 (.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) (.f64 #s(literal -2 binary64) im))
(-.f64 (+.f64 im im) (*.f64 (neg.f64 re) (-.f64 (/.f64 re im) #s(literal -2 binary64))))
(+.f64 (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re im) im)
(+.f64 (*.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re) (+.f64 im im))
(+.f64 (+.f64 im im) (*.f64 (neg.f64 (neg.f64 re)) (-.f64 (/.f64 re im) #s(literal -2 binary64))))
(+.f64 (+.f64 im im) (*.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re))
(/.f64 (fma.f64 (neg.f64 re) #s(literal 2 binary64) (.f64 (neg.f64 im) #s(literal 4 binary64))) (.f64 (neg.f64 im) #s(literal 2 binary64)))
(/.f64 (fma.f64 re #s(literal 2 binary64) (*.f64 im #s(literal 4 binary64))) (+.f64 im im))
(/.f64 (fma.f64 #s(literal 4 binary64) (neg.f64 im) (.f64 #s(literal 2 binary64) (neg.f64 re))) (.f64 #s(literal 2 binary64) (neg.f64 im)))
(/.f64 (fma.f64 #s(literal 4 binary64) im (+.f64 re re)) (+.f64 im im))
(-.f64 (/.f64 re im) #s(literal -2 binary64))
(+.f64 (/.f64 re im) #s(literal 2 binary64))
(+.f64 #s(literal 2 binary64) (/.f64 re im))
(/.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im)))
(/.f64 (neg.f64 re) (neg.f64 im))
(/.f64 re im)
(neg.f64 (/.f64 re (neg.f64 im)))
re
im
#s(literal -2 binary64)
(*.f64 im #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) im)
(+.f64 im im)
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) #s(literal 1/2 binary64))
(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 (/.f64 im re) (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 (/.f64 im re) (neg.f64 im)))))
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (/.f64 im re) (neg.f64 im)))
(*.f64 (/.f64 im re) (neg.f64 im))
(*.f64 (neg.f64 im) (/.f64 im re))
(/.f64 (neg.f64 (*.f64 (neg.f64 im) im)) (neg.f64 re))
(/.f64 (*.f64 (neg.f64 im) im) re)
(neg.f64 (*.f64 im (/.f64 im re)))
(*.f64 #s(literal -1 binary64) im)
(*.f64 im #s(literal -1 binary64))
(neg.f64 im)
(/.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re)))
(/.f64 (neg.f64 im) (neg.f64 re))
(/.f64 im re)
(neg.f64 (/.f64 (neg.f64 im) re))
(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im))))
(.f64 (sqrt.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im))) #s(literal 1/2 binary64))
(pow.f64 (.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im))))
(sqrt.f64 (.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)) #s(literal 2 binary64)))
(pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)) #s(literal 1/2 binary64))
(sqrt.f64 #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 (/.f64 re im) #s(literal 1 binary64)) im))
(*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)
(*.f64 im (-.f64 (/.f64 re im) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 (neg.f64 re) #s(literal 2 binary64)) (.f64 (neg.f64 im) #s(literal 2 binary64))) (*.f64 (neg.f64 im) #s(literal 2 binary64)))
(/.f64 (-.f64 (+.f64 re re) (+.f64 im im)) (+.f64 im im))
(-.f64 (/.f64 re im) #s(literal 1 binary64))
(+.f64 (/.f64 re im) (*.f64 (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(+.f64 (/.f64 re im) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
(+.f64 (/.f64 re im) #s(literal -1 binary64))
(+.f64 #s(literal -1 binary64) (/.f64 re im))
#s(literal -1 binary64)
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 2 binary64))
(fabs.f64 (sqrt.f64 #s(literal 2 binary64)))
#s(literal 2 binary64)
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.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)))
(exp.f64 (log.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))))
(+.f64 (cosh.f64 (log.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 #s(literal -2 binary64) im))))) (sinh.f64 (log.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))))
(.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(log.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(log.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))
(exp.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(+.f64 (cosh.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 #s(literal -2 binary64) im)))) (sinh.f64 (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))))
(*.f64 #s(literal -2 binary64) im)
(*.f64 im #s(literal -2 binary64))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 re (fma.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64))) (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (+.f64 im im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/8 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 re (fma.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 im im))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 re re) (.f64 (*.f64 im im) im)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) im)) re #s(literal 2 binary64)) re (+.f64 im im)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (+.f64 im im))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (*.f64 #s(literal 2 binary64) (+.f64 im re)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))
#s(approx (- (/ re im) -2) #s(literal 2 binary64))
#s(approx (- (/ re im) -2) (-.f64 (/.f64 re im) #s(literal -2 binary64)))
#s(approx (/ re im) (/.f64 re im))
#s(approx re re)
#s(approx (* 4 re) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 re (fma.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64))) (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (neg im) (/ im re)) (/.f64 (*.f64 im im) (neg.f64 re)))
#s(approx (/ im re) (/.f64 im re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 re (fma.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64))) (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (+.f64 im im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/8 binary64))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 re (fma.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64))) (sqrt.f64 (+.f64 im im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) re) #s(literal 1/2 binary64) (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) re) #s(literal 1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 im)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) re) #s(literal -1/16 binary64) (.f64 #s(literal 1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))))) re (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) #s(literal 1/2 binary64))) re (sqrt.f64 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 re re) (.f64 (*.f64 im im) im)) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im))
#s(approx (* (+ -1 (/ re im)) im) (neg.f64 im))
#s(approx (* (+ -1 (/ re im)) im) (+.f64 (neg.f64 im) re))
#s(approx (+ -1 (/ re im)) #s(literal -1 binary64))
#s(approx (+ -1 (/ re im)) (-.f64 (/.f64 re im) #s(literal 1 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 re (fma.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (.f64 (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/16 binary64))) re (.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/4 binary64))) (.f64 (sqrt.f64 (+.f64 im im)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (+.f64 im im)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 (.f64 re (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)))) re (sqrt.f64 (+.f64 im im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 re (fma.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) #s(literal 2 binary64)))) re) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) im)) (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) (+.f64 im im))))) (sqrt.f64 #s(literal 2 binary64)))) re)) (sqrt.f64 (+.f64 im im))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log.f64 (sqrt.f64 (+.f64 im im))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (log.f64 (+.f64 im im)) (/.f64 re 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) im)) re (log.f64 (sqrt.f64 (+.f64 im im)))))
#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 im #s(literal 5 binary64))) (/.f64 #s(literal 1/12 binary64) (.f64 (.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) re (log.f64 (sqrt.f64 (+.f64 im im)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (log.f64 (+.f64 im im)))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (+.f64 im im)) (/.f64 re 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) im)) re (log.f64 (+.f64 im im))))
#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 im #s(literal 5 binary64))) (/.f64 #s(literal 1/6 binary64) (.f64 (.f64 im im) im))) (*.f64 re re) (/.f64 #s(literal 1 binary64) im)) re (log.f64 (+.f64 im im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 re (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/64 binary64) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/32 binary64) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 im re) (/.f64 im re) #s(literal 4 binary64)) re))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #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 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (/.f64 (*.f64 re re) im))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (.f64 (fma.f64 (/.f64 im (.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im))) (*.f64 re re)))
#s(approx (- (/ re im) -2) (/.f64 re im))
#s(approx (- (/ re im) -2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (/.f64 #s(literal 1 binary64) im)) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 re (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/64 binary64) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 re (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/64 binary64) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/32 binary64) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (+.f64 re re)))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/16 binary64) (fma.f64 (.f64 (/.f64 (.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) re))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/16 binary64) (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/32 binary64) (fma.f64 (.f64 (/.f64 (.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) 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 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #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 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (.f64 (.f64 im im) #s(literal 1/2 binary64)) (.f64 re re)))) #s(literal -2 binary64)) re))
#s(approx (* (+ -1 (/ re im)) im) re)
#s(approx (* (+ -1 (/ re im)) im) (*.f64 (-.f64 (/.f64 (neg.f64 im) re) #s(literal -1 binary64)) re))
#s(approx (+ -1 (/ re im)) (/.f64 re im))
#s(approx (+ -1 (/ re im)) (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) im) (/.f64 #s(literal 1 binary64) re)) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 re (fma.f64 (.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/64 binary64) (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64)))) re))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal -1/64 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) re)) #s(literal 2 binary64))))) re))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 4 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #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 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #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 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 15/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #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))) (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 4 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (-.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 4 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 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 4 binary64))) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #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 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) re)) #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64) (.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 15/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 im im)) (.f64 re re))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)))) #s(literal 1/1024 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64))))) (.f64 (*.f64 re re) re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (.f64 (.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)))) #s(literal 1/512 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64))))) (.f64 (.f64 re re) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im)) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (.f64 im im))) (neg.f64 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (+.f64 (/.f64 (neg.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) (neg.f64 re)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (.f64 (+.f64 (/.f64 (fma.f64 (/.f64 im re) #s(literal -2 binary64) #s(literal -2 binary64)) (neg.f64 re)) (/.f64 #s(literal 1 binary64) im)) (.f64 re re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)))) #s(literal 1/1024 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64))))) (.f64 (*.f64 re re) re))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)))) #s(literal 1/1024 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64))))) (.f64 (*.f64 re re) re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (.f64 (.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)))) #s(literal 1/512 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64))))) (.f64 (.f64 re re) re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 im (sqrt.f64 (.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 im im) im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) re))) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 im im) im)) (sqrt.f64 re)) #s(literal -1/16 binary64))) (.f64 (.f64 re re) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) re))) (/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 (.f64 im im) im)) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)))) #s(literal 1/512 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 1/32 binary64))))) (.f64 (.f64 re re) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 im im) re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64))) (neg.f64 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (*.f64 im im) #s(literal 1/2 binary64)))) (neg.f64 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (.f64 (.f64 im im) #s(literal 1/2 binary64))))) (neg.f64 re)))
#s(approx (* (+ -1 (/ re im)) im) (neg.f64 (*.f64 (-.f64 (/.f64 im re) #s(literal 1 binary64)) re)))
#s(approx (+ -1 (/ re im)) (neg.f64 (*.f64 (-.f64 (/.f64 #s(literal 1 binary64) re) (/.f64 #s(literal 1 binary64) im)) re)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (.f64 (.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (.f64 (*.f64 re re) re)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))) #s(literal 1/2 binary64) (/.f64 (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 im #s(literal 5 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)))) #s(literal 1/1024 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64))))) (.f64 (*.f64 re re) re))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 (.f64 #s(literal -1 binary64) (pow.f64 re #s(literal -5 binary64))))) #s(literal 1/8 binary64) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (neg.f64 (/.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))))) #s(literal 1/16 binary64) (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 (.f64 #s(literal -1 binary64) re))) #s(literal -1/8 binary64))) (.f64 (.f64 re re) re)))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))) (neg.f64 (/.f64 (fma.f64 (.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))))) #s(literal 9/128 binary64) (.f64 (.f64 (.f64 (.f64 im im) im) (sqrt.f64 (.f64 #s(literal -1 binary64) re))) #s(literal -1/8 binary64))) (.f64 (.f64 re re) 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 (log.f64 (.f64 (.f64 im im) (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 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 (/.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 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (log.f64 (.f64 (.f64 im im) (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64) (/.f64 (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 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 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #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 #s(literal 1/720 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 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (/.f64 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 binary64)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64) (.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 1/4 binary64))) (.f64 im im))) (.f64 im im) (.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64) (.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 1/2 binary64))) (.f64 im im))) (.f64 im im) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) 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) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/4 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1 binary64) re)) (.f64 im im) (*.f64 #s(literal 4 binary64) re)))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (/.f64 (fma.f64 (+.f64 im im) re (*.f64 re re)) im))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (+.f64 im re)) im (.f64 re re)) im))
#s(approx (- (/ re im) -2) (/.f64 (fma.f64 im #s(literal 2 binary64) re) im))
#s(approx im im)
#s(approx (+ im im) (+.f64 im im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64) (.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 1/4 binary64))) (.f64 im im))) (.f64 im im) (.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (neg im) (neg.f64 im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64) (.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 1/4 binary64))) (.f64 im im))) (.f64 im im) (.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64))) (.f64 im im) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64) (.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 1/2 binary64))) (.f64 im im))) (.f64 im im) (.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (/.f64 (.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (+.f64 re re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/2 binary64))) (.f64 im im) (sqrt.f64 (+.f64 re re))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/4 binary64) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 (/.f64 (.f64 (-.f64 (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 1/2 binary64))) (.f64 im im))) (.f64 im im) (sqrt.f64 (+.f64 re re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 (.f64 re re) re)) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) (+.f64 re re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (-.f64 (/.f64 (.f64 #s(literal 1/16 binary64) (.f64 im im)) (pow.f64 re #s(literal 5 binary64))) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (.f64 im im) (+.f64 re re)))
#s(approx (+ -1 (/ re im)) (/.f64 (+.f64 (neg.f64 im) re) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) #s(literal 1/8 binary64) (.f64 (.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (.f64 (fma.f64 (.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64))) (*.f64 im im))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (fma.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/8 binary64) (.f64 (fma.f64 (.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (-.f64 (.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64)) (.f64 #s(literal -1/8 binary64) (/.f64 (fma.f64 #s(literal 1/32 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re)) (/.f64 #s(literal 1/8 binary64) (.f64 (.f64 re re) re))) (.f64 re re)))) (.f64 im im)) (sqrt.f64 (/.f64 #s(literal 1 binary64) re))) #s(literal 1/4 binary64))) (.f64 im im))) (.f64 im im) (.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) (.f64 im im)) #s(literal 1/4 binary64) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (.f64 #s(literal -5/64 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -7 binary64))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 21/512 binary64) (.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -11 binary64))) (.f64 (sqrt.f64 (pow.f64 re #s(literal -7 binary64))) #s(literal -5/64 binary64))) (.f64 im im) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 re re) re))) #s(literal 1/4 binary64))) (.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log.f64 (sqrt.f64 (*.f64 #s(literal 4 binary64) 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) (log.f64 (sqrt.f64 (*.f64 #s(literal 4 binary64) re)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) #s(literal -3/64 binary64) (/.f64 #s(literal 1/8 binary64) (.f64 re re))) (.f64 im im) (log.f64 (sqrt.f64 (.f64 #s(literal 4 binary64) re)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 5/192 binary64) (.f64 #s(literal -3/64 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (/.f64 #s(literal 1/8 binary64) (.f64 re re))) (.f64 im im) (log.f64 (sqrt.f64 (.f64 #s(literal 4 binary64) re)))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (log.f64 (*.f64 #s(literal 4 binary64) re)))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal 1/4 binary64) (log.f64 (*.f64 #s(literal 4 binary64) re))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 #s(literal -3/32 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 4 binary64))) (/.f64 #s(literal 1/4 binary64) (.f64 re re))) (.f64 im im) (log.f64 (.f64 #s(literal 4 binary64) re))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 #s(literal 5/96 binary64) (/.f64 (.f64 im im) (pow.f64 re #s(literal 6 binary64))) (.f64 #s(literal -3/32 binary64) (pow.f64 re #s(literal -4 binary64)))) (.f64 im im) (/.f64 #s(literal 1/4 binary64) (.f64 re re))) (.f64 im im) (log.f64 (.f64 #s(literal 4 binary64) re))))
#s(approx (* -2 im) (*.f64 #s(literal -2 binary64) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im 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 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #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 (+ (* (- (/ re im) -2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (.f64 (-.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (.f64 re re) (*.f64 im im))) #s(literal -2 binary64)) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im)))))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) re) #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (+.f64 (fma.f64 (.f64 (.f64 re re) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im))) re) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) im))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (+.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 re re) (fma.f64 (.f64 (.f64 re re) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im))) re) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) im))) 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 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #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 (* (+ -1 (/ re im)) im) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64)))) im))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))) #s(literal 1/2 binary64) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (.f64 (sqrt.f64 #s(literal 2 binary64)) re)) #s(literal 1/4 binary64))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im))) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im)))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/2 binary64) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im))) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im))))) im))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (.f64 re re) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (fma.f64 (.f64 (/.f64 (.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/2 binary64) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (sqrt.f64 (/.f64 #s(literal 4 binary64) (+.f64 im im)))))) im))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #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 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))) (/.f64 re im))))
#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 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))) (/.f64 re im)))))
#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 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))) (/.f64 re im))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))) (/.f64 re im)))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))) (fma.f64 (/.f64 (.f64 #s(literal 0 binary64) (.f64 re re)) (.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) im)) #s(literal 2 binary64))) (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)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))
(exp.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(+.f64 (cosh.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 #s(literal -2 binary64) im)))) (sinh.f64 (log.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 (neg.f64 im) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal 2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (-.f64 (/.f64 (-.f64 (+.f64 re re) (/.f64 (.f64 re re) im)) (neg.f64 im)) #s(literal -2 binary64))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (-.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) (neg.f64 im))) (neg.f64 im)) #s(literal -2 binary64))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 re im) #s(literal -2 binary64) #s(literal -2 binary64))))
#s(approx (+ (* (- (/ re im) -2) re) (+ im im)) (.f64 (neg.f64 im) (-.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (/.f64 (.f64 re re) im)) (neg.f64 im)) #s(literal 2 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (sqrt.f64 (neg.f64 im))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) (.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (-.f64 (/.f64 re (neg.f64 im)) #s(literal -1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (neg.f64 im) (-.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 re re) im) re) (neg.f64 im)) #s(literal -1 binary64))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (neg.f64 im) (-.f64 (/.f64 (+.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (.f64 im im)) #s(literal -1/8 binary64) (.f64 (.f64 re re) #s(literal 1/2 binary64))) (neg.f64 im)) re) (neg.f64 im)) #s(literal -1 binary64))))
#s(approx (* (+ -1 (/ re im)) im) (*.f64 (neg.f64 im) (-.f64 (/.f64 re (neg.f64 im)) #s(literal -1 binary64))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) (.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -2 binary64)) re) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (*.f64 im im) im)))) #s(literal 1/4 binary64))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 re (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (fma.f64 (.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (.f64 (.f64 re re) (sqrt.f64 #s(literal -1/2 binary64))) (fma.f64 (.f64 re (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (sqrt.f64 (.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 (neg.f64 im) (+.f64 (/.f64 (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 (.f64 re re) (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 im) (.f64 (/.f64 (sqrt.f64 im) #s(literal 2 binary64)) (.f64 (.f64 re re) (sqrt.f64 #s(literal -1/2 binary64)))))) (neg.f64 (.f64 (.f64 im im) im))) (fma.f64 (.f64 re (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 im im) im))) (sqrt.f64 (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) im)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #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 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64) (/.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))) (neg.f64 im))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (fma.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) #s(literal 1/2 binary64) (/.f64 (fma.f64 re #s(literal 1/2 binary64) (/.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))) (neg.f64 im))) (neg.f64 im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) (/.f64 re (neg.f64 im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) (/.f64 (fma.f64 (/.f64 (.f64 #s(literal 0 binary64) (*.f64 re re)) im) #s(literal -1/2 binary64) re) (neg.f64 im))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (log.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -1 binary64) im)) #s(literal 2 binary64))) (/.f64 (+.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))) (neg.f64 im)) re) (neg.f64 im))))

eval46.0ms (0.5%)

Memory: -15.1MiB live, 49.0MiB allocated; 6ms collecting garbage
Compiler: Compiled 5 124 to 1 772 computations (65.4% saved)

prune128.0ms (1.5%)

Memory

-15.9MiB live, 29.9MiB allocated; 4ms collecting garbage

Pruning

25 alts after pruning (16 fresh and 9 done)

	Pruned	Kept	Total
New	285	5	290
Fresh	1	11	12
Picked	3	2	5
Done	0	7	7
Total	289	25	314

Accuracy

94.1%

Counts

314 → 25

Alt Table

Click to see full alt table

Status	Accuracy	Program
	3.7%	(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)))) (sqrt.f64 #s(literal 2 binary64)))
	35.4%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	52.1%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
✓	17.6%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
	0.0%	(.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))))
	18.1%	(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64))))
	26.0%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 (/.f64 im re) im) #s(literal 1/2 binary64) re)) re)) (sqrt.f64 #s(literal 2 binary64))))
	25.9%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))
✓	54.4%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
	53.1%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal -1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
	0.0%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
	26.4%	(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
✓	77.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))
✓	54.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	26.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
✓	13.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
✓	52.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓	26.1%	(.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))))
	5.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re (*.f64 #s(literal -2 binary64) im))))))
	5.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
	16.7%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))))
	0.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))))
	26.5%	(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

Compiler

Compiled 883 to 633 computations (28.3% saved)

regimes178.0ms (2.1%)

Memory

-2.8MiB live, 90.5MiB allocated; 5ms 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 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal -1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re (*.f64 #s(literal -2 binary64) im))))))
(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))))
(.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) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 (/.f64 im re) im) #s(literal 1/2 binary64) re)) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (exp.f64 (log.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))))
(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))) #s(literal 1/2 binary64))))
(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))))
(.f64 #s(literal 1/2 binary64) (pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)))))
(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 #s(literal -2 binary64) im)) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) #s(literal 1/4 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64)) (pow.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/4 binary64))))

Outputs

(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re))))

Calls

7 calls:

67.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))))
10.0ms	im
10.0ms	re
9.0ms	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
8.0ms	(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)

Results

Accuracy	Segments	Branch
77.6%	1	`(*.f64 im im)`
89.3%	2	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
89.3%	2	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
89.9%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
89.9%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
87.5%	2	`re`
77.6%	1	`im`

Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes138.0ms (1.6%)

Memory

15.8MiB live, 67.6MiB allocated; 5ms collecting garbage

Counts

29 → 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 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal -1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re (*.f64 #s(literal -2 binary64) im))))))
(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 (fma.f64 (/.f64 re im) (+.f64 (/.f64 re im) #s(literal -2 binary64)) #s(literal 2 binary64))) im))))

Outputs
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))

Calls

7 calls:

94.0ms	re
8.0ms	im
7.0ms	(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
7.0ms	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
7.0ms	(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)

Results

Accuracy	Segments	Branch
63.3%	3	`(*.f64 im im)`
66.0%	4	`im`
81.9%	4	`re`
73.7%	3	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
73.7%	3	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
73.9%	3	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
73.9%	3	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`

Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes8.0ms (0.1%)

Memory

8.6MiB live, 8.6MiB allocated; 0ms collecting garbage

Counts

26 → 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 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))
(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal 1 binary64)) im)))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (-.f64 (/.f64 re im) #s(literal -1 binary64)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal -2 binary64)) re (+.f64 im im)))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 #s(literal -1 binary64) (/.f64 re im)) im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (fma.f64 (-.f64 #s(literal 2 binary64) (/.f64 re im)) re (*.f64 #s(literal -2 binary64) im))))))

Outputs

(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 im (/.f64 im re) (*.f64 #s(literal 4 binary64) re)))))

Calls

1 calls:

7.0ms

re

Results

Accuracy	Segments	Branch
79.6%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes6.0ms (0.1%)

Memory

4.0MiB live, 4.0MiB allocated; 0ms collecting garbage

Counts

19 → 3

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))))

Outputs

(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))

Calls

1 calls:

5.0ms

re

Results

Accuracy	Segments	Branch
79.6%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes6.0ms (0.1%)

Memory

3.9MiB live, 3.9MiB allocated; 0ms collecting garbage

Counts

17 → 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 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (.f64 im (sqrt.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))
(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal -1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))

Outputs

(*.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (sqrt.f64 (*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) re))))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))

(*.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:

5.0ms

re

Results

Accuracy	Segments	Branch
79.6%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes126.0ms (1.5%)

Memory

-34.5MiB live, 12.9MiB allocated; 2ms collecting garbage

Counts

14 → 3

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))
(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re)) (sqrt.f64 #s(literal 2 binary64))))

Outputs

(*.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 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))

Calls

5 calls:

110.0ms	(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
4.0ms	re
4.0ms	(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
4.0ms	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
4.0ms	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))

Results

Accuracy	Segments	Branch
62.3%	2	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
62.3%	2	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
63.5%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
63.5%	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))))`
73.3%	3	`re`

Compiler

Compiled 39 to 40 computations (-2.6% saved)

regimes4.0ms (0%)

Memory

2.9MiB live, 2.9MiB allocated; 0ms collecting garbage

Counts

11 → 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 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))

Outputs

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 (neg.f64 im) im) re))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))

(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))

Calls

1 calls:

3.0ms

re

Results

Accuracy	Segments	Branch
70.5%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes4.0ms (0%)

Memory

2.8MiB live, 2.8MiB allocated; 0ms collecting garbage

Counts

10 → 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 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (* (neg (+ (* (/ re im) (+ (/ re im) -2)) 2)) im) (*.f64 #s(literal -2 binary64) (-.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* 4 re) (/ (* im im) re)) (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(approx (+ (* im (/ im re)) (* 4 re)) (*.f64 (/.f64 im re) im)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) re))))
(.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

1 calls:

3.0ms

re

Results

Accuracy	Segments	Branch
67.5%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes8.0ms (0.1%)

Memory

9.3MiB live, 9.3MiB allocated; 0ms collecting garbage

Accuracy

Total -33.4b remaining (-109%)

Threshold costs -33.4b (-109%)

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:

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

Results

Accuracy	Segments	Branch
52.1%	1	`(*.f64 im im)`
52.1%	1	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
52.1%	1	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
52.1%	1	`im`
52.1%	1	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
52.1%	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))))`
52.1%	1	`re`

Compiler

Compiled 42 to 45 computations (-7.1% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	3.8899697866856857e-143

Compiler

Compiled 15 to 17 computations (-13.3% saved)

bsearch35.0ms (0.4%)

Memory

10.2MiB live, 10.2MiB allocated; 0ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
5.0ms	2.236084805959101e+88	9.226201880752956e+90
8.0ms	6.130354288950265e-97	1.2782136373262493e-96
19.0ms	-1.6309918437003451e-41	-1.1352491256305526e-45

Samples

11.0ms	191×	0	valid
6.0ms	38×	2	valid
2.0ms	21×	1	valid
2.0ms	6×	3	valid

Compiler

Compiled 543 to 571 computations (-5.2% saved)

Precisions

Click to see histograms. Total time spent on operations: 15.0ms

ival-hypot: 7.0ms (46.9% of total)

ival-mult!: 3.0ms (20.1% of total)

ival-sqrt: 2.0ms (13.4% of total)

adjust: 1.0ms (6.7% of total)

ival-add!: 1.0ms (6.7% of total)

bsearch16.0ms (0.2%)

Memory

5.4MiB live, 5.4MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
14.0ms	3.7912994125554045e+59	1.2287151241664306e+66
1.0ms	-1.6309918437003451e-41	-1.1352491256305526e-45

Samples

8.0ms

144×

valid

Compiler

Compiled 612 to 642 computations (-4.9% saved)

Precisions

Click to see histograms. Total time spent on operations: 5.0ms

ival-hypot: 2.0ms (41% of total)

ival-sqrt: 1.0ms (20.5% of total)

ival-mult!: 1.0ms (20.5% of total)

adjust: 0.0ms (0% of total)

ival-add!: 0.0ms (0% of total)

bsearch3.0ms (0%)

Memory

1.3MiB live, 1.3MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.7912994125554045e+59	1.2287151241664306e+66
1.0ms	-1.6309918437003451e-41	-1.1352491256305526e-45

Compiler

Compiled 594 to 624 computations (-5.1% saved)

bsearch2.0ms (0%)

Memory

1.2MiB live, 1.2MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.7912994125554045e+59	1.2287151241664306e+66
1.0ms	-1.6309918437003451e-41	-1.1352491256305526e-45

Compiler

Compiled 526 to 556 computations (-5.7% saved)

bsearch19.0ms (0.2%)

Memory

5.6MiB live, 5.6MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.7912994125554045e+59	1.2287151241664306e+66
16.0ms	-1.6309918437003451e-41	-1.1352491256305526e-45

Samples

5.0ms	29×	2	valid
3.0ms	62×	0	valid
2.0ms	18×	1	valid
1.0ms	3×	3	valid

Compiler

Compiled 502 to 532 computations (-6% saved)

Precisions

Click to see histograms. Total time spent on operations: 8.0ms

ival-hypot: 4.0ms (47.9% of total)

ival-mult!: 2.0ms (24% of total)

adjust: 1.0ms (12% of total)

ival-add!: 1.0ms (12% of total)

ival-sqrt: 1.0ms (12% of total)

bsearch2.0ms (0%)

Memory

1.2MiB live, 1.2MiB allocated; 0ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.7912994125554045e+59	1.2287151241664306e+66
1.0ms	-1.6309918437003451e-41	-1.1352491256305526e-45

Compiler

Compiled 502 to 532 computations (-6% saved)

bsearch9.0ms (0.1%)

Memory

3.2MiB live, 3.2MiB allocated; 0ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
8.0ms	3.7912994125554045e+59	1.2287151241664306e+66

Samples

4.0ms

80×

valid

Compiler

Compiled 279 to 293 computations (-5% saved)

Precisions

Click to see histograms. Total time spent on operations: 3.0ms

ival-hypot: 1.0ms (36.8% of total)

ival-sqrt: 1.0ms (36.8% of total)

ival-mult!: 1.0ms (36.8% of total)

adjust: 0.0ms (0% of total)

ival-add!: 0.0ms (0% of total)

derivations1.7s (20.1%)

Memory

-27.5MiB live, 539.0MiB allocated; 136ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 177 to 107 computations (39.5% saved)

preprocess103.0ms (1.2%)

Memory: 10.5MiB live, 336.9MiB allocated; 36ms collecting garbage
Compiler: Compiled 963 to 742 computations (22.9% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze793.0ms (9.4%)

sample1.6s (18.7%)

preprocess44.0ms (0.5%)

series49.0ms (0.6%)

rewrite833.0ms (9.9%)

eval156.0ms (1.9%)

prune13.0ms (0.2%)

series25.0ms (0.3%)

rewrite709.0ms (8.4%)

eval85.0ms (1%)

prune104.0ms (1.2%)

series38.0ms (0.4%)

rewrite644.0ms (7.6%)

eval366.0ms (4.3%)

prune24.0ms (0.3%)

series42.0ms (0.5%)

rewrite392.0ms (4.7%)

eval46.0ms (0.5%)

prune128.0ms (1.5%)

regimes178.0ms (2.1%)

regimes138.0ms (1.6%)

regimes8.0ms (0.1%)

regimes6.0ms (0.1%)

regimes6.0ms (0.1%)

regimes126.0ms (1.5%)

regimes4.0ms (0%)

regimes4.0ms (0%)

regimes8.0ms (0.1%)

bsearch0.0ms (0%)

bsearch35.0ms (0.4%)

bsearch16.0ms (0.2%)

bsearch3.0ms (0%)

bsearch2.0ms (0%)

bsearch19.0ms (0.2%)

bsearch2.0ms (0%)

bsearch9.0ms (0.1%)

derivations1.7s (20.1%)

preprocess103.0ms (1.2%)

end0.0ms (0%)

Profiling