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

start0.0ms (0%)

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

analyze103.0ms (2.6%)

Memory

20.3MiB live, 162.1MiB allocated; 39ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	50%	50%	0%	0%	0%	0
0%	0%	50%	50%	0%	0%	0%	1
50%	25%	25%	50%	0%	0%	0%	2
50%	25%	25%	50%	0%	0%	0%	3
62.5%	31.2%	18.7%	50%	0%	0%	0%	4
62.5%	31.2%	18.7%	50%	0%	0%	0%	5
68.8%	34.3%	15.6%	50%	0%	0%	0%	6
68.8%	34.3%	15.6%	50%	0%	0%	0%	7
71.9%	35.9%	14%	50%	0%	0%	0%	8
71.9%	35.9%	14%	50%	0%	0%	0%	9
73.4%	36.7%	13.3%	50%	0%	0%	0%	10
73.4%	36.7%	13.3%	50%	0%	0%	0%	11
74.2%	37.1%	12.9%	50%	0%	0%	0%	12

Compiler

Compiled 19 to 12 computations (36.8% saved)

sample1.3s (32.2%)

Memory

63.2MiB live, 1 962.8MiB allocated; 398ms collecting garbage

Samples

414.0ms	6 175×	0	valid
204.0ms	805×	2	valid
152.0ms	474×	3	valid
106.0ms	802×	1	valid

Precisions

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

ival-hypot: 275.0ms (42.7% of total)

ival-mult!: 150.0ms (23.3% of total)

ival-sqrt: 94.0ms (14.6% of total)

ival-sub!: 76.0ms (11.8% of total)

adjust: 49.0ms (7.6% of total)

Bogosity

preprocess100.0ms (2.5%)

Memory

-31.8MiB live, 64.8MiB allocated; 33ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	97	92
2	203	92
3	304	92
4	654	92
5	3718	92

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Symmetry

(abs im)

Compiler

Compiled 30 to 24 computations (20% saved)

series19.0ms (0.5%)

Memory

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

Counts

12 → 122

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite204.0ms (5%)

Memory

26.5MiB live, 251.0MiB allocated; 38ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	669	4899
0	681	4688
1	3984	4389
0	9162	3652

Stop Event

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

Counts

134 → 320

Calls

Call 1

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

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

eval48.0ms (1.2%)

Memory: -0.6MiB live, 84.1MiB allocated; 23ms collecting garbage
Compiler: Compiled 8 348 to 1 911 computations (77.1% saved)

prune11.0ms (0.3%)

Memory

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

Pruning

11 alts after pruning (11 fresh and 0 done)

	Pruned	Kept	Total
New	302	11	313
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	303	11	314

Accuracy

99.9%

Counts

314 → 11

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	38.3%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	38.1%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
	25.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (.f64 re re)) (.f64 re re)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
▶	74.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
	51.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (+.f64 (neg.f64 re) (fabs.f64 im))))))
	49.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
▶	17.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
▶	49.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
	23.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶	31.3%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
	49.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))

Compiler

Compiled 430 to 314 computations (27% saved)

series424.0ms (10.5%)

Memory

-24.6MiB live, 32.2MiB allocated; 11ms collecting garbage

Counts

30 → 129

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite315.0ms (7.8%)

Memory

-32.3MiB live, 269.6MiB allocated; 202ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	706	4541
0	734	4184
1	4118	3998
0	9335	3873

Stop Event

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

Counts

159 → 516

Calls

Call 1

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

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

eval107.0ms (2.7%)

Memory: -5.7MiB live, 90.1MiB allocated; 37ms collecting garbage
Compiler: Compiled 9 953 to 2 167 computations (78.2% saved)

prune12.0ms (0.3%)

Memory

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

Pruning

13 alts after pruning (9 fresh and 4 done)

	Pruned	Kept	Total
New	371	3	374
Fresh	0	6	6
Picked	1	4	5
Done	0	0	0
Total	372	13	385

Accuracy

99.9%

Counts

385 → 13

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	38.3%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	38.1%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
	25.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (.f64 re re)) (.f64 re re)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓	74.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
▶	51.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (+.f64 (neg.f64 re) (fabs.f64 im))))))
	49.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓	49.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
▶	21.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im re)))))
▶	23.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶	31.2%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) (sqrt.f64 re))))
✓	31.3%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
	49.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
	27.4%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 im) (sqrt.f64 (/.f64 im re)))))

Compiler

Compiled 462 to 336 computations (27.3% saved)

series34.0ms (0.8%)

Memory

15.2MiB live, 60.0MiB allocated; 7ms collecting garbage

Counts

36 → 207

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 (neg.f64 re) (fabs.f64 im))))))
#s(literal 1/2 binary64)
(sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) (+.f64 (neg.f64 re) (fabs.f64 im)))))
(.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) (+.f64 (neg.f64 re) (fabs.f64 im))))
#s(literal 2 binary64)
#s(approx (- (sqrt (+ (* re re) (* im im))) re) (+.f64 (neg.f64 re) (fabs.f64 im)))
(+.f64 (neg.f64 re) (fabs.f64 im))
(neg.f64 re)
re
(fabs.f64 im)
im
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))
(*.f64 #s(literal -4 binary64) re)
#s(literal -4 binary64)
(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im re)))))
(sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im re))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.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 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) (sqrt.f64 re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) (sqrt.f64 re)))
(/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im))) (sqrt.f64 re))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fabs.f64 im)))
#s(literal 1 binary64)
(/.f64 #s(literal 1 binary64) (fabs.f64 im))
(sqrt.f64 re)
(.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 (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (sqrt (pow im 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/2 (/ re (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (- (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (sqrt (pow im 2))))) (* re (- (* re (+ (* 1/4 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (pow (sqrt (* 2 (sqrt (pow im 2)))) 3))) (* 1/4 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (* 1/2 (/ 1 (sqrt (* 2 (sqrt (pow im 2)))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (sqrt (pow im 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* -1 (/ re (sqrt (* 2 (sqrt (pow im 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (- (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (sqrt (* 2 (sqrt (pow im 2)))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (sqrt (pow im 2)))) (* re (- (* re (+ (* 1/2 (/ (* re (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2)))) (pow (sqrt (* 2 (sqrt (pow im 2)))) 3))) (* 1/2 (/ (- (/ 1 (sqrt (pow im 2))) (/ 1 (pow (sqrt (* 2 (sqrt (pow im 2)))) 2))) (sqrt (* 2 (sqrt (pow im 2)))))))) (/ 1 (sqrt (* 2 (sqrt (pow im 2))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (sqrt (pow im 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -2 re) (* 2 (sqrt (pow im 2))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (- (/ re (sqrt (pow im 2))) 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (sqrt (pow im 2))) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (/ 1 (sqrt (pow im 2))))) 2)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (sqrt (pow im 2))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* -1 re))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (- (* 1/2 (/ re (sqrt (pow im 2)))) 1)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (sqrt (pow im 2)) (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow (sqrt (pow im 2)) 3))) (* 1/2 (/ 1 (sqrt (pow im 2)))))) 1)))))
#s(approx (+ (neg re) (fabs im)) #s(hole binary64 (fabs im)))
#s(approx (+ (neg re) (fabs im)) #s(hole binary64 (+ (fabs im) (* -1 re))))
#s(approx (neg re) #s(hole binary64 (* -1 re)))
#s(approx re #s(hole binary64 re))
#s(approx (* -4 re) #s(hole binary64 (* -4 re)))
#s(approx (* im (/ im re)) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (/ im re) #s(hole binary64 (/ im re)))
#s(approx (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) #s(hole binary64 (/ (fabs im) (sqrt re))))
#s(approx (sqrt re) #s(hole binary64 (sqrt 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))) #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 (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (/ (pow im 2) re)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/16 (/ (pow im 4) (* (pow re 3) (sqrt (/ (pow im 2) re))))) (* 1/2 (sqrt (/ (pow im 2) re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/16 (/ (pow im 4) (* (pow re 3) (sqrt (/ (pow im 2) re))))) (+ (* 1/32 (/ (pow im 6) (* (pow re 5) (sqrt (/ (pow im 2) re))))) (* 1/2 (sqrt (/ (pow im 2) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/16 (/ (pow im 4) (* (pow re 3) (sqrt (/ (pow im 2) re))))) (+ (* -1/256 (/ (pow im 8) (* (pow re 6) (pow (sqrt (/ (pow im 2) re)) 3)))) (+ (* 1/32 (/ (pow im 6) (* (pow re 5) (sqrt (/ (pow im 2) re))))) (* 1/2 (sqrt (/ (pow im 2) re))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (/ (pow im 2) re))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (/ (pow im 2) re)) (* -1/8 (/ (pow im 4) (* (pow re 3) (sqrt (/ (pow im 2) re))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (/ (pow im 2) re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 3) (sqrt (/ (pow im 2) re))))) (* 1/16 (/ (pow im 6) (* (pow re 5) (sqrt (/ (pow im 2) re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (/ (pow im 2) re)) (+ (* -1/8 (/ (pow im 4) (* (pow re 3) (sqrt (/ (pow im 2) re))))) (+ (* -1/128 (/ (pow im 8) (* (pow re 6) (pow (sqrt (/ (pow im 2) re)) 3)))) (* 1/16 (/ (pow im 6) (* (pow re 5) (sqrt (/ (pow im 2) re))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (+ (neg re) (fabs im)) #s(hole binary64 (* re (- (/ (fabs im) re) 1))))
#s(approx (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) #s(hole binary64 (/ (fabs im) (* re (sqrt (/ 1 re))))))
#s(approx (sqrt re) #s(hole binary64 (* re (sqrt (/ 1 re)))))
#s(approx (* 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/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* 1/2 (/ (pow im 2) re)))))) (+ (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 5) (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/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* 1/2 (/ (pow im 2) re)))))) (+ (* -1/1024 (/ (* (pow im 8) (sqrt 2)) (* (pow re 6) (pow (sqrt (* 1/2 (/ (pow im 2) re))) 3)))) (+ (* 1/64 (/ (* (pow im 6) (sqrt 2)) (* (pow re 5) (sqrt (* 1/2 (/ (pow im 2) re)))))) (* 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/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* 1/2 (/ (pow im 2) re)))))) (+ (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 5) (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/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (sqrt (* 1/2 (/ (pow im 2) re)))))) (+ (* -1/512 (/ (* (pow im 8) (sqrt 2)) (* (pow re 6) (pow (sqrt (* 1/2 (/ (pow im 2) re))) 3)))) (+ (* 1/32 (/ (* (pow im 6) (sqrt 2)) (* (pow re 5) (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)) #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/16 (/ (pow im 4) (* (pow re 3) (sqrt (* 1/2 (/ (pow im 2) re)))))) (* 1/32 (/ (pow im 6) (* (pow re 5) (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)))))) (+ (* -1/512 (/ (pow im 8) (* (pow re 6) (pow (sqrt (* 1/2 (/ (pow im 2) re))) 3)))) (* 1/32 (/ (pow im 6) (* (pow re 5) (sqrt (* 1/2 (/ (pow im 2) re)))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* re (sqrt (/ -4 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (/ (pow im 2) (* (pow re 3) (sqrt (/ -4 re))))) (* 1/2 (sqrt (/ -4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (* (pow re 2) (sqrt (/ -4 re))))) (* 1/4 (/ (pow im 2) (sqrt (/ -4 re))))) (pow re 3))) (* 1/2 (sqrt (/ -4 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (/ (pow im 4) (* (pow re 2) (sqrt (/ -4 re))))) (+ (* 1/16 (/ (pow im 4) (* (pow re 3) (pow (sqrt (/ -4 re)) 3)))) (* 1/4 (/ (pow im 2) (sqrt (/ -4 re)))))) (pow re 3))) (* 1/2 (sqrt (/ -4 re))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (sqrt (/ -4 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (sqrt (/ -4 re)) (* -1/2 (/ (pow im 2) (* (pow re 3) (sqrt (/ -4 re))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (sqrt (/ -4 re)) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (* (pow re 2) (sqrt (/ -4 re))))) (* 1/2 (/ (pow im 2) (sqrt (/ -4 re))))) (pow re 3))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (sqrt (/ -4 re)) (* -1 (/ (+ (* -1/8 (/ (pow im 4) (* (pow re 2) (sqrt (/ -4 re))))) (+ (* 1/8 (/ (pow im 4) (* (pow re 3) (pow (sqrt (/ -4 re)) 3)))) (* 1/2 (/ (pow im 2) (sqrt (/ -4 re)))))) (pow re 3))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (+ (neg re) (fabs im)) #s(hole binary64 (* -1 (* re (+ 1 (* -1 (/ (fabs im) re)))))))
#s(approx (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) #s(hole binary64 (* -1 (/ (fabs im) (* re (sqrt (/ 1 re)))))))
#s(approx (sqrt re) #s(hole binary64 (* -1 (* re (sqrt (/ 1 re))))))
#s(approx (* 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 (* -1 (* 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 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 2) (sqrt (/ -2 re))))) (* 1/8 (/ (* (pow im 2) (sqrt 2)) (sqrt (/ -2 re))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (/ -2 re)))))))))
#s(approx (* 1/2 (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 2) (sqrt (/ -2 re))))) (+ (* 1/64 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (pow (sqrt (/ -2 re)) 3)))) (* 1/8 (/ (* (pow im 2) (sqrt 2)) (sqrt (/ -2 re)))))) (pow re 3))) (* 1/2 (* (sqrt 2) (sqrt (/ -2 re)))))))))
#s(approx (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* re (* (sqrt 2) (sqrt (/ -2 re)))))))
#s(approx (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* 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 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 2) (sqrt (/ -2 re))))) (* 1/4 (/ (* (pow im 2) (sqrt 2)) (sqrt (/ -2 re))))) (pow re 3))) (* (sqrt 2) (sqrt (/ -2 re))))))))
#s(approx (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (/ (* (pow im 4) (sqrt 2)) (* (pow re 2) (sqrt (/ -2 re))))) (+ (* 1/32 (/ (* (pow im 4) (sqrt 2)) (* (pow re 3) (pow (sqrt (/ -2 re)) 3)))) (* 1/4 (/ (* (pow im 2) (sqrt 2)) (sqrt (/ -2 re)))))) (pow re 3))) (* (sqrt 2) (sqrt (/ -2 re))))))))
#s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* re (sqrt (/ -2 re))))))
#s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* 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 (* -1 (* re (+ (sqrt (/ -2 re)) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (* (pow re 2) (sqrt (/ -2 re))))) (* 1/4 (/ (pow im 2) (sqrt (/ -2 re))))) (pow re 3))))))))
#s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* re (+ (sqrt (/ -2 re)) (* -1 (/ (+ (* -1/16 (/ (pow im 4) (* (pow re 2) (sqrt (/ -2 re))))) (+ (* 1/32 (/ (pow im 4) (* (pow re 3) (pow (sqrt (/ -2 re)) 3)))) (* 1/4 (/ (pow im 2) (sqrt (/ -2 re)))))) (pow re 3))))))))
#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 (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (sqrt (* 2 (- (sqrt (pow re 2)) re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (/ (pow im 2) (* (sqrt (* 2 (- (sqrt (pow re 2)) re))) (sqrt (pow re 2))))) (* 1/2 (sqrt (* 2 (- (sqrt (pow re 2)) re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (- (sqrt (pow re 2)) re)))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (- (sqrt (pow re 2)) re))))) (* 1/4 (/ 1 (* (sqrt (* 2 (- (sqrt (pow re 2)) re))) (sqrt (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (sqrt (* 2 (- (sqrt (pow re 2)) re)))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/4 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (- (sqrt (pow re 2)) re))))) (* 1/4 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (- (sqrt (pow re 2)) re))))))) (* 1/4 (/ 1 (* (sqrt (* 2 (- (sqrt (pow re 2)) re))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (sqrt (* 2 (- (sqrt (pow re 2)) re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (- (sqrt (pow re 2)) re))) (* 1/2 (/ (pow im 2) (* (sqrt (* 2 (- (sqrt (pow re 2)) re))) (sqrt (pow re 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (- (sqrt (pow re 2)) re))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (* 2 (- (sqrt (pow re 2)) re))))) (* 1/2 (/ 1 (* (sqrt (* 2 (- (sqrt (pow re 2)) re))) (sqrt (pow re 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (sqrt (* 2 (- (sqrt (pow re 2)) re))) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (* 2 (- (sqrt (pow re 2)) re))))) (* 1/2 (/ (* (pow im 2) (- (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/2 (/ (+ (* 1/4 (/ 1 (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (* 2 (- (sqrt (pow re 2)) re))) 2) (sqrt (pow re 2))))))) (sqrt (* 2 (- (sqrt (pow re 2)) re))))))) (* 1/2 (/ 1 (* (sqrt (* 2 (- (sqrt (pow re 2)) re))) (sqrt (pow re 2))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 (- (sqrt (pow re 2)) re))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (- (sqrt (pow re 2)) re)) (/ (pow im 2) (sqrt (pow re 2))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (- (sqrt (pow re 2)) re)) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 (- (sqrt (pow re 2)) re)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/4 (/ 1 (pow (sqrt (pow re 2)) 3))))) (/ 1 (sqrt (pow re 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (- (sqrt (pow re 2)) re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (- (+ (sqrt (pow re 2)) (* 1/2 (/ (pow im 2) (sqrt (pow re 2))))) re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (- (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow (sqrt (pow re 2)) 3))) (* 1/2 (/ 1 (sqrt (pow re 2))))))) re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (- (+ (sqrt (pow re 2)) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow (sqrt (pow re 2)) 5))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (* 1/2 (/ 1 (sqrt (pow re 2))))))) re)))
#s(approx (+ (neg re) (fabs im)) #s(hole binary64 (- (fabs im) re)))
#s(approx im #s(hole binary64 im))
#s(approx (/ 1 (fabs im)) #s(hole binary64 (/ 1 (fabs im))))
#s(approx (* 1/2 (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (* 1/2 (* (sqrt 2) (sqrt (- (sqrt (pow re 2)) re))))))
#s(approx (* 1/2 (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2))) #s(hole binary64 (+ (* 1/8 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (- (sqrt (pow re 2)) re)) (sqrt (pow re 2))))) (* 1/2 (* (sqrt 2) (sqrt (- (sqrt (pow re 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 re 2)) re)))) (* (pow im 2) (+ (* -1/4 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (- (sqrt (pow re 2)) re)))) (* 1/8 (/ (sqrt 2) (* (sqrt (- (sqrt (pow re 2)) 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 (- (sqrt (pow re 2)) re)))) (* (pow im 2) (+ (* 1/8 (/ (sqrt 2) (* (sqrt (- (sqrt (pow re 2)) re)) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/4 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (- (sqrt (pow re 2)) re)))) (* 1/4 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (sqrt (pow re 2)))))))) (sqrt (- (sqrt (pow re 2)) re)))))))))))
#s(approx (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt 2) (sqrt (- (sqrt (pow re 2)) re)))))
#s(approx (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow im 2) (sqrt 2)) (* (sqrt (- (sqrt (pow re 2)) re)) (sqrt (pow re 2))))) (* (sqrt 2) (sqrt (- (sqrt (pow re 2)) re))))))
#s(approx (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (- (sqrt (pow re 2)) re))) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))))) (sqrt (- (sqrt (pow re 2)) re)))) (* 1/4 (/ (sqrt 2) (* (sqrt (- (sqrt (pow re 2)) re)) (sqrt (pow re 2))))))))))
#s(approx (* (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt 2) (sqrt (- (sqrt (pow re 2)) re))) (* (pow im 2) (+ (* 1/4 (/ (sqrt 2) (* (sqrt (- (sqrt (pow re 2)) re)) (sqrt (pow re 2))))) (* (pow im 2) (+ (* -1/2 (/ (* (sqrt 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (- (sqrt (pow re 2)) re)))) (* 1/2 (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (sqrt (pow re 2)))))))) (sqrt (- (sqrt (pow re 2)) re)))))))))))
#s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (sqrt (- (sqrt (pow re 2)) re))))
#s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt (- (sqrt (pow re 2)) re)) (* 1/4 (/ (pow im 2) (* (sqrt (- (sqrt (pow re 2)) re)) (sqrt (pow re 2))))))))
#s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt (- (sqrt (pow re 2)) re)) (* (pow im 2) (+ (* -1/2 (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3))))) (sqrt (- (sqrt (pow re 2)) re)))) (* 1/4 (/ 1 (* (sqrt (- (sqrt (pow re 2)) re)) (sqrt (pow re 2))))))))))
#s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt (- (sqrt (pow re 2)) re)) (* (pow im 2) (+ (* (pow im 2) (+ (* -1/2 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (sqrt (- (sqrt (pow re 2)) re)))) (* 1/2 (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow (sqrt (pow re 2)) 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (pow (sqrt (pow re 2)) 2)))) (* 1/8 (/ 1 (pow (sqrt (pow re 2)) 3)))) (* (pow (sqrt (- (sqrt (pow re 2)) re)) 2) (sqrt (pow re 2))))))) (sqrt (- (sqrt (pow re 2)) re)))))) (* 1/4 (/ 1 (* (sqrt (- (sqrt (pow re 2)) re)) (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 (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* im (sqrt (/ 2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))) (* 1/2 (sqrt (/ 2 im)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (* 1/2 (sqrt (/ 2 im))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/2 (/ re (* (pow im 2) (sqrt (/ 2 im))))) (+ (* -1/4 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (+ (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))) (* 1/2 (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (sqrt (/ 2 im)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (* -1 (/ re (* (pow im 2) (sqrt (/ 2 im)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1 (/ re (* (pow im 2) (sqrt (/ 2 im))))) (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (sqrt (/ 2 im)) (+ (* -1 (/ re (* (pow im 2) (sqrt (/ 2 im))))) (+ (* -1/2 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 2 im)) 3)))) (* 1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ 2 im)))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (* 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/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (+ (* 1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (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/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 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/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/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ 1 im))))) (+ (* 1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (sqrt (/ 1 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))))) (+ (* -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))))) (* (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/2 (/ re (* (pow im 2) (sqrt (/ 1 im))))) (* 1/4 (/ (pow re 2) (* (pow im 3) (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))))) (+ (* -1/8 (/ (pow re 2) (* (pow im 4) (pow (sqrt (/ 1 im)) 3)))) (* 1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ 1 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 (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* im (sqrt (/ -2 im))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))) (* 1/2 (sqrt (/ -2 im))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))) (+ (* -1/4 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im))))) (* 1/2 (sqrt (/ -2 im)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/4 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/4 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3))) (+ (* -1/2 (/ re (* (pow im 2) (sqrt (/ -2 im))))) (* 1/2 (sqrt (/ -2 im)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (sqrt (/ -2 im))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (* -1 (/ re (* (pow im 2) (sqrt (/ -2 im))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ re (* (pow im 2) (sqrt (/ -2 im))))) (* -1/2 (/ (pow re 2) (* (pow im 3) (sqrt (/ -2 im)))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (sqrt (/ -2 im)) (+ (* -1 (/ re (* (pow im 2) (sqrt (/ -2 im))))) (* -1 (/ (+ (* 1/2 (/ (pow re 2) (sqrt (/ -2 im)))) (* 1/2 (/ (pow re 2) (* im (pow (sqrt (/ -2 im)) 3))))) (pow im 3)))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) im)))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (* 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/4 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (+ (* -1/8 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (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/2 (/ (* re (sqrt 2)) (* (pow im 2) (sqrt (/ -1 im))))) (+ (* -1/4 (/ (* (pow re 2) (sqrt 2)) (* (pow im 3) (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/2 (/ re (* (pow im 2) (sqrt (/ -1 im))))) (* -1/4 (/ (pow re 2) (* (pow im 3) (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))) #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
7.0ms	re	@	-inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (+ (neg re) (fabs im)) (neg re) re (fabs im) im (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) (/ 1 (/ 1 (fabs im))) 1 (/ 1 (fabs im)) (sqrt re) (* 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))
6.0ms	re	@	0	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (+ (neg re) (fabs im)) (neg re) re (fabs im) im (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) (/ 1 (/ 1 (fabs im))) 1 (/ 1 (fabs im)) (sqrt re) (* 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))
4.0ms	im	@	0	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (+ (neg re) (fabs im)) (neg re) re (fabs im) im (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) (/ 1 (/ 1 (fabs im))) 1 (/ 1 (fabs im)) (sqrt re) (* 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))
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) (+ (neg re) (fabs im)) (neg re) re (fabs im) im (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) (/ 1 (/ 1 (fabs im))) 1 (/ 1 (fabs im)) (sqrt re) (* 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))
4.0ms	re	@	inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (+ (neg re) (fabs im)) (neg re) re (fabs im) im (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (/ (/ 1 (/ 1 (fabs im))) (sqrt re)) (/ 1 (/ 1 (fabs im))) 1 (/ 1 (fabs im)) (sqrt re) (* 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))

rewrite236.0ms (5.8%)

Memory

18.9MiB live, 299.5MiB allocated; 52ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1195	9377
0	1230	8509
1	7169	8408
0	8278	7383

Stop Event

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

Counts

243 → 439

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

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

eval59.0ms (1.5%)

Memory: -32.2MiB live, 114.8MiB allocated; 29ms collecting garbage
Compiler: Compiled 14 042 to 2 411 computations (82.8% saved)

prune13.0ms (0.3%)

Memory

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

Pruning

16 alts after pruning (9 fresh and 7 done)

	Pruned	Kept	Total
New	403	5	408
Fresh	0	4	4
Picked	2	3	5
Done	0	4	4
Total	405	16	421

Accuracy

99.9%

Counts

421 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	38.3%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	74.6%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (-.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
✓	38.1%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
▶	49.4%	(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
	25.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (.f64 re re)) (.f64 re re)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓	74.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
▶	51.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(approx (+ (neg re) (fabs im)) (-.f64 (fabs.f64 im) re))))))
	49.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓	49.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓	21.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im re)))))
✓	23.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
▶	31.1%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 im))))) (sqrt.f64 re))))
✓	31.3%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
▶	30.8%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 im)) (sqrt.f64 re)))))
	49.5%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
	27.4%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 im) (sqrt.f64 (/.f64 im re)))))

Compiler

Compiled 543 to 394 computations (27.4% saved)

series26.0ms (0.6%)

Memory

1.3MiB live, 47.7MiB allocated; 4ms collecting garbage

Counts

34 → 211

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite256.0ms (6.3%)

Memory

-5.3MiB live, 288.8MiB allocated; 87ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1205	8669
0	1246	7837
1	7207	7732
0	8319	7511

Stop Event

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

Counts

245 → 398

Calls

Call 1

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

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

eval63.0ms (1.6%)

Memory: -6.9MiB live, 82.8MiB allocated; 15ms collecting garbage
Compiler: Compiled 14 420 to 2 256 computations (84.4% saved)

prune29.0ms (0.7%)

Memory

-33.1MiB live, 22.6MiB allocated; 8ms collecting garbage

Pruning

16 alts after pruning (6 fresh and 10 done)

	Pruned	Kept	Total
New	390	3	393
Fresh	1	3	4
Picked	2	3	5
Done	0	7	7
Total	393	16	409

Accuracy

99.9%

Counts

409 → 16

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	38.3%	(.f64 (sqrt.f64 (.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	74.6%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (-.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))))
✓	38.1%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (-.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))))
✓	49.4%	(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (- (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 (fabs.f64 im))) (sqrt.f64 #s(literal 2 binary64))))
	25.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (/.f64 (-.f64 (fma.f64 im im (.f64 re re)) (.f64 re re)) (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)))))
✓	74.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (hypot.f64 re im) re))))
✓	51.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(approx (+ (neg re) (fabs im)) (-.f64 (fabs.f64 im) re))))))
	49.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re (fabs.f64 im)) #s(literal 2 binary64)) re (*.f64 (fabs.f64 im) #s(literal 2 binary64))))))
✓	49.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (+.f64 im im))))
✓	21.0%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im re)))))
✓	23.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	49.5%	(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) im)) im)))
✓	31.3%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 (fabs.f64 im) (sqrt.f64 re))))
	30.6%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 im)))) (sqrt.f64 re)))))
	30.7%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (/.f64 #s(literal 1 binary64) #s(approx (* (/ 1 (fabs im)) (sqrt re)) (/.f64 (sqrt.f64 re) (fabs.f64 im))))))
	27.4%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 im) (sqrt.f64 (/.f64 im re)))))

Compiler

Compiled 338 to 249 computations (26.3% saved)

regimes163.0ms (4%)

Memory

45.8MiB live, 181.3MiB allocated; 25ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

2 → 2

8 → 3

14 → 3

16 → 4

18 → 4

23 → 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))))

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

Call 2

Inputs

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

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

Outputs

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

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

Call 3

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

Outputs

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

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

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

Call 4

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

Outputs

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

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

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

Call 5

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

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

Call 6

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

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

Call 7

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

Outputs

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

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

Calls

27 calls:

32.0ms	re
19.0ms	(*.f64 im im)
6.0ms	re
6.0ms	im
6.0ms	(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))

Results

Accuracy	Segments	Branch
49.3%	1	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
49.3%	1	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
49.3%	1	`(*.f64 im im)`
49.3%	1	`im`
49.3%	1	`re`
49.3%	1	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
49.3%	1	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
49.3%	1	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
49.3%	1	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
58.5%	2	`(*.f64 im im)`
58.5%	2	`im`
60.5%	2	`re`
80.4%	3	`re`
80.8%	3	`re`
83.2%	4	`re`
71.7%	3	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
71.7%	3	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
71.9%	3	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
71.9%	3	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
83.5%	4	`re`
85.1%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
85.1%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
84.8%	2	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
84.8%	2	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
74.7%	1	`(*.f64 im im)`
74.7%	1	`im`
91.5%	2	`re`

Compiler

Compiled 690 to 300 computations (56.5% saved)

bsearch37.0ms (0.9%)

Memory

-27.2MiB live, 25.3MiB allocated; 10ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
35.0ms	1.233762978184412e-25	1.8526439334716946e-16

Samples

21.0ms	31×	2	valid
5.0ms	85×	0	valid
2.0ms	23×	1	valid
1.0ms	5×	3	valid

Compiler

Compiled 297 to 257 computations (13.5% saved)

Precisions

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

ival-sub!: 16.0ms (63.6% of total)

ival-hypot: 5.0ms (19.9% of total)

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

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

adjust: 1.0ms (4% of total)

bsearch18.0ms (0.4%)

Memory

27.2MiB live, 27.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	1.233762978184412e-25	1.8526439334716946e-16
3.0ms	-1.5959305152999687e-165	-1.3388749092095908e-165
12.0ms	-3.5222657273765604e+90	-6.913166403619374e+86

Samples

9.0ms

160×

valid

Compiler

Compiled 807 to 635 computations (21.3% saved)

Precisions

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

ival-hypot: 3.0ms (55.9% of total)

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

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

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

adjust: 0.0ms (0% of total)

bsearch38.0ms (0.9%)

Memory

-26.2MiB live, 18.2MiB allocated; 10ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
1.0ms	1.233762978184412e-25	1.8526439334716946e-16
34.0ms	-4.5661017438467876e-138	-2.144535728174582e-139
1.0ms	-3.5222657273765604e+90	-6.913166403619374e+86

Samples

30.0ms

112×

valid

Compiler

Compiled 985 to 795 computations (19.3% saved)

Precisions

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch3.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.233762978184412e-25	1.8526439334716946e-16
2.0ms	-5.039821749925202e-57	-4.8546004374459317e-57

Samples

1.0ms

16×

valid

Compiler

Compiled 486 to 383 computations (21.2% saved)

Precisions

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

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

adjust: 0.0ms (0% of total)

ival-hypot: 0.0ms (0% of total)

ival-sqrt: 0.0ms (0% of total)

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

bsearch2.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.233762978184412e-25	1.8526439334716946e-16
0.0ms	-5.039821749925202e-57	-4.8546004374459317e-57

Compiler

Compiled 416 to 333 computations (20% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
0.0ms	-5.039821749925202e-57	-4.8546004374459317e-57

Compiler

Compiled 56 to 45 computations (19.6% saved)

derivations302.0ms (7.4%)

Memory

-14.5MiB live, 321.7MiB allocated; 54ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 423 to 75 computations (82.3% saved)

preprocess125.0ms (3.1%)

Memory: 18.1MiB live, 245.2MiB allocated; 46ms collecting garbage
Remove: (abs im)
Compiler: Compiled 1 284 to 529 computations (58.8% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze103.0ms (2.6%)

sample1.3s (32.2%)

preprocess100.0ms (2.5%)

series19.0ms (0.5%)

rewrite204.0ms (5%)

eval48.0ms (1.2%)

prune11.0ms (0.3%)

series424.0ms (10.5%)

rewrite315.0ms (7.8%)

eval107.0ms (2.7%)

prune12.0ms (0.3%)

series34.0ms (0.8%)

rewrite236.0ms (5.8%)

eval59.0ms (1.5%)

prune13.0ms (0.3%)

series26.0ms (0.6%)

rewrite256.0ms (6.3%)

eval63.0ms (1.6%)

prune29.0ms (0.7%)

regimes163.0ms (4%)

bsearch37.0ms (0.9%)

bsearch18.0ms (0.4%)

bsearch38.0ms (0.9%)

bsearch3.0ms (0.1%)

bsearch2.0ms (0%)

bsearch0.0ms (0%)

derivations302.0ms (7.4%)

preprocess125.0ms (3.1%)

end0.0ms (0%)

Profiling