Metrics for math.sqrt on complex, real part

start0.0ms (0%)

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

analyze115.0ms (2.7%)

Memory

-5.6MiB live, 128.9MiB allocated; 21ms 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.4s (32.8%)

Memory

62.8MiB live, 2 077.7MiB allocated; 562ms collecting garbage

Samples

566.0ms	6 245×	0	valid
182.0ms	794×	2	valid
164.0ms	757×	1	valid
143.0ms	460×	3	valid

Precisions

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

ival-hypot: 410.0ms (55.1% of total)

ival-sqrt: 137.0ms (18.4% of total)

ival-mult!: 108.0ms (14.5% of total)

ival-add!: 45.0ms (6% of total)

adjust: 44.0ms (5.9% of total)

Bogosity

preprocess123.0ms (2.9%)

Memory

-32.4MiB live, 64.1MiB allocated; 32ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	129	92
2	292	90
3	507	90
4	1242	90
5	7979	90

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs im)

Compiler

Compiled 24 to 24 computations (0% saved)

series27.0ms (0.6%)

Memory

27.4MiB live, 71.1MiB allocated; 11ms collecting garbage

Counts

12 → 122

Calls

Call 1

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

Outputs
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))

Calls

6 calls:

Time	Variable		Point	Expression
11.0ms	im	@	0	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	im	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	re	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	re	@	0	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
2.0ms	re	@	-inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)

rewrite658.0ms (15.4%)

Memory

-78.1MiB live, 413.2MiB allocated; 729ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	660	4927
0	672	4692
1	4010	4405
0	9244	3666

Stop Event

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

Counts

134 → 325

Calls

Call 1

Inputs
(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
#s(literal 1/2 binary64)
(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))
#s(literal 2 binary64)
(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))
(+.f64 (.f64 re re) (.f64 im im))
(*.f64 re re)
re
(*.f64 im im)
im
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* re re) #s(hole binary64 (pow re 2)))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im)))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))))

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

eval38.0ms (0.9%)

Memory: 40.5MiB live, 85.4MiB allocated; 4ms collecting garbage
Compiler: Compiled 4 573 to 1 913 computations (58.2% saved)

prune37.0ms (0.9%)

Memory

-22.2MiB live, 31.4MiB allocated; 33ms collecting garbage

Pruning

16 alts after pruning (16 fresh and 0 done)

	Pruned	Kept	Total
New	302	16	318
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	303	16	319

Accuracy

94.0%

Counts

319 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
	41.3%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	41.1%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
▶	78.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 (exp.f64 (log.f64 (fabs.f64 re))) im) re))))
	6.0%	(.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))))
	58.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #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) (fabs.f64 re))) (.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))))
	55.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
▶	55.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	27.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
	12.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
▶	15.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
	55.3%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64))))))
	27.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
▶	54.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
	0.0%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))

Compiler

Compiled 540 to 524 computations (3% saved)

series131.0ms (3%)

Memory

-5.3MiB live, 226.5MiB allocated; 28ms collecting garbage

Counts

35 → 274

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
31.0ms	re	@	0	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re))) (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)) 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re) (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) (exp (log (fabs re))) (log (fabs re)) (fabs re) 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))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2))
26.0ms	re	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re))) (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)) 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re) (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) (exp (log (fabs re))) (log (fabs re)) (fabs re) 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))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2))
21.0ms	re	@	-inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re))) (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)) 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re) (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) (exp (log (fabs re))) (log (fabs re)) (fabs re) 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))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2))
21.0ms	im	@	-inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re))) (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)) 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re) (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) (exp (log (fabs re))) (log (fabs re)) (fabs re) 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))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2))
14.0ms	im	@	inf	((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re))) (* 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re)) 2 (+ (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) re) (sqrt (+ (* (exp (log (fabs re))) (exp (log (fabs re)))) (* im im))) (exp (log (fabs re))) (log (fabs re)) (fabs re) 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))) (* (sqrt (/ 2 im)) im) (sqrt (/ 2 im)) (/ 2 im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2))

rewrite159.0ms (3.7%)

Memory

23.0MiB live, 251.2MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1519	12803
0	1561	11024
0	8643	9964

Stop Event

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

Counts

309 → 430

Calls

Call 1

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

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

eval46.0ms (1.1%)

Memory: -0.8MiB live, 97.9MiB allocated; 11ms collecting garbage
Compiler: Compiled 7 763 to 2 257 computations (70.9% saved)

prune16.0ms (0.4%)

Memory

-6.9MiB live, 39.8MiB allocated; 2ms collecting garbage

Pruning

18 alts after pruning (15 fresh and 3 done)

	Pruned	Kept	Total
New	376	4	380
Fresh	0	11	11
Picked	2	3	5
Done	0	0	0
Total	378	18	396

Accuracy

96.3%

Counts

396 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
	41.1%	(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
	41.3%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	6.0%	(.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))))
▶	58.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #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) (fabs.f64 re))) (.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))))
	55.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
▶	7.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 re re))))
✓	55.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	27.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
	12.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
✓	15.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
▶	17.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
▶	55.3%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64))))))
	54.8%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)) im)))
	27.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
✓	54.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
▶	0.0%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))

Compiler

Compiled 565 to 549 computations (2.8% saved)

series25.0ms (0.6%)

Memory

12.0MiB live, 57.1MiB allocated; 4ms collecting garbage

Counts

33 → 114

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite243.0ms (5.7%)

Memory

-5.5MiB live, 286.2MiB allocated; 48ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	662	4690
0	692	4382
1	3958	4224
0	9007	3598

Stop Event

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

Counts

147 → 303

Calls

Call 1

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

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

eval34.0ms (0.8%)

Memory: -12.5MiB live, 78.3MiB allocated; 9ms collecting garbage
Compiler: Compiled 4 559 to 1 616 computations (64.6% saved)

prune17.0ms (0.4%)

Memory

-1.5MiB live, 44.9MiB allocated; 4ms collecting garbage

Pruning

20 alts after pruning (13 fresh and 7 done)

	Pruned	Kept	Total
New	284	3	287
Fresh	0	10	10
Picked	1	4	5
Done	0	3	3
Total	285	20	305

Accuracy

96.3%

Counts

305 → 20

Alt Table

Click to see full alt table

Status	Accuracy	Program
	41.1%	(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
	41.3%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	55.3%	(.f64 #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
▶	58.3%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
▶	6.0%	(.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))))
✓	58.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #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) (fabs.f64 re))) (.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))))
	55.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓	7.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 re re))))
✓	55.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	27.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
▶	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
	12.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
✓	15.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓	17.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
▶	17.0%	(.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))))
	54.8%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)) im)))
	27.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
✓	54.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
✓	0.0%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))

Compiler

Compiled 569 to 553 computations (2.8% saved)

series39.0ms (0.9%)

Memory

2.9MiB live, 98.4MiB allocated; 12ms collecting garbage

Counts

36 → 248

Calls

Call 1

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

Outputs
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/4 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/8 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/4 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (sqrt (pow im 2))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (/ (* re (sqrt 2)) (sqrt (sqrt (pow im 2))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (sqrt (sqrt (pow im 2))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (/ (sqrt 2) (sqrt (sqrt (pow im 2))))) (* re (+ (* -1/4 (/ (* re (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (* (sqrt 2) (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))))))) (* (sqrt 2) (sqrt (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (sqrt (pow im 2)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* 1/2 (/ re (sqrt (sqrt (pow im 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* 1/2 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (sqrt (sqrt (pow im 2))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (sqrt (pow im 2))) (* re (+ (* re (+ (* -1/4 (/ (* re (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2))))) (pow (sqrt (sqrt (pow im 2))) 3))) (* 1/2 (/ (- (* 1/2 (/ 1 (sqrt (pow im 2)))) (* 1/4 (/ 1 (pow (sqrt (sqrt (pow im 2))) 2)))) (sqrt (sqrt (pow im 2))))))) (* 1/2 (/ 1 (sqrt (sqrt (pow im 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow im 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* 1/2 (/ re (sqrt (pow im 2)))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))))
#s(approx (+ (fabs im) re) #s(hole binary64 (fabs im)))
#s(approx (+ (fabs im) re) #s(hole binary64 (+ re (fabs 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 (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (+ (* re (+ (* 1/4 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (/ re (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (+ (* re (+ (* 1/2 (/ (* re (- (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 4)) (/ 1 (* (pow (sqrt (* 2 (sqrt (pow im 2)))) 2) (sqrt (pow im 2)))))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (/ re (sqrt (pow im 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* 1/2 (/ (pow re 2) (sqrt (pow im 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow im 2)) (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (sqrt (* 2 (fabs im)))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (+ (sqrt (* 2 (fabs im))) (/ re (sqrt (* 2 (fabs im)))))))
#s(approx (/ re (sqrt (* (fabs im) 2))) #s(hole binary64 (/ re (sqrt (* 2 (fabs im))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 (sqrt (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* 1/2 (/ re (sqrt (pow im 2)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* re (+ (* -1/12 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (sqrt (pow im 2))))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/12 (/ 1 (pow (sqrt (pow im 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow im 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 (sqrt (pow im 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (/ re (sqrt (pow im 2))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (* re (+ (* -1/6 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (sqrt (pow im 2)))) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow (sqrt (pow im 2)) 5))) (* 1/6 (/ 1 (pow (sqrt (pow im 2)) 3))))) (/ 1 (sqrt (pow im 2))))))))
#s(approx (* (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 (* re (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* re (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/64 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* 1/2 (* (sqrt 2) (sqrt (/ 2 re))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (* (sqrt 2) (sqrt (/ 2 re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (pow re 3) (sqrt (/ 2 re))))) (* (sqrt 2) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (sqrt (/ 2 re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (sqrt (/ 2 re)) (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 2 re))))) (+ (* -1/32 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 2 re)) 3)))) (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 2 re)))))))))))
#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 (+ (fabs im) re) #s(hole binary64 (* re (+ 1 (/ (fabs im) re)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* re (sqrt (/ 4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/16 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/16 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (+ (* 1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))) (* 1/2 (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (sqrt (/ 4 re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (sqrt (/ 4 re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 5) (sqrt (/ 4 re))))) (+ (* -1/8 (/ (pow im 4) (* (pow re 6) (pow (sqrt (/ 4 re)) 3)))) (* 1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ 4 re)))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #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 (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* re (+ (/ 1 (sqrt (* 2 (fabs im)))) (/ (sqrt (* 2 (fabs im))) re)))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (* -1 (log (/ 1 re))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/1024 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (* (pow im 8) (sqrt 2)) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))) (* (sqrt 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (* -1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1/2 (/ (pow im 2) re)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (* -1/2 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1/2 (/ (pow im 2) re))))) (+ (* 1/512 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1/2 (/ (pow im 2) re)))))))) (pow re 3))))))
#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 (+ (fabs im) re) #s(hole binary64 (* -1 (* re (- (* -1 (/ (fabs im) re)) 1)))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* -1 (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/256 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))) (* 1/2 (sqrt (* -1 (/ (pow im 2) re)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* -1 (/ (pow im 2) re)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* 1/8 (/ (pow im 4) (* (pow re 3) (sqrt (* -1 (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re))))))) (pow re 3))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* -1 (/ (pow im 2) re))) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (sqrt (* -1 (/ (pow im 2) re))))) (+ (* 1/128 (/ (pow im 8) (* (pow re 3) (pow (sqrt (* -1 (/ (pow im 2) re))) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 2) (sqrt (* -1 (/ (pow im 2) re)))))))) (pow re 3))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) #s(hole binary64 (* -1 (* re (- (* -1 (/ (sqrt (* 2 (fabs im))) re)) (/ 1 (sqrt (* 2 (fabs im)))))))))
#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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/2 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* 1/8 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/4 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* 1/4 (/ (sqrt 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2)))))))) (sqrt (+ re (sqrt (pow re 2)))))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt (+ re (sqrt (pow re 2))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* 1/4 (/ (pow im 2) (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (+ re (sqrt (pow re 2)))))) (* 1/2 (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (+ re (sqrt (pow re 2)))) 2) (sqrt (pow re 2))))))) (sqrt (+ re (sqrt (pow re 2)))))))) (* 1/4 (/ 1 (* (sqrt (+ re (sqrt (pow re 2)))) (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (sqrt (pow re 2)))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ re (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (+ re (sqrt (pow re 2))))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (+ re (sqrt (pow re 2))))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (+ re (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (+ re (sqrt (pow re 2)))) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* -2 im) #s(hole binary64 (* -2 im)))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (sqrt (pow re 2))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2)))))))))
#s(approx (* (fabs im) 2) #s(hole binary64 (* 2 (fabs im))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 (+ re (sqrt (pow re 2))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))) (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* -1/48 (* (pow im 2) (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 (+ re (sqrt (pow re 2)))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/48 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/1440 (* (pow im 2) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))))))))) (* 1/4 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 (+ re (sqrt (pow re 2)))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* 1/2 (/ (pow im 2) (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/24 (* (pow im 2) (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2))))))))) (* 1/2 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 (+ re (sqrt (pow re 2))))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/24 (+ (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 2) (pow (+ re (sqrt (pow re 2))) 2)))) (* 3 (/ 1 (* (pow (sqrt (pow re 2)) 3) (+ re (sqrt (pow re 2)))))))) (* 1/720 (* (pow im 2) (+ (* 30 (/ 1 (* (pow (sqrt (pow re 2)) 3) (pow (+ re (sqrt (pow re 2))) 3)))) (+ (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 5) (+ re (sqrt (pow re 2)))))) (* 45 (/ 1 (* (pow (sqrt (pow re 2)) 4) (pow (+ re (sqrt (pow re 2))) 2)))))))))) (* 1/2 (/ 1 (* (sqrt (pow re 2)) (+ re (sqrt (pow re 2)))))))))))
#s(approx (neg im) #s(hole binary64 (* -1 im)))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* im (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* im (+ (* -1/16 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ 1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (* (sqrt 2) (sqrt (/ 1 im))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (* (sqrt 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (sqrt (/ 1 im)))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 1 im)))))))))))
#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/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (+ (* 1/2 (sqrt (/ 2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (/ re (* (pow im 2) (sqrt (/ 2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #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 (* (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 (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1/2 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* 1/2 (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/8 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* 1/2 (* (sqrt 2) (sqrt (/ -1 im))))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (* (sqrt 2) (sqrt (/ -1 im)))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ -1 im))))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (* (pow re 2) (sqrt 2)) (sqrt (/ -1 im))))) (pow im 3))) (+ (* 1/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (* (sqrt 2) (sqrt (/ -1 im)))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (sqrt (/ -1 im))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -1 im))))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -1 im)))))))))))
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -1 im)) (+ (* -1 (/ (+ (* 1/8 (/ (pow re 2) (* im (pow (sqrt (/ -1 im)) 3)))) (* 1/4 (/ (pow re 2) (sqrt (/ -1 im))))) (pow im 3))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -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/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* 1/2 (sqrt (/ -2 im))) (* 1/2 (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (/ re (* (pow im 2) (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im)))))))
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im)))))))
#s(approx (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 (* (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
8.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) (+ (fabs im) re) (fabs 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 re) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 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)) (* (neg im) (/ im re)) (neg im) (/ im re))
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) (+ (fabs im) re) (fabs 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 re) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 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)) (* (neg im) (/ im re)) (neg im) (/ im re))
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) (+ (fabs im) re) (fabs 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 re) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 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)) (* (neg im) (/ im re)) (neg im) (/ im re))
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) (+ (fabs im) re) (fabs 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 re) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 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)) (* (neg im) (/ im re)) (neg im) (/ im re))
3.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) (+ (fabs im) re) (fabs 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 re) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+ (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2))) (/ re (sqrt (* (fabs im) 2))) (sqrt (* (fabs im) 2)) (* (fabs im) 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)) (* (neg im) (/ im re)) (neg im) (/ im re))

rewrite300.0ms (7%)

Memory

28.5MiB live, 389.9MiB allocated; 171ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1451	11890
0	1485	10836
0	8737	9368

Stop Event

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

Counts

284 → 331

Calls

Call 1

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

eval36.0ms (0.8%)

Memory: 18.3MiB live, 62.8MiB allocated; 9ms collecting garbage
Compiler: Compiled 7 230 to 1 952 computations (73% saved)

prune21.0ms (0.5%)

Memory

-13.2MiB live, 32.7MiB allocated; 5ms collecting garbage

Pruning

22 alts after pruning (10 fresh and 12 done)

	Pruned	Kept	Total
New	300	2	302
Fresh	0	8	8
Picked	0	5	5
Done	0	7	7
Total	300	22	322

Accuracy

96.3%

Counts

322 → 22

Alt Table

Click to see full alt table

Status	Accuracy	Program
	41.1%	(.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re))) (sqrt.f64 #s(literal 2 binary64)))
	41.3%	(.f64 (sqrt.f64 (.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	55.3%	(.f64 #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (+.f64 (/.f64 re (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64)))) (sqrt.f64 (.f64 (fabs.f64 im) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
✓	58.3%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))
	54.8%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
✓	6.0%	(.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))))
✓	58.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
	33.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #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) (fabs.f64 re))) (.f64 im im) (*.f64 (+.f64 (fabs.f64 re) re) #s(literal 2 binary64))))))
	55.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓	7.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 re re))))
✓	55.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	27.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓	0.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im))))
	12.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 im im) (.f64 im im)) (.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re)))))
✓	15.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓	17.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
✓	17.0%	(.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))))
	51.3%	(.f64 #s(literal 1/2 binary64) (exp.f64 #s(approx ( (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log.f64 (sqrt.f64 (*.f64 (fabs.f64 im) #s(literal 2 binary64)))))))
	54.8%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)) im)))
	27.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) re)))
✓	54.9%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
✓	0.0%	#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))

Compiler

Compiled 687 to 525 computations (23.6% saved)

regimes72.0ms (1.7%)

Memory

19.3MiB live, 71.7MiB allocated; 18ms collecting garbage

Counts

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

Outputs

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes46.0ms (1.1%)

Memory

-22.8MiB live, 70.9MiB allocated; 7ms collecting garbage

Counts

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
71.2%	3	`(*.f64 im im)`
71.2%	3	`im`
75.1%	3	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
75.1%	3	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
75.4%	3	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
75.4%	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))))`
81.0%	4	`re`

Compiler

Compiled 42 to 45 computations (-7.1% saved)

regimes6.0ms (0.1%)

Memory

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

Counts

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

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

Calls

1 calls:

5.0ms

re

Results

Accuracy	Segments	Branch
80.7%	4	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes5.0ms (0.1%)

Memory

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

Counts

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

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

Calls

1 calls:

4.0ms

re

Results

Accuracy	Segments	Branch
80.7%	4	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes5.0ms (0.1%)

Memory

6.5MiB live, 6.5MiB allocated; 0ms 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 re re))))
(.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) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) 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 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 im)) im)))
(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re))) (sqrt.f64 #s(literal 2 binary64))))

Outputs

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

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

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

Calls

1 calls:

4.0ms

re

Results

Accuracy	Segments	Branch
78.9%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes19.0ms (0.4%)

Memory

-25.0MiB live, 21.4MiB allocated; 2ms 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 re re))))
(.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) (.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (.f64 (.f64 #s(literal -1/2 binary64) im) (sqrt.f64 (/.f64 #s(literal -2 binary64) im))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (/.f64 #s(literal 2 binary64) (sqrt.f64 re)) 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 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 (fabs.f64 im) re)))))

Outputs

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

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

Calls

5 calls:

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

Results

Accuracy	Segments	Branch
58.6%	1	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
58.6%	1	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
58.6%	1	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
58.6%	1	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
70.8%	2	`re`

Compiler

Compiled 39 to 40 computations (-2.6% saved)

regimes3.0ms (0.1%)

Memory

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

Counts

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

Calls

1 calls:

3.0ms

re

Results

Accuracy	Segments	Branch
70.4%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes3.0ms (0.1%)

Memory

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

Counts

7 → 2

Calls

Call 1

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

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:

2.0ms

re

Results

Accuracy	Segments	Branch
70.2%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes10.0ms (0.2%)

Memory

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

Accuracy

Total -35.3b remaining (-123.2%)

Threshold costs -35.3b (-123.2%)

Counts

3 → 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 re re))))

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

Results

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

Compiler

Compiled 42 to 45 computations (-7.1% saved)

bsearch36.0ms (0.9%)

Memory

-18.7MiB live, 30.3MiB allocated; 7ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
34.0ms	-1.5500921916554872e+49	-7.675466626251072e+37

Samples

13.0ms	24×	1	valid
7.0ms	44×	2	valid
4.0ms	77×	0	valid
4.0ms	15×	3	valid

Compiler

Compiled 298 to 314 computations (-5.4% saved)

Precisions

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

ival-mult!: 12.0ms (50.5% of total)

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

adjust: 2.0ms (8.4% of total)

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

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

bsearch33.0ms (0.8%)

Memory

-0.6MiB live, 42.8MiB allocated; 7ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
19.0ms	2.485163832039676e+83	1.364145468028101e+94
10.0ms	2.320062927301059e-152	4.245791869252474e-151
1.0ms	-1.5500921916554872e+49	-7.675466626251072e+37

Samples

19.0ms

272×

valid

Compiler

Compiled 875 to 908 computations (-3.8% saved)

Precisions

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

ival-hypot: 9.0ms (64.6% of total)

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

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

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

adjust: 0.0ms (0% of total)

bsearch4.0ms (0.1%)

Memory

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

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.485163832039676e+83	1.364145468028101e+94
1.0ms	2.320062927301059e-152	4.245791869252474e-151
1.0ms	-1.5500921916554872e+49	-7.675466626251072e+37

Compiler

Compiled 909 to 908 computations (0.1% saved)

bsearch4.0ms (0.1%)

Memory

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

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.485163832039676e+83	1.364145468028101e+94
1.0ms	2.320062927301059e-152	4.245791869252474e-151
1.0ms	-1.5500921916554872e+49	-7.675466626251072e+37

Compiler

Compiled 790 to 840 computations (-6.3% saved)

bsearch18.0ms (0.4%)

Memory

-18.8MiB live, 24.1MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
12.0ms	24.54652000796254	26596.800315933186
1.0ms	-1.5500921916554872e+49	-7.675466626251072e+37

Samples

7.0ms

128×

valid

Compiler

Compiled 584 to 616 computations (-5.5% saved)

Precisions

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

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

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

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

adjust: 0.0ms (0% of total)

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	24.54652000796254	26596.800315933186

Compiler

Compiled 274 to 286 computations (-4.4% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	24.54652000796254	26596.800315933186

Compiler

Compiled 266 to 278 computations (-4.5% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	24.54652000796254	26596.800315933186

Compiler

Compiled 250 to 262 computations (-4.8% saved)

derivations387.0ms (9%)

Memory

-19.5MiB live, 282.4MiB allocated; 152ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 153 to 85 computations (44.4% saved)

preprocess161.0ms (3.8%)

Memory: 31.7MiB live, 175.4MiB allocated; 24ms collecting garbage
Compiler: Compiled 903 to 692 computations (23.4% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze115.0ms (2.7%)

sample1.4s (32.8%)

preprocess123.0ms (2.9%)

series27.0ms (0.6%)

rewrite658.0ms (15.4%)

eval38.0ms (0.9%)

prune37.0ms (0.9%)

series131.0ms (3%)

rewrite159.0ms (3.7%)

eval46.0ms (1.1%)

prune16.0ms (0.4%)

series25.0ms (0.6%)

rewrite243.0ms (5.7%)

eval34.0ms (0.8%)

prune17.0ms (0.4%)

series39.0ms (0.9%)

rewrite300.0ms (7%)

eval36.0ms (0.8%)

prune21.0ms (0.5%)

regimes72.0ms (1.7%)

regimes46.0ms (1.1%)

regimes6.0ms (0.1%)

regimes5.0ms (0.1%)

regimes5.0ms (0.1%)

regimes19.0ms (0.4%)

regimes3.0ms (0.1%)

regimes3.0ms (0.1%)

regimes10.0ms (0.2%)

bsearch36.0ms (0.9%)

bsearch33.0ms (0.8%)

bsearch4.0ms (0.1%)

bsearch4.0ms (0.1%)

bsearch18.0ms (0.4%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

derivations387.0ms (9%)

preprocess161.0ms (3.8%)

end0.0ms (0%)

Profiling