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

analyze142.0ms (3.6%)

Memory

-36.3MiB live, 118.9MiB allocated; 86ms 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.2s (30.3%)

Memory

44.3MiB live, 1 634.1MiB allocated; 293ms collecting garbage

Samples

424.0ms	6 199×	0	valid
223.0ms	801×	2	valid
147.0ms	470×	3	valid
139.0ms	786×	1	valid

Precisions

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

ival-hypot: 377.0ms (55.4% of total)

ival-mult!: 119.0ms (17.5% of total)

ival-sqrt: 96.0ms (14.1% of total)

adjust: 53.0ms (7.8% of total)

ival-sub!: 37.0ms (5.4% of total)

Bogosity

explain199.0ms (5%)

Memory

7.8MiB live, 336.7MiB allocated; 21ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
127	0	-	1	(4.514562160318934e-157 4.595745493855044e-239)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
29	0	-	0	-	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
23	0	-	2	(7.19762735793072e-198 4.458713132737719e-261)	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
0	0	-	0	-	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
0	1	(7.19762735793072e-198 4.458713132737719e-261)	0	-	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
0	0	-	0	-	`(*.f64 re re)`
0	0	-	0	-	`im`
0	0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	0	-	`re`
0	0	-	0	-	`#s(literal 1/2 binary64)`
0	0	-	0	-	`(*.f64 im im)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	oflow-rescue	114	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	114
↳	`(*.f64 re re)`	overflow	64
↳	`(*.f64 im im)`	overflow	70
`-.f64`	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	29	0
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	20	0
↳	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	25
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	5
↳	`(*.f64 re re)`	underflow	65
↳	`(*.f64 im im)`	underflow	56
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	12
↳	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	26
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	12	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	12
↳	`(*.f64 re re)`	underflow	65
↳	`(*.f64 im im)`	underflow	56
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	oflow-rescue	1	0
↳	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	overflow	1
↳	`(*.f64 re re)`	overflow	64
↳	`(*.f64 im im)`	overflow	70
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	114
↳	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	overflow	1
`*.f64`	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	*nu**	1	0

Confusion

	Predicted +	Predicted -
+	152	0
-	0	104

Precision

1.0

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	152	0	0
-	0	0	104

Precision?

1.0

Recall?

1.0

Freqs

test

number	freq
0	104
1	127
2	25

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

33.0ms	402×	0	valid
11.0ms	44×	2	valid
7.0ms	22×	3	valid
7.0ms	44×	1	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

ival-hypot: 14.0ms (37.4% of total)

ival-mult!: 11.0ms (29.4% of total)

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

adjust: 4.0ms (10.7% of total)

ival-sub!: 2.0ms (5.3% of total)

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

preprocess84.0ms (2.1%)

Memory

-9.4MiB live, 40.7MiB allocated; 8ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	85	92
2	170	92
3	247	92
4	394	92
5	977	92
6	6308	92

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	43.5%	(.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)

series24.0ms (0.6%)

Memory

13.0MiB live, 59.1MiB allocated; 3ms collecting garbage

Counts

12 → 119

Calls

Call 1

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

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

rewrite362.0ms (9.2%)

Memory

-14.6MiB live, 430.0MiB allocated; 218ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	686	4698
0	699	4191
1	4093	4083
0	9011	3342

Stop Event

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

Counts

131 → 392

Calls

Call 1

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

eval54.0ms (1.4%)

Memory: 7.8MiB live, 104.4MiB allocated; 13ms collecting garbage
Compiler: Compiled 9 242 to 2 378 computations (74.3% saved)

prune17.0ms (0.4%)

Memory

-10.1MiB live, 34.4MiB allocated; 4ms collecting garbage

Pruning

14 alts after pruning (14 fresh and 0 done)

	Pruned	Kept	Total
New	392	14	406
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	393	14	407

Accuracy

99.6%

Counts

407 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	81.6%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	43.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
▶	5.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
	57.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	11.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
▶	12.3%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
	55.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) im))))
	55.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))))
	9.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (.f64 re re)) #s(literal -1/4 binary64) (.f64 im im)) re))))
	13.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))))
	18.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))))
▶	26.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
	16.8%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 1 binary64))) im)))
	23.1%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 re #s(literal -1/2 binary64)))))

Compiler

Compiled 676 to 488 computations (27.8% saved)

series29.0ms (0.7%)

Memory

6.8MiB live, 51.7MiB allocated; 3ms collecting garbage

Counts

37 → 246

Calls

Call 1

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

Outputs
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx re #s(hole binary64 re))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2)))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* -1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))))) (* (sqrt im) (sqrt 2)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* -1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -2 re) (* 2 im))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (/ re im) 2)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (- (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im))) 2)))))
#s(approx (* -4 re) #s(hole binary64 (* -4 re)))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* -1 re))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* 1/2 (/ re im)) 1)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (- (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))) 1)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im)))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* -1/8 (/ (pow im 4) (pow re 3)))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (/ (+ (* -1/8 (pow im 4)) (* 1/2 (* (pow im 2) (pow re 2)))) (pow re 3))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* -1/8 (/ (pow im 2) (pow re 3)))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ (+ (* -1/8 (pow im 2)) (* 1/2 (pow re 2))) (pow re 3))))
#s(approx (/ (* im im) (pow re 3)) #s(hole binary64 (/ (pow im 2) (pow re 3))))
#s(approx (pow re 3) #s(hole binary64 (pow re 3)))
#s(approx (/ 1/2 re) #s(hole binary64 (/ 1/2 re)))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (pow im 2) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re))
#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 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1/32 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/1024 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/64 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* 1/2 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1/16 (* (/ (* (pow im 3) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (+ (* -1/512 (* (/ (* (pow im 5) (sqrt 2)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (/ (* (pow im 5) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 9))))) (* (* im (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 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))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2)))
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2))))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* 1/2 (/ (pow im 2) re))))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ 1/2 re)))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (/ (+ 1/2 (* -1/8 (/ (pow im 2) (pow re 2)))) re)))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -4 re)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (/ (pow im 2) (pow re 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -2 re)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) 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 (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re)))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/32 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/64 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt re) (* (sqrt -1) (pow (sqrt 2) 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1/4 (* (* (pow im 2) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re)))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/16 (* (* (pow im 4) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (+ (* 1/32 (* (/ (* (pow im 4) (sqrt -1)) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 3))))) (* 1/4 (* (* (pow im 2) (sqrt -1)) (sqrt re))))) (pow re 3))) (* (sqrt (/ 1 re)) (* (sqrt -1) (pow (sqrt 2) 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -4 re)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -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 (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (pow im 2)) (* 1/8 (/ (pow im 4) (pow re 2)))) re))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* -1 (/ (- (* 1/8 (/ (pow im 2) (pow re 2))) 1/2) re))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx im #s(hole binary64 im))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/32 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/4 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))) (* (pow im 2) (+ (* -1/32 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/4 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/16 (* (/ (* (pow im 2) (sqrt 2)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* 1/2 (* (/ (* (pow im 2) (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)) (sqrt re)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* (sqrt (/ 1 re)) (* (sqrt 1/2) (sqrt 2))) (* (pow im 2) (+ (* -1/16 (* (sqrt (/ 1 (pow re 5))) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (* (sqrt 2) (+ (* -1/16 (/ (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2))))) (* (pow re 2) (pow (sqrt 1/2) 2)))) (* 5/128 (/ 1 (pow re 7)))))) (sqrt 1/2)) (sqrt re))) (* 1/2 (* (sqrt re) (/ (* (sqrt 2) (- (* 1/16 (/ 1 (pow re 5))) (* 1/256 (/ 1 (* (pow re 5) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/64 (/ (pow im 2) (pow re 7))) (* 1/8 (/ 1 (pow re 5))))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (- (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* (pow im 2) (+ (* (pow im 2) (- (* (pow im 2) (+ (* -5/128 (/ (pow im 2) (pow re 7))) (* 1/16 (/ 1 (pow re 5))))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re)))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))))
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re)))))))
#s(approx (* im im) #s(hole binary64 (pow im 2)))
#s(approx (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re)))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (+ (* -1/4 (/ (pow re 4) (pow im 4))) (/ (pow re 2) (pow im 2))))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (* -1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))) (/ re im)))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (- (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))) (/ re im)))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* -2 (/ re im))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -2 (/ re im)) (/ (pow re 2) (pow im 2)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -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 (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) #s(hole binary64 (* (pow im 4) (- (* 1/2 (/ 1 (* (pow im 2) re))) (* 1/8 (/ 1 (pow re 3)))))))
#s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) #s(hole binary64 (* (pow im 2) (- (* 1/2 (/ 1 (* (pow im 2) re))) (* 1/8 (/ 1 (pow re 3)))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im)))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (pow re 2) im))) im)))))))
#s(approx (* (- (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -2 re) (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im))) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im)))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (/ re im))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1/2 (/ (pow re 2) im)) re) im)))))))
#s(approx (- (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (- (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im)) re) im)))))))
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im)))
#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))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im)))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* 2 (/ re im)))))))
#s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -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)))
#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
5.0ms	im	@	0	((* (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 re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
4.0ms	im	@	-inf	((* (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 re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
4.0ms	re	@	-inf	((* (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 re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
4.0ms	re	@	inf	((* (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 re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))
3.0ms	re	@	0	((* (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 re 2 1/2 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (* -4 re) -4 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* im im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ (* im im) (pow re 3)) (pow re 3) 3 -1/8 (/ 1/2 re))

rewrite280.0ms (7.1%)

Memory

11.9MiB live, 296.3MiB allocated; 77ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	873	9295
0	911	7750
1	4536	7534
0	8356	7227

Stop Event

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

Counts

283 → 717

Calls

Call 1

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

eval110.0ms (2.8%)

Memory: 27.6MiB live, 252.6MiB allocated; 42ms collecting garbage
Compiler: Compiled 22 485 to 4 207 computations (81.3% saved)

prune26.0ms (0.7%)

Memory

21.1MiB live, 64.3MiB allocated; 7ms collecting garbage

Pruning

18 alts after pruning (14 fresh and 4 done)

	Pruned	Kept	Total
New	867	14	881
Fresh	9	0	9
Picked	1	4	5
Done	0	0	0
Total	877	18	895

Accuracy

99.6%

Counts

895 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
	12.2%	(.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) (.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
	26.0%	(.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
✓	81.6%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	57.8%	(.f64 (sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	11.8%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	55.4%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	55.2%	(.f64 (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
	13.2%	(.f64 (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
	18.2%	(.f64 (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))) #s(literal 1/2 binary64))
▶	23.1%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* im im) (* re re))) re) 2)) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 re #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))
▶	12.6%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 #s(literal -1/8 binary64) (.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im)))) (sqrt.f64 #s(literal 2 binary64))))
✓	43.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
	5.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal -1 binary64)))) re))))
✓	5.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
	15.1%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (fma.f64 #s(literal -1/8 binary64) (*.f64 im (/.f64 im (pow.f64 re #s(literal 3 binary64)))) (/.f64 #s(literal 1/2 binary64) re)) im) im)))))
	12.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 #s(approx (+ ( (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/8 binary64) #s(literal 1/2 binary64)) re)) (*.f64 im im))))))
▶	13.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 #s(approx (+ ( (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))))))
✓	26.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))

Compiler

Compiled 880 to 616 computations (30% saved)

series121.0ms (3.1%)

Memory

-12.5MiB live, 86.4MiB allocated; 18ms collecting garbage

Counts

40 → 326

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
74.0ms	re	@	0	((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re 2 1/2 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (* 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) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ 1/2 re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) (* im im)) (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) -1/8 (* im (/ im (pow re 3))) (/ im (pow re 3)) (pow re 3) 3 (sqrt 2))
21.0ms	im	@	0	((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re 2 1/2 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (* 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) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ 1/2 re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) (* im im)) (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) -1/8 (* im (/ im (pow re 3))) (/ im (pow re 3)) (pow re 3) 3 (sqrt 2))
5.0ms	re	@	-inf	((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re 2 1/2 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (* 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) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ 1/2 re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) (* im im)) (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) -1/8 (* im (/ im (pow re 3))) (/ im (pow re 3)) (pow re 3) 3 (sqrt 2))
4.0ms	im	@	-inf	((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re 2 1/2 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (* 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) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ 1/2 re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) (* im im)) (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) -1/8 (* im (/ im (pow re 3))) (/ im (pow re 3)) (pow re 3) 3 (sqrt 2))
4.0ms	im	@	inf	((* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) im re 2 1/2 (* (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* re re) (* im im))) re) 2)) (* (- (sqrt (+ (* re re) (* im im))) re) 2) (- (sqrt (+ (* re re) (* im im))) re) (* 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) (* (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (* im im)) (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/ 1/2 re) (* im im) (* (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (- (sqrt (+ (* im im) (* re re))) re) 2)) (* (* 1 im) (pow re -1/2)) (* 1 im) 1 (pow re -1/2) -1/2 (* 1/2 (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2))) (* (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) (* im im)) (+ (* -1/8 (* im (/ im (pow re 3)))) (/ 1/2 re)) -1/8 (* im (/ im (pow re 3))) (/ im (pow re 3)) (pow re 3) 3 (sqrt 2))

rewrite211.0ms (5.3%)

Memory

16.1MiB live, 287.0MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1100	15436
0	1135	13269
0	5571	11295

Stop Event

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

Counts

366 → 467

Calls

Call 1

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

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

eval71.0ms (1.8%)

Memory: -20.3MiB live, 99.8MiB allocated; 26ms collecting garbage
Compiler: Compiled 13 849 to 2 132 computations (84.6% saved)

prune39.0ms (1%)

Memory

-7.2MiB live, 40.3MiB allocated; 2ms collecting garbage

Pruning

18 alts after pruning (12 fresh and 6 done)

	Pruned	Kept	Total
New	388	9	397
Fresh	6	3	9
Picked	3	2	5
Done	0	4	4
Total	397	18	415

Accuracy

99.7%

Counts

415 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	57.5%	(.f64 (.f64 (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	55.0%	(.f64 (.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
	26.0%	(.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(approx (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))
✓	81.6%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	57.8%	(.f64 (sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	11.8%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	55.4%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	55.2%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
▶	13.2%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* re re) (* im im))) re) 2) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
	18.2%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* re re) (* im im))) re) 2) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))) #s(literal 1/2 binary64))
	16.0%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 im (.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im))) #s(literal 1/2 binary64))
	23.1%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im)) #s(literal 1/2 binary64))
▶	23.1%	(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal 1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
✓	43.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓	5.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
▶	15.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 #s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 #s(literal 1/2 binary64) re)) im) im)))))
	12.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 #s(approx (+ ( (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/8 binary64) #s(literal 1/2 binary64)) re)) (*.f64 im im))))))
✓	26.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))

Compiler

Compiled 790 to 562 computations (28.9% saved)

series34.0ms (0.9%)

Memory

-12.2MiB live, 77.6MiB allocated; 8ms collecting garbage

Counts

32 → 295

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite254.0ms (6.4%)

Memory

1.1MiB live, 325.3MiB allocated; 58ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1080	13982
0	1108	12103
1	5567	11769
0	8264	9907

Stop Event

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

Counts

327 → 480

Calls

Call 1

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

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

eval60.0ms (1.5%)

Memory: 26.6MiB live, 126.5MiB allocated; 15ms collecting garbage
Compiler: Compiled 18 164 to 2 474 computations (86.4% saved)

prune25.0ms (0.6%)

Memory

10.1MiB live, 56.6MiB allocated; 2ms collecting garbage

Pruning

22 alts after pruning (11 fresh and 11 done)

	Pruned	Kept	Total
New	578	6	584
Fresh	2	5	7
Picked	0	5	5
Done	0	6	6
Total	580	22	602

Accuracy

99.7%

Counts

602 → 22

Alt Table

Click to see full alt table

Status	Accuracy	Program
	52.2%	(.f64 (.f64 (pow.f64 (pow.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
	26.3%	(.f64 (.f64 (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	57.5%	(.f64 (.f64 (sqrt.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
	4.3%	(.f64 (.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (+.f64 (/.f64 re im) #s(literal 1 binary64))))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	55.0%	(.f64 (.f64 (sqrt.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	81.6%	(.f64 (sqrt.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	57.8%	(.f64 (sqrt.f64 (.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	11.8%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (fma.f64 (fma.f64 (/.f64 (.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	55.4%	(.f64 (sqrt.f64 (.f64 #s(approx (- (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	55.2%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* re re) (* im im))) re) 2) (fma.f64 (-.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
✓	13.2%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* re re) (* im im))) re) 2) (/.f64 (*.f64 im im) re))) #s(literal 1/2 binary64))
	18.2%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* re re) (* im im))) re) 2) (.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (.f64 im im) (*.f64 re re))) #s(literal 4 binary64))))) #s(literal 1/2 binary64))
	15.8%	(.f64 (sqrt.f64 #s(approx ( (- (sqrt (+ (* re re) (* im im))) re) 2) (*.f64 im (/.f64 im re)))) #s(literal 1/2 binary64))
	16.0%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 im (.f64 (.f64 #s(literal -1/16 binary64) (.f64 (.f64 im im) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im))) #s(literal 1/2 binary64))
	23.1%	(.f64 #s(approx (sqrt ( (- (sqrt (+ (* re re) (* im im))) re) 2)) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) im)) #s(literal 1/2 binary64))
	23.1%	(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal 1/2 binary64) re)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))
✓	23.1%	(.f64 #s(literal 1/2 binary64) (.f64 #s(approx (sqrt (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (sqrt.f64 (/.f64 #s(literal 1/2 binary64) re)))) (sqrt.f64 #s(literal 2 binary64))))
✓	43.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re))))
✓	5.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
	12.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 #s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 (fma.f64 (/.f64 (.f64 im im) (.f64 re re)) #s(literal -1/8 binary64) #s(literal 1/2 binary64)) re)) im) im)))))
✓	15.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 #s(approx (+ (* (/ (* im im) (pow re 3)) -1/8) (/ 1/2 re)) (/.f64 #s(literal 1/2 binary64) re)) im) im)))))
✓	26.5%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (- (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -4 binary64) re))))

Compiler

Compiled 1 692 to 650 computations (61.6% saved)

regimes95.0ms (2.4%)

Memory

-12.1MiB live, 133.3MiB allocated; 30ms collecting garbage

Counts

44 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

26.0ms	(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
13.0ms	im
11.0ms	re
11.0ms	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))
10.0ms	(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))

Results

Accuracy	Segments	Branch
81.6%	1	`(*.f64 im im)`
90.1%	2	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
90.1%	2	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
90.4%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
90.4%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
88.9%	2	`re`
81.6%	1	`im`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes55.0ms (1.4%)

Memory

6.0MiB live, 99.8MiB allocated; 5ms collecting garbage

Counts

29 → 3

Calls

Call 1

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
70.0%	3	`im`
69.9%	3	`(*.f64 im im)`
81.1%	3	`re`
77.3%	3	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
77.3%	3	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
77.6%	3	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
77.6%	3	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes9.0ms (0.2%)

Memory

-30.0MiB live, 16.7MiB allocated; 1ms collecting garbage

Counts

27 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

7.0ms

re

Results

Accuracy	Segments	Branch
81.0%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes13.0ms (0.3%)

Memory

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

Counts

8 → 3

Calls

Call 1

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

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

Calls

5 calls:

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

Results

Accuracy	Segments	Branch
60.9%	2	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
60.9%	2	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
62.4%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
62.4%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
75.6%	3	`re`

Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes3.0ms (0.1%)

Memory

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

Counts

7 → 2

Calls

Call 1

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

Calls

1 calls:

2.0ms

re

Results

Accuracy	Segments	Branch
71.3%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes9.0ms (0.2%)

Memory

-33.5MiB live, 17.6MiB allocated; 3ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	4.70134294302024e-143

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch52.0ms (1.3%)

Memory

3.2MiB live, 49.8MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
35.0ms	2.6010394899371598e+60	2.4065190541283912e+67
14.0ms	-3.359278734572472e-14	-5.3412533206601396e-20

Samples

17.0ms	20×	3	valid
12.0ms	206×	0	valid
6.0ms	33×	2	valid
3.0ms	29×	1	valid

Compiler

Compiled 702 to 581 computations (17.2% saved)

Precisions

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

ival-hypot: 21.0ms (68.7% of total)

ival-mult!: 4.0ms (13.1% of total)

ival-sqrt: 3.0ms (9.8% of total)

adjust: 2.0ms (6.5% of total)

ival-sub!: 1.0ms (3.3% of total)

bsearch3.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.6010394899371598e+60	2.4065190541283912e+67
1.0ms	-3.359278734572472e-14	-5.3412533206601396e-20

Compiler

Compiled 693 to 572 computations (17.5% saved)

bsearch20.0ms (0.5%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
17.0ms	2.6010394899371598e+60	2.4065190541283912e+67
1.0ms	-3.359278734572472e-14	-5.3412533206601396e-20

Samples

4.0ms	25×	2	valid
4.0ms	16×	3	valid
3.0ms	57×	0	valid
2.0ms	14×	1	valid

Compiler

Compiled 684 to 554 computations (19% saved)

Precisions

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

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

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

adjust: 1.0ms (10.4% of total)

ival-sub!: 1.0ms (10.4% of total)

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-3.359278734572472e-14	-5.3412533206601396e-20

Compiler

Compiled 342 to 284 computations (17% saved)

derivations305.0ms (7.7%)

Memory

-31.4MiB live, 202.2MiB allocated; 16ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 308 to 81 computations (73.7% saved)

preprocess37.0ms (0.9%)

Memory: 19.2MiB live, 65.3MiB allocated; 4ms collecting garbage
Remove: (abs im)
Compiler: Compiled 1 262 to 532 computations (57.8% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze142.0ms (3.6%)

sample1.2s (30.3%)

explain199.0ms (5%)

preprocess84.0ms (2.1%)

series24.0ms (0.6%)

rewrite362.0ms (9.2%)

eval54.0ms (1.4%)

prune17.0ms (0.4%)

series29.0ms (0.7%)

rewrite280.0ms (7.1%)

eval110.0ms (2.8%)

prune26.0ms (0.7%)

series121.0ms (3.1%)

rewrite211.0ms (5.3%)

eval71.0ms (1.8%)

prune39.0ms (1%)

series34.0ms (0.9%)

rewrite254.0ms (6.4%)

eval60.0ms (1.5%)

prune25.0ms (0.6%)

regimes95.0ms (2.4%)

regimes55.0ms (1.4%)

regimes9.0ms (0.2%)

regimes13.0ms (0.3%)

regimes3.0ms (0.1%)

regimes9.0ms (0.2%)

bsearch1.0ms (0%)

bsearch52.0ms (1.3%)

bsearch3.0ms (0.1%)

bsearch20.0ms (0.5%)

bsearch1.0ms (0%)

derivations305.0ms (7.7%)

preprocess37.0ms (0.9%)

end0.0ms (0%)

Profiling