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

analyze123.0ms (2.8%)

Memory

-26.1MiB live, 220.4MiB allocated; 57ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 19 to 12 computations (36.8% saved)

sample1.3s (30.7%)

Memory

16.3MiB live, 2 503.5MiB allocated; 228ms collecting garbage

Samples

558.0ms	6 274×	0	valid
188.0ms	762×	2	valid
143.0ms	463×	3	valid
111.0ms	757×	1	valid

Precisions

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

ival-hypot: 288.0ms (43.1% of total)

ival-mult: 142.0ms (21.3% of total)

ival-sqrt: 84.0ms (12.6% of total)

ival-sub: 80.0ms (12% of total)

adjust: 61.0ms (9.1% of total)

exact: 10.0ms (1.5% of total)

ival-assert: 3.0ms (0.4% of total)

Bogosity

explain241.0ms (5.6%)

Memory

-1.0MiB live, 383.7MiB allocated; 24ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
137	-	1	(4.227854708475253e-248 3.0699964580779796e-159)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
30	-	0	-	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
23	-	2	(1.1121281022322718e-88 2.3135980903676497e-200)	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
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	-	0	-	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
0	-	0	-	`(*.f64 re re)`
0	-	0	-	`im`
0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`re`
0	-	0	-	`#s(literal 1/2 binary64)`
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	121	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	121
↳	`(*.f64 re re)`	overflow	73
↳	`(*.f64 im im)`	overflow	71
`-.f64`	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	30	0
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	21	0
↳	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	26
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	5
↳	`(*.f64 re re)`	underflow	61
↳	`(*.f64 im im)`	underflow	59
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	15
↳	`(-.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	15	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	15
↳	`(*.f64 re re)`	underflow	61
↳	`(*.f64 im im)`	underflow	59

Confusion

	Predicted +	Predicted -
+	165	1
-	0	90

Precision

1.0

Recall

0.9939759036144579

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	165	0	1
-	0	0	90

Precision?

1.0

Recall?

0.9939759036144579

Freqs

test

number	freq
0	91
1	143
2	22

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

43.0ms	44×	1	valid
39.0ms	400×	0	valid
22.0ms	18×	3	valid
21.0ms	50×	2	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

adjust: 46.0ms (52.3% of total)

ival-mult: 15.0ms (17% of total)

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

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

ival-sub: 4.0ms (4.5% of total)

ival-add: 3.0ms (3.4% of total)

exact: 1.0ms (1.1% of total)

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

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

preprocess209.0ms (4.8%)

Memory

-8.7MiB live, 226.5MiB allocated; 23ms 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
0	12	15
0	20	15
1	36	15
2	86	15
3	165	15
4	253	15
5	505	15
6	2708	15
0	8229	10

Stop Event

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

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

Outputs

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

Symmetry

(abs im)

Compiler

Compiled 15 to 12 computations (20% saved)

eval0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 2 computations (-∞% saved)

prune0.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	38.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))))

Compiler

Compiled 15 to 12 computations (20% saved)

series26.0ms (0.6%)

Memory

16.2MiB live, 62.7MiB allocated; 2ms 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	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)
5.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	im	@	-inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)
3.0ms	im	@	inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) 2 (- (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im)

rewrite879.0ms (20.3%)

Memory

-111.2MiB live, 485.5MiB allocated; 1.2s 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 → 311

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

eval48.0ms (1.1%)

Memory: -26.9MiB live, 114.1MiB allocated; 10ms collecting garbage
Compiler: Compiled 8 851 to 1 972 computations (77.7% saved)

prune95.0ms (2.2%)

Memory

26.9MiB live, 218.0MiB allocated; 9ms collecting garbage

Pruning

5 alts after pruning (5 fresh and 0 done)

	Pruned	Kept	Total
New	312	5	317
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	313	5	318

Accuracy

100.0%

Counts

318 → 5

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	81.3%	(.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
▶	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 (.f64 re re) #s(literal 5/2 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 im im))))))
▶	50.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 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im)))))
▶	16.2%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (pow.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 4 binary64) #s(literal 1/4 binary64)) (.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 re re) #s(literal 5/2 binary64)) #s(literal -1 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (.f64 (pow.f64 (pow.f64 (.f64 re re) #s(literal 5/2 binary64)) #s(literal -1 binary64)) #s(literal 2 binary64)))) (pow.f64 #s(literal 4 binary64) #s(literal 1/4 binary64))) (.f64 im im)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (pow.f64 (pow.f64 (.f64 re re) #s(literal 5/2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im))) im)))
▶	23.4%	(.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 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))

Compiler

Compiled 386 to 240 computations (37.8% saved)

series175.0ms (4%)

Memory

11.9MiB live, 379.2MiB allocated; 43ms collecting garbage

Counts

67 → 330

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
52.0ms	re	@	0	((* (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/2) 1/2) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/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))) (* (* 1 im) (pow (pow re -1) 1/2)) (* 1 im) 1 (pow (pow re -1) 1/2) (pow re -1) -1 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) im) (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) (pow (* (pow re -1) 1/2) 1/2) (* (pow re -1) 1/2) (pow 4 1/4) 4 1/4 (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im)) (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow (pow (* re re) 5/2) -1) (pow (* re re) 5/2) (* re re) 5/2 1/16 (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2)) -1/256 (* (pow (pow (* re re) 5/2) -1) 2) (* im im) (pow 1/2 1/2) (pow re 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16) (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) (pow (pow (pow (* re re) 5/2) -1) 1/2) -1/16 (* 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) (* (+ (* -1 (/ re im)) 1) im) (+ (* -1 (/ re im)) 1) (/ re im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (* im im)) (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (/ (* im im) (pow (* re re) 5/2)) (* -1/8 (pow (* (* re re) re) -1)) -1/8 (pow (* (* re re) re) -1) (* (* re re) re))
28.0ms	re	@	-inf	((* (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/2) 1/2) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/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))) (* (* 1 im) (pow (pow re -1) 1/2)) (* 1 im) 1 (pow (pow re -1) 1/2) (pow re -1) -1 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) im) (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) (pow (* (pow re -1) 1/2) 1/2) (* (pow re -1) 1/2) (pow 4 1/4) 4 1/4 (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im)) (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow (pow (* re re) 5/2) -1) (pow (* re re) 5/2) (* re re) 5/2 1/16 (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2)) -1/256 (* (pow (pow (* re re) 5/2) -1) 2) (* im im) (pow 1/2 1/2) (pow re 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16) (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) (pow (pow (pow (* re re) 5/2) -1) 1/2) -1/16 (* 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) (* (+ (* -1 (/ re im)) 1) im) (+ (* -1 (/ re im)) 1) (/ re im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (* im im)) (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (/ (* im im) (pow (* re re) 5/2)) (* -1/8 (pow (* (* re re) re) -1)) -1/8 (pow (* (* re re) re) -1) (* (* re re) re))
22.0ms	im	@	0	((* (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/2) 1/2) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/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))) (* (* 1 im) (pow (pow re -1) 1/2)) (* 1 im) 1 (pow (pow re -1) 1/2) (pow re -1) -1 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) im) (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) (pow (* (pow re -1) 1/2) 1/2) (* (pow re -1) 1/2) (pow 4 1/4) 4 1/4 (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im)) (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow (pow (* re re) 5/2) -1) (pow (* re re) 5/2) (* re re) 5/2 1/16 (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2)) -1/256 (* (pow (pow (* re re) 5/2) -1) 2) (* im im) (pow 1/2 1/2) (pow re 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16) (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) (pow (pow (pow (* re re) 5/2) -1) 1/2) -1/16 (* 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) (* (+ (* -1 (/ re im)) 1) im) (+ (* -1 (/ re im)) 1) (/ re im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (* im im)) (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (/ (* im im) (pow (* re re) 5/2)) (* -1/8 (pow (* (* re re) re) -1)) -1/8 (pow (* (* re re) re) -1) (* (* re re) re))
21.0ms	re	@	inf	((* (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/2) 1/2) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/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))) (* (* 1 im) (pow (pow re -1) 1/2)) (* 1 im) 1 (pow (pow re -1) 1/2) (pow re -1) -1 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) im) (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) (pow (* (pow re -1) 1/2) 1/2) (* (pow re -1) 1/2) (pow 4 1/4) 4 1/4 (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im)) (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow (pow (* re re) 5/2) -1) (pow (* re re) 5/2) (* re re) 5/2 1/16 (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2)) -1/256 (* (pow (pow (* re re) 5/2) -1) 2) (* im im) (pow 1/2 1/2) (pow re 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16) (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) (pow (pow (pow (* re re) 5/2) -1) 1/2) -1/16 (* 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) (* (+ (* -1 (/ re im)) 1) im) (+ (* -1 (/ re im)) 1) (/ re im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (* im im)) (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (/ (* im im) (pow (* re re) 5/2)) (* -1/8 (pow (* (* re re) re) -1)) -1/8 (pow (* (* re re) re) -1) (* (* re re) re))
20.0ms	im	@	-inf	((* (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/2) 1/2) (pow (* (- (sqrt (+ (* im im) (* re re))) re) 2) 1/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))) (* (* 1 im) (pow (pow re -1) 1/2)) (* 1 im) 1 (pow (pow re -1) 1/2) (pow re -1) -1 (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) im) (+ (* (pow (* (pow re -1) 1/2) 1/2) (pow 4 1/4)) (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im))) (pow (* (pow re -1) 1/2) 1/2) (* (pow re -1) 1/2) (pow 4 1/4) 4 1/4 (* (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* im im)) (+ (* (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16)) (* (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (pow re 1/2)) (/ (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (pow 1/2 1/2)) (* (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (* im im)) (* (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow 4 1/4)) (+ (* (pow (pow (* re re) 5/2) -1) 1/16) (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2))) (pow (pow (* re re) 5/2) -1) (pow (* re re) 5/2) (* re re) 5/2 1/16 (* -1/256 (* (pow (pow (* re re) 5/2) -1) 2)) -1/256 (* (pow (pow (* re re) 5/2) -1) 2) (* im im) (pow 1/2 1/2) (pow re 1/2) (* (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) -1/16) (* (pow (pow (pow (* re re) 5/2) -1) 1/2) 2) (pow (pow (pow (* re re) 5/2) -1) 1/2) -1/16 (* 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) (* (+ (* -1 (/ re im)) 1) im) (+ (* -1 (/ re im)) 1) (/ re im) (* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* 2 (- (sqrt (+ (* re re) (* im im))) re)) (- (sqrt (+ (* re re) (* im im))) re) (* (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (* im im)) (+ (* (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (* im im)) (* (pow re -1) 1/2)) (+ (* (/ (* im im) (pow (* re re) 5/2)) 1/16) (* -1/8 (pow (* (* re re) re) -1))) (/ (* im im) (pow (* re re) 5/2)) (* -1/8 (pow (* (* re re) re) -1)) -1/8 (pow (* (* re re) re) -1) (* (* re re) re))

rewrite293.0ms (6.8%)

Memory

19.6MiB live, 391.8MiB allocated; 104ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1388	15561
0	1490	12192
1	7442	12190
0	8679	11863

Stop Event

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

Counts

397 → 638

Calls

Call 1

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

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

eval115.0ms (2.7%)

Memory: -15.2MiB live, 269.7MiB allocated; 26ms collecting garbage
Compiler: Compiled 50 881 to 5 218 computations (89.7% saved)

prune154.0ms (3.6%)

Memory

-13.7MiB live, 324.0MiB allocated; 43ms collecting garbage

Pruning

7 alts after pruning (2 fresh and 5 done)

	Pruned	Kept	Total
New	792	2	794
Fresh	0	0	0
Picked	0	5	5
Done	0	0	0
Total	792	7	799

Accuracy

100.0%

Counts

799 → 7

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	81.3%	(.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
✓	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 (.f64 re re) #s(literal 5/2 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 im im))))))
✓	50.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 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im)))))
✓	16.2%	(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (fma.f64 (pow.f64 (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (pow.f64 #s(literal 4 binary64) #s(literal 1/4 binary64)) (.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 (fma.f64 (pow.f64 (pow.f64 (.f64 re re) #s(literal 5/2 binary64)) #s(literal -1 binary64)) #s(literal 1/16 binary64) (.f64 #s(literal -1/256 binary64) (.f64 (pow.f64 (pow.f64 (.f64 re re) #s(literal 5/2 binary64)) #s(literal -1 binary64)) #s(literal 2 binary64)))) (pow.f64 #s(literal 4 binary64) #s(literal 1/4 binary64))) (.f64 im im)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 re #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (pow.f64 (pow.f64 (.f64 re re) #s(literal 5/2 binary64)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal -1/16 binary64))) (*.f64 im im))) im)))
▶	23.4%	(.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 (pow.f64 re #s(literal 1/2 binary64)) #s(literal -1 binary64)))))
✓	23.4%	(.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 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
▶	23.4%	(.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 241 to 157 computations (34.9% saved)

series11.0ms (0.3%)

Memory

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

Counts

16 → 55

Calls

Call 1

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

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 (* (* 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 re #s(hole binary64 re))
#s(approx (* (* 1 im) (pow (pow re 1/2) -1)) #s(hole binary64 (* im (sqrt (/ 1 re)))))
#s(approx (pow (pow re 1/2) -1) #s(hole binary64 (sqrt (/ 1 re))))
#s(approx (pow re 1/2) #s(hole binary64 (sqrt 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 (* 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 (* (* 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 (pow re 1/2) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 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 (* 1 im) #s(hole binary64 im))
#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 (* 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)))))))))

Calls

6 calls:

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

rewrite88.0ms (2%)

Memory

-8.4MiB live, 131.3MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	390	2782
0	403	2261
0	2253	1945

Stop Event

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

Counts

71 → 98

Calls

Call 1

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

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

eval9.0ms (0.2%)

Memory: 27.8MiB live, 27.8MiB allocated; 0ms collecting garbage
Compiler: Compiled 3 494 to 472 computations (86.5% saved)

prune17.0ms (0.4%)

Memory

-10.0MiB live, 41.9MiB allocated; 2ms collecting garbage

Pruning

7 alts after pruning (1 fresh and 6 done)

	Pruned	Kept	Total
New	83	1	84
Fresh	0	0	0
Picked	0	2	2
Done	1	4	5
Total	84	7	91

Accuracy

100.0%

Counts

91 → 7

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	81.3%	(.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
✓	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 (.f64 re re) #s(literal 5/2 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 im im))))))
✓	50.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 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im)))))
✓	23.4%	(.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 (pow.f64 re #s(literal 1/2 binary64)) #s(literal -1 binary64)))))
✓	23.4%	(.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 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
▶	23.3%	(.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 (*.f64 (pow.f64 re #s(literal 1/4 binary64)) (pow.f64 re #s(literal 1/4 binary64))) #s(literal -1 binary64)))))
✓	23.4%	(.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 186 to 133 computations (28.5% saved)

series63.0ms (1.5%)

Memory

9.8MiB live, 150.2MiB allocated; 7ms collecting garbage

Counts

13 → 53

Calls

Call 1

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

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 (* (* 1 im) (pow (* (pow re 1/4) (pow re 1/4)) -1)) #s(hole binary64 (* im (sqrt (/ 1 re)))))
#s(approx (pow (* (pow re 1/4) (pow re 1/4)) -1) #s(hole binary64 (sqrt (/ 1 re))))
#s(approx (* (pow re 1/4) (pow re 1/4)) #s(hole binary64 (sqrt re)))
#s(approx (pow re 1/4) #s(hole binary64 (pow (* 1 re) 1/4)))
#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 (* 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 (* (pow re 1/4) (pow re 1/4)) #s(hole binary64 (* -1 (* (sqrt re) (pow (sqrt -1) 2)))))
#s(approx (pow re 1/4) #s(hole binary64 (exp (* 1/4 (+ (log -1) (* -1 (log (/ -1 re))))))))
#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 (* 1 im) #s(hole binary64 im))
#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 (* 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)))))))))

Calls

6 calls:

Time	Variable		Point	Expression
33.0ms	re	@	-inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow (* (pow re 1/4) (pow re 1/4)) -1)) (* 1 im) 1 im (pow (* (pow re 1/4) (pow re 1/4)) -1) (* (pow re 1/4) (pow re 1/4)) (pow re 1/4) re 1/4 -1)
14.0ms	re	@	0	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow (* (pow re 1/4) (pow re 1/4)) -1)) (* 1 im) 1 im (pow (* (pow re 1/4) (pow re 1/4)) -1) (* (pow re 1/4) (pow re 1/4)) (pow re 1/4) re 1/4 -1)
11.0ms	re	@	inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow (* (pow re 1/4) (pow re 1/4)) -1)) (* 1 im) 1 im (pow (* (pow re 1/4) (pow re 1/4)) -1) (* (pow re 1/4) (pow re 1/4)) (pow re 1/4) re 1/4 -1)
1.0ms	im	@	-inf	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow (* (pow re 1/4) (pow re 1/4)) -1)) (* 1 im) 1 im (pow (* (pow re 1/4) (pow re 1/4)) -1) (* (pow re 1/4) (pow re 1/4)) (pow re 1/4) re 1/4 -1)
1.0ms	im	@	0	((* 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (* (* 1 im) (pow (* (pow re 1/4) (pow re 1/4)) -1)) (* 1 im) 1 im (pow (* (pow re 1/4) (pow re 1/4)) -1) (* (pow re 1/4) (pow re 1/4)) (pow re 1/4) re 1/4 -1)

rewrite104.0ms (2.4%)

Memory

-6.3MiB live, 136.7MiB allocated; 9ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	390	2738
0	401	2226
0	2286	1920

Stop Event

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

Counts

66 → 85

Calls

Call 1

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

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

eval15.0ms (0.4%)

Memory: -26.5MiB live, 20.5MiB allocated; 2ms collecting garbage
Compiler: Compiled 3 887 to 532 computations (86.3% saved)

prune15.0ms (0.3%)

Memory

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

Pruning

7 alts after pruning (0 fresh and 7 done)

	Pruned	Kept	Total
New	91	0	91
Fresh	0	0	0
Picked	0	1	1
Done	0	6	6
Total	91	7	98

Accuracy

100.0%

Counts

98 → 7

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	81.3%	(.f64 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
✓	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 (.f64 re re) #s(literal 5/2 binary64))) #s(literal 1/16 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 (.f64 re re) re) #s(literal -1 binary64)))) (.f64 im im) (.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 im im))))))
✓	50.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 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im)))))
✓	23.4%	(.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 (pow.f64 re #s(literal 1/2 binary64)) #s(literal -1 binary64)))))
✓	23.4%	(.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 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
✓	23.3%	(.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 (*.f64 (pow.f64 re #s(literal 1/4 binary64)) (pow.f64 re #s(literal 1/4 binary64))) #s(literal -1 binary64)))))
✓	23.4%	(.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 471 to 229 computations (51.4% saved)

regimes41.0ms (0.9%)

Memory

4.9MiB live, 59.6MiB allocated; 7ms collecting garbage

Counts

9 → 2

Calls

Call 1

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

Outputs

(*.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 (pow.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
81.3%	1	`(*.f64 im im)`
92.5%	2	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
92.5%	2	`(.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
91.7%	2	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
91.7%	2	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
87.5%	2	`re`
81.3%	1	`im`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes24.0ms (0.5%)

Memory

-42.8MiB live, 49.9MiB allocated; 5ms collecting garbage

Counts

8 → 3

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
60.6%	2	`(*.f64 im im)`
60.6%	2	`im`
66.2%	4	`re`
72.5%	3	`(sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
72.5%	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))))`
73.4%	3	`(-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
73.4%	3	`(.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)

regimes10.0ms (0.2%)

Memory

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

Counts

7 → 2

Calls

Call 1

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

Outputs

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

Calls

4 calls:

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

Results

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

Compiler

Compiled 50 to 38 computations (24% saved)

regimes15.0ms (0.3%)

Memory

-6.7MiB live, 40.7MiB allocated; 1ms collecting garbage

Counts

5 → 1

Calls

Call 1

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

Outputs

(*.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 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))

Calls

7 calls:

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

regimes11.0ms (0.3%)

Memory

-23.8MiB live, 27.5MiB allocated; 2ms collecting garbage

Accuracy

Total -0.1b remaining (-0.2%)

Threshold costs -0.1b (-0.2%)

Counts

2 → 1

Calls

Call 1

Inputs

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

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

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	3.1437157948177155e-284

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	3.9365373382206484e+145	8.121771459668699e+145
0.0ms	0.0	3.1437157948177155e-284

Compiler

Compiled 18 to 17 computations (5.6% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.0	3.1437157948177155e-284

Compiler

Compiled 18 to 17 computations (5.6% saved)

simplify48.0ms (1.1%)

Memory

11.1MiB live, 58.8MiB allocated; 2ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	52	241
1	72	241
2	127	241
3	227	241
4	602	241
5	4023	241

Stop Event

1×	node limit

Calls

Call 1

Inputs
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.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 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.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))))) (if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 49999999999999996681683364986231121055509847158923091289463001947809936825071710129649256226662527266508888537465191395528952846213699856588865536 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im)))))))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.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(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) 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 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 re #s(literal -1/2 binary64)))))

Outputs
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.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 (pow.f64 (.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (pow.f64 re #s(literal -1/2 binary64))))) (.f64 (pow.f64 (*.f64 (-.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.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))))) (if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 49999999999999996681683364986231121055509847158923091289463001947809936825071710129649256226662527266508888537465191395528952846213699856588865536 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ ( re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im)))))))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (pow.f64 re #s(literal -1/2 binary64))))) (if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 49999999999999996681683364986231121055509847158923091289463001947809936825071710129649256226662527266508888537465191395528952846213699856588865536 binary64)) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im)))))))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.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(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (- (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) im))))))
(if (<=.f64 (.f64 #s(literal 2 binary64) (-.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)) #s(literal 0 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (sqrt (* 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 im (pow.f64 re #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 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)) 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 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (pow.f64 (pow.f64 re #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (.f64 (.f64 #s(literal 1 binary64) im) (pow.f64 re #s(literal -1/2 binary64)))))
(.f64 #s(literal 1/2 binary64) #s(approx (sqrt ( 2 (- (sqrt (+ (* re re) (* im im))) re))) (*.f64 im (pow.f64 re #s(literal -1/2 binary64)))))

derivations115.0ms (2.7%)

Memory

-6.5MiB live, 136.5MiB allocated; 6ms collecting garbage

Stop Event

1×

done

Compiler

Compiled 241 to 52 computations (78.4% saved)

preprocess57.0ms (1.3%)

Memory: 12.5MiB live, 154.1MiB allocated; 7ms collecting garbage
Remove: (abs im)
Compiler: Compiled 794 to 314 computations (60.5% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze123.0ms (2.8%)

sample1.3s (30.7%)

explain241.0ms (5.6%)

preprocess209.0ms (4.8%)

eval0.0ms (0%)

prune0.0ms (0%)

series26.0ms (0.6%)

rewrite879.0ms (20.3%)

eval48.0ms (1.1%)

prune95.0ms (2.2%)

series175.0ms (4%)

rewrite293.0ms (6.8%)

eval115.0ms (2.7%)

prune154.0ms (3.6%)

series11.0ms (0.3%)

rewrite88.0ms (2%)

eval9.0ms (0.2%)

prune17.0ms (0.4%)

series63.0ms (1.5%)

rewrite104.0ms (2.4%)

eval15.0ms (0.4%)

prune15.0ms (0.3%)

regimes41.0ms (0.9%)

regimes24.0ms (0.5%)

regimes10.0ms (0.2%)

regimes15.0ms (0.3%)

regimes11.0ms (0.3%)

bsearch0.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

simplify48.0ms (1.1%)

derivations115.0ms (2.7%)

preprocess57.0ms (1.3%)

end0.0ms (0%)

Profiling