Metrics for math.sqrt on complex, real part

start0.0ms (0%)

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

analyze155.0ms (3.6%)

Memory

14.0MiB live, 184.1MiB allocated; 75ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
0%	0%	99.9%	0.1%	0%	0%	0%	1
50%	50%	50%	0.1%	0%	0%	0%	2
50%	50%	50%	0.1%	0%	0%	0%	3
50%	50%	50%	0.1%	0%	0%	0%	4
62.5%	62.4%	37.5%	0.1%	0%	0%	0%	5
62.5%	62.4%	37.5%	0.1%	0%	0%	0%	6
68.8%	68.7%	31.2%	0.1%	0%	0%	0%	7
68.8%	68.7%	31.2%	0.1%	0%	0%	0%	8
71.9%	71.8%	28.1%	0.1%	0%	0%	0%	9
71.9%	71.8%	28.1%	0.1%	0%	0%	0%	10
73.4%	73.4%	26.5%	0.1%	0%	0%	0%	11
73.4%	73.4%	26.5%	0.1%	0%	0%	0%	12

Compiler

Compiled 17 to 11 computations (35.3% saved)

sample1.4s (32.5%)

Memory

27.0MiB live, 1 810.7MiB allocated; 437ms collecting garbage

Samples

436.0ms	6 227×	0	valid
323.0ms	796×	2	valid
221.0ms	468×	3	valid
111.0ms	765×	1	valid

Precisions

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

ival-hypot: 281.0ms (33% of total)

ival-mult!: 208.0ms (24.4% of total)

adjust: 152.0ms (17.8% of total)

ival-sqrt: 118.0ms (13.9% of total)

ival-add!: 92.0ms (10.8% of total)

Bogosity

explain196.0ms (4.5%)

Memory

12.2MiB live, 404.0MiB allocated; 53ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
140	0	-	2	(2.167927453981889e-157 -6.570012555175961e-251)	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`
39	1	(-2.475755143460327e+57 -2.9418166332684822e-133)	0	-	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
37	0	-	5	(-2.475755143460327e+57 -2.9418166332684822e-133)	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
0	0	-	0	-	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
0	0	-	0	-	`(*.f64 re re)`
0	0	-	0	-	`im`
0	0	-	0	-	`(+.f64 (.f64 re re) (.f64 im im))`
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	0	-	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
0	0	-	0	-	`re`
0	0	-	0	-	`#s(literal 1/2 binary64)`
0	0	-	0	-	`(*.f64 im im)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	oflow-rescue	120	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	overflow	120
↳	`(*.f64 re re)`	overflow	75
↳	`(*.f64 im im)`	overflow	63
`+.f64`	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	cancellation	40	0
`sqrt.f64`	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	uflow-rescue	32	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	18
↳	`(*.f64 im im)`	underflow	61
↳	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`	underflow	8
↳	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`	underflow	40
↳	`(*.f64 re re)`	underflow	72
↳	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`	underflow	40
`sqrt.f64`	`(sqrt.f64 (+.f64 (.f64 re re) (.f64 im im)))`	uflow-rescue	18	0
↳	`(+.f64 (.f64 re re) (.f64 im im))`	underflow	18
↳	`(*.f64 re re)`	underflow	72
↳	`(*.f64 im im)`	underflow	61

Confusion

	Predicted +	Predicted -
+	172	2
-	0	82

Precision

1.0

Recall

0.9885057471264368

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	172	0	2
-	0	0	82

Precision?

1.0

Recall?

0.9885057471264368

Freqs

test

number	freq
0	84
1	134
2	38

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

30.0ms	352×	0	valid
20.0ms	78×	2	valid
16.0ms	38×	3	valid
11.0ms	44×	1	valid

Compiler

Compiled 169 to 40 computations (76.3% saved)

Precisions

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

ival-hypot: 18.0ms (33.3% of total)

ival-mult!: 17.0ms (31.5% of total)

ival-sqrt: 9.0ms (16.7% of total)

adjust: 6.0ms (11.1% of total)

ival-add!: 4.0ms (7.4% of total)

preprocess272.0ms (6.3%)

Memory

-22.5MiB live, 257.7MiB allocated; 38ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	36	92
1	117	92
2	257	90
3	448	90
4	935	90
5	3057	90
6	6611	90
0	12	15
0	20	15
1	43	15
2	118	15
3	245	15
4	486	15
5	1545	15
6	4371	15
0	8525	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.2MiB live, 1.2MiB allocated; 0ms collecting garbage

Alt Table

Click to see full alt table

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

Compiler

Compiled 15 to 12 computations (20% saved)

series24.0ms (0.6%)

Memory

2.0MiB live, 46.4MiB allocated; 3ms collecting garbage

Counts

12 → 119

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite205.0ms (4.7%)

Memory

12.4MiB live, 303.0MiB allocated; 63ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	635	4546
0	648	4088
1	3839	3962
0	8215	3217

Stop Event

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

Counts

131 → 316

Calls

Call 1

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

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

eval43.0ms (1%)

Memory: -5.3MiB live, 133.3MiB allocated; 9ms collecting garbage
Compiler: Compiled 7 399 to 1 871 computations (74.7% saved)

prune9.0ms (0.2%)

Memory

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

Pruning

8 alts after pruning (8 fresh and 0 done)

	Pruned	Kept	Total
New	314	8	322
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	315	8	323

Accuracy

84.1%

Counts

323 → 8

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	73.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	73.3%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
	6.8%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re))))
▶	50.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
	48.6%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im))))
	48.4%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))))
▶	23.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
▶	16.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))

Compiler

Compiled 284 to 220 computations (22.5% saved)

series37.0ms (0.9%)

Memory

-33.9MiB live, 63.9MiB allocated; 9ms collecting garbage

Counts

30 → 290

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
6.0ms	re	@	-inf	((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) -1/2)
6.0ms	im	@	-inf	((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) -1/2)
5.0ms	re	@	0	((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) -1/2)
4.0ms	re	@	inf	((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) -1/2)
4.0ms	im	@	inf	((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) -1/2)

rewrite234.0ms (5.4%)

Memory

-0.4MiB live, 227.9MiB allocated; 20ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1177	12042
0	1203	9761
1	6835	9451
0	8063	9023

Stop Event

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

Counts

320 → 420

Calls

Call 1

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

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

eval50.0ms (1.2%)

Memory: 14.3MiB live, 115.3MiB allocated; 14ms collecting garbage
Compiler: Compiled 12 342 to 1 886 computations (84.7% saved)

prune17.0ms (0.4%)

Memory

6.5MiB live, 51.9MiB allocated; 3ms collecting garbage

Pruning

14 alts after pruning (10 fresh and 4 done)

	Pruned	Kept	Total
New	410	10	420
Fresh	3	0	3
Picked	1	4	5
Done	0	0	0
Total	414	14	428

Accuracy

87.9%

Counts

428 → 14

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	73.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
	6.8%	(.f64 (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	48.6%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	48.4%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))
▶	17.3%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (/.f64 (.f64 im im) re) #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
	48.4%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
	49.1%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))))
	48.3%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im)))))
▶	49.9%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	50.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	23.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓	16.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
▶	20.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
	16.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64))))

Compiler

Compiled 524 to 395 computations (24.6% saved)

series36.0ms (0.8%)

Memory

1.4MiB live, 94.8MiB allocated; 5ms collecting garbage

Counts

37 → 356

Calls

Call 1

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

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

Calls

6 calls:

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

rewrite311.0ms (7.2%)

Memory

16.2MiB live, 354.7MiB allocated; 183ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1404	16999
0	1437	14577
1	7951	14575
0	8023	12306

Stop Event

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

Counts

393 → 461

Calls

Call 1

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

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

eval49.0ms (1.1%)

Memory: -23.5MiB live, 75.1MiB allocated; 19ms collecting garbage
Compiler: Compiled 12 144 to 1 796 computations (85.2% saved)

prune18.0ms (0.4%)

Memory

-9.1MiB live, 38.7MiB allocated; 4ms collecting garbage

Pruning

18 alts after pruning (11 fresh and 7 done)

	Pruned	Kept	Total
New	333	7	340
Fresh	1	4	5
Picked	2	3	5
Done	0	4	4
Total	336	18	354

Accuracy

87.9%

Counts

354 → 18

Alt Table

Click to see full alt table

Status	Accuracy	Program
	21.1%	(/.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
✓	73.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	6.8%	(.f64 (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	48.6%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
▶	48.4%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
	23.8%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (*.f64 (/.f64 im re) im)))) #s(literal 1/2 binary64))
	48.4%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)) #s(literal -1/2 binary64))))
	21.0%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
▶	48.3%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im)))))
▶	49.1%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))))
	23.7%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓	49.9%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	50.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	23.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓	16.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓	20.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
	16.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64))))
▶	48.1%	(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im))))

Compiler

Compiled 651 to 488 computations (25% saved)

series42.0ms (1%)

Memory

12.2MiB live, 57.9MiB allocated; 4ms collecting garbage

Counts

39 → 391

Calls

Call 1

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

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

Calls

6 calls:

Time	Variable		Point	Expression
8.0ms	re	@	-inf	((* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (+ (* (* -1/4 (pow im -3/2)) (/ re (sqrt 1/2))) (sqrt (/ 1/2 im))) (* -1/4 (pow im -3/2)) -1/4 (pow im -3/2) im -3/2 (/ re (sqrt 1/2)) re (sqrt 1/2) (sqrt (/ 1/2 im)) (/ 1/2 im) (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) 2 (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2)) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (* (pow (sqrt 1/2) -1) (sqrt im)) (pow (sqrt 1/2) -1) -1 (sqrt im))
7.0ms	im	@	-inf	((* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (+ (* (* -1/4 (pow im -3/2)) (/ re (sqrt 1/2))) (sqrt (/ 1/2 im))) (* -1/4 (pow im -3/2)) -1/4 (pow im -3/2) im -3/2 (/ re (sqrt 1/2)) re (sqrt 1/2) (sqrt (/ 1/2 im)) (/ 1/2 im) (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) 2 (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2)) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (* (pow (sqrt 1/2) -1) (sqrt im)) (pow (sqrt 1/2) -1) -1 (sqrt im))
6.0ms	im	@	inf	((* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (+ (* (* -1/4 (pow im -3/2)) (/ re (sqrt 1/2))) (sqrt (/ 1/2 im))) (* -1/4 (pow im -3/2)) -1/4 (pow im -3/2) im -3/2 (/ re (sqrt 1/2)) re (sqrt 1/2) (sqrt (/ 1/2 im)) (/ 1/2 im) (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) 2 (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2)) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (* (pow (sqrt 1/2) -1) (sqrt im)) (pow (sqrt 1/2) -1) -1 (sqrt im))
5.0ms	im	@	0	((* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (+ (* (* -1/4 (pow im -3/2)) (/ re (sqrt 1/2))) (sqrt (/ 1/2 im))) (* -1/4 (pow im -3/2)) -1/4 (pow im -3/2) im -3/2 (/ re (sqrt 1/2)) re (sqrt 1/2) (sqrt (/ 1/2 im)) (/ 1/2 im) (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) 2 (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2)) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (* (pow (sqrt 1/2) -1) (sqrt im)) (pow (sqrt 1/2) -1) -1 (sqrt im))
3.0ms	re	@	inf	((* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2))) 1/2 (/ 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2)) 1 (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (+ (* (* -1/4 (pow im -3/2)) (/ re (sqrt 1/2))) (sqrt (/ 1/2 im))) (* -1/4 (pow im -3/2)) -1/4 (pow im -3/2) im -3/2 (/ re (sqrt 1/2)) re (sqrt 1/2) (sqrt (/ 1/2 im)) (/ 1/2 im) (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) 2 (* 1/2 (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2))) (/ 1 (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2)) (pow (* (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2) (* (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)))) (* (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (* (pow (sqrt 1/2) -1) (sqrt im)) (pow (sqrt 1/2) -1) -1 (sqrt im))

rewrite270.0ms (6.2%)

Memory

8.4MiB live, 193.6MiB allocated; 19ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1372	18918
0	1411	15956
1	7485	15956
0	8728	13560

Stop Event

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

Counts

430 → 513

Calls

Call 1

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

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

eval509.0ms (11.8%)

Memory: -45.3MiB live, 90.7MiB allocated; 852ms collecting garbage
Compiler: Compiled 13 549 to 1 874 computations (86.2% saved)

prune21.0ms (0.5%)

Memory

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

Pruning

23 alts after pruning (14 fresh and 9 done)

	Pruned	Kept	Total
New	362	9	371
Fresh	1	5	6
Picked	3	2	5
Done	0	7	7
Total	366	23	389

Accuracy

87.9%

Counts

389 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
	21.1%	(/.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 #s(approx (+ (sqrt (+ ( re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64)))
	49.1%	(/.f64 #s(literal 1/2 binary64) #s(approx (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (fma.f64 (*.f64 (pow.f64 im #s(literal -3/2 binary64)) #s(literal -1/4 binary64)) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im)))))
	48.3%	(/.f64 #s(literal 1/2 binary64) #s(approx (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))
✓	73.6%	(.f64 (sqrt.f64 (.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	6.8%	(.f64 (sqrt.f64 (.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	48.6%	(.f64 (sqrt.f64 (.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))
✓	48.4%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) #s(literal 1/2 binary64))
	23.8%	(.f64 (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (*.f64 (/.f64 im re) im)))) #s(literal 1/2 binary64))
	21.0%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (.f64 (.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64)))))
	48.2%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* re re) (* im im))) re) 2) -1/2) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 im)))))
	49.1%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (fma.f64 (.f64 #s(literal -1/4 binary64) (exp.f64 (.f64 (log.f64 im) #s(literal -3/2 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))))
	26.0%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) #s(approx (+ (* (* -1/4 (pow im -3/2)) (/ re (sqrt 1/2))) (sqrt (/ 1/2 im))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (sqrt.f64 im)) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 im #s(literal 3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 im im))))))
	6.8%	(.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow ( (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) #s(approx (+ (* (* -1/4 (pow im -3/2)) (/ re (sqrt 1/2))) (sqrt (/ 1/2 im))) (.f64 (.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) #s(literal -1/4 binary64)) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))))))))
	23.7%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) re) re))))
✓	49.9%	(.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	50.2%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))
✓	23.9%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))))
✓	16.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))))
✓	20.7%	(.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx ( 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))))
	45.7%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (pow (* (+ (sqrt (+ (* im im) (* re re))) re) 2) -1/2) (fma.f64 (*.f64 (pow.f64 im #s(literal -3/2 binary64)) #s(literal -1/4 binary64)) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) #s(literal -1 binary64))))
	16.0%	(.f64 #s(literal 1/2 binary64) (exp.f64 (.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64))))
	48.2%	(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (/.f64 (*.f64 (sqrt.f64 im) #s(literal 1 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
	45.3%	(.f64 #s(literal 1/2 binary64) #s(approx ( (sqrt 2) (sqrt (+ (sqrt (+ (* re re) (* im im))) re))) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (exp.f64 (.f64 (log.f64 im) #s(literal 1/2 binary64))))))

Compiler

Compiled 1 434 to 658 computations (54.1% saved)

regimes72.0ms (1.7%)

Memory

-42.1MiB live, 115.9MiB allocated; 16ms collecting garbage

Counts

35 → 2

Calls

Call 1

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

Outputs

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

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

Calls

7 calls:

12.0ms	(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))
9.0ms	(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)
9.0ms	im
9.0ms	re
8.0ms	(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes40.0ms (0.9%)

Memory

16.6MiB live, 70.1MiB allocated; 5ms collecting garbage

Counts

21 → 4

Calls

Call 1

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
57.7%	3	`(*.f64 im im)`
59.9%	4	`im`
66.7%	4	`(+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re)`
66.7%	4	`(.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re))`
67.2%	4	`(sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (*.f64 im im))) re)))`
67.2%	4	`(.f64 #s(literal 1/2 binary64) (sqrt.f64 (.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (.f64 re re) (.f64 im im))) re))))`
72.7%	4	`re`

Compiler

Compiled 55 to 45 computations (18.2% saved)

regimes10.0ms (0.2%)

Memory

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

Counts

18 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

9.0ms

re

Results

Accuracy	Segments	Branch
70.7%	3	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes12.0ms (0.3%)

Memory

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

Counts

7 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

5 calls:

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

Compiler

Compiled 51 to 40 computations (21.6% saved)

regimes2.0ms (0%)

Memory

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

Counts

4 → 2

Calls

Call 1

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

Outputs

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

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

Calls

1 calls:

2.0ms

re

Results

Accuracy	Segments	Branch
59.7%	2	`re`

Compiler

Compiled 1 to 2 computations (-100% saved)

regimes10.0ms (0.2%)

Memory

-27.1MiB live, 18.7MiB allocated; 5ms collecting garbage

Counts

1 → 1

Calls

Call 1

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 55 to 45 computations (18.2% saved)

bsearch21.0ms (0.5%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
19.0ms	-5.604979316348731e-33	-2.4342787357957984e-36

Samples

7.0ms	41×	2	valid
4.0ms	67×	0	valid
2.0ms	20×	1	valid

Compiler

Compiled 274 to 230 computations (16.1% saved)

Precisions

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

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

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

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

adjust: 1.0ms (10.1% of total)

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

bsearch36.0ms (0.8%)

Memory

7.5MiB live, 52.9MiB allocated; 5ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
14.0ms	4.015943071540112e+77	4.709452335494635e+86
18.0ms	2.328412759319186e-187	4.5477680890672844e-182
1.0ms	-5.604979316348731e-33	-2.4342787357957984e-36

Samples

20.0ms

288×

valid

Compiler

Compiled 924 to 766 computations (17.1% saved)

Precisions

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch26.0ms (0.6%)

Memory

-20.9MiB live, 27.6MiB allocated; 15ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
23.0ms	2.62349688653287e-12	3.0405182912846535e-7
1.0ms	-5.604979316348731e-33	-2.4342787357957984e-36

Samples

18.0ms

144×

valid

Compiler

Compiled 654 to 532 computations (18.7% saved)

Precisions

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

ival-add!: 10.0ms (69.3% of total)

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

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

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

adjust: 0.0ms (0% of total)

bsearch24.0ms (0.6%)

Memory

9.8MiB live, 56.4MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.62349688653287e-12	3.0405182912846535e-7
21.0ms	-3.211094573545019e+198	-2.301244578625107e+197

Samples

9.0ms	32×	3	valid
5.0ms	26×	2	valid
2.0ms	14×	1	valid
2.0ms	24×	0	valid

Compiler

Compiled 552 to 458 computations (17% saved)

Precisions

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

ival-hypot: 6.0ms (49.1% of total)

adjust: 2.0ms (16.4% of total)

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

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.62349688653287e-12	3.0405182912846535e-7

Compiler

Compiled 342 to 284 computations (17% saved)

derivations152.0ms (3.5%)

Memory

-12.0MiB live, 132.5MiB allocated; 11ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 308 to 68 computations (77.9% saved)

preprocess12.0ms (0.3%)

Memory: 21.0MiB live, 21.0MiB allocated; 0ms collecting garbage
Remove: (abs im)
Compiler: Compiled 646 to 366 computations (43.3% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze155.0ms (3.6%)

sample1.4s (32.5%)

explain196.0ms (4.5%)

preprocess272.0ms (6.3%)

eval0.0ms (0%)

prune0.0ms (0%)

series24.0ms (0.6%)

rewrite205.0ms (4.7%)

eval43.0ms (1%)

prune9.0ms (0.2%)

series37.0ms (0.9%)

rewrite234.0ms (5.4%)

eval50.0ms (1.2%)

prune17.0ms (0.4%)

series36.0ms (0.8%)

rewrite311.0ms (7.2%)

eval49.0ms (1.1%)

prune18.0ms (0.4%)

series42.0ms (1%)

rewrite270.0ms (6.2%)

eval509.0ms (11.8%)

prune21.0ms (0.5%)

regimes72.0ms (1.7%)

regimes40.0ms (0.9%)

regimes10.0ms (0.2%)

regimes12.0ms (0.3%)

regimes2.0ms (0%)

regimes10.0ms (0.2%)

bsearch21.0ms (0.5%)

bsearch36.0ms (0.8%)

bsearch26.0ms (0.6%)

bsearch24.0ms (0.6%)

bsearch1.0ms (0%)

derivations152.0ms (3.5%)

preprocess12.0ms (0.3%)

end0.0ms (0%)

Profiling